使用GGPLOT2在同一图上使用GGPLOT2绘制两个变量

Question

一个非常新的问题，但是说我有这样的数据：

test_data <-
  data.frame(
    var0 = 100 + c(0, cumsum(runif(49, -20, 20))),
    var1 = 150 + c(0, cumsum(runif(49, -10, 10))),
    date = seq(as.Date("2002-01-01"), by="1 month", length.out=100)
  )

我如何在同一图上同时绘制时间序列var0 var1 var1 ，date在X轴上，使用ggplot2？如果您制作var0和var1不同的颜色，则可以包括传奇！

我确定这很简单，但是我找不到任何示例。

Answer 1

对于少数变量，您可以自己手动构建情节：

ggplot(test_data, aes(date)) + 
  geom_line(aes(y = var0, colour = "var0")) + 
  geom_line(aes(y = var1, colour = "var1"))

Answer 2

一般方法是将数据转换为长格式（使用Melt（）来自package reshape或reshape2）或gather（）/pivot_longer（）来自tidyr软件包：

library("ggplot2")
library("tidyr")
library("reshape2")

## convert to long format with tidyr::pivot_longer
test_data_long_tidyr <- pivot_longer(test_data, cols = starts_with("var"))

ggplot(data=test_data_long_tidyr,
       aes(x=date, y=value, colour=name)) +
  geom_line() ## output not shown, it's equivalent to the below graph (with a tiny difference in the legend title)

## convert to long format with reshape2::melt
test_data_long <- melt(test_data, id="date")  

ggplot(data=test_data_long,
       aes(x=date, y=value, colour=variable)) +
  geom_line()

另请参阅这个问题 。

Answer 3

对于GGPLOT2，您需要以“高”格式而不是“宽”数据。 “宽”是指每个变量作为不同的列（就像您现在的列一样）。您需要将其转换为“高个子”格式，其中有一个列，该列告诉您变量的名称和另一列，该列告诉您变量的值。从宽到高的过程通常称为“熔化”。您可以使用tidyr ::收集熔化数据框架：

library(ggplot2)
library(tidyr)

test_data <-
  data.frame(
    var0 = 100 + c(0, cumsum(runif(49, -20, 20))),
    var1 = 150 + c(0, cumsum(runif(49, -10, 10))),
    date = seq(as.Date("2002-01-01"), by="1 month", length.out=100)
  )
test_data %>%
    gather(key,value, var0, var1) %>%
    ggplot(aes(x=date, y=value, colour=key)) +
    geom_line()

为了清楚data ggplot正在消耗通过收集将其输送后，看起来像这样：

date        key     value
2002-01-01  var0    100.00000
2002-02-01  var0    115.16388 
...
2007-11-01  var1    114.86302
2007-12-01  var1    119.30996

Answer 4

continue

Answer 5

使用您的数据：

test_data <- data.frame(
var0 = 100 + c(0, cumsum(runif(49, -20, 20))),
var1 = 150 + c(0, cumsum(runif(49, -10, 10))),
Dates = seq.Date(as.Date("2002-01-01"), by="1 month", length.out=100))

我创建一个堆叠版本，这是ggplot（）想要使用的内容：

stacked <- with(test_data,
                data.frame(value = c(var0, var1),
                           variable = factor(rep(c("Var0","Var1"),
                                                 each = NROW(test_data))),
                           Dates = rep(Dates, 2)))

在这种情况下，生产堆叠非常容易，因为我们只需要做一个几个操作，但是reshape（）和reshape和reshape2，如果您有一个更复杂的真实数据集可以操纵。

一旦数据以此堆叠的形式，它只需要一个简单的ggplot（）调用来制作您想要的所有附加功能的绘图（一个原因是lattice lattice <的高级绘图包的原因之一/code>和ggplot2非常有用）：

require(ggplot2)
p <- ggplot(stacked, aes(Dates, value, colour = variable))
p + geom_line()

我将其留给您以整理轴标签，传奇标题等

。