在同一图表上使用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)
  )

如何在x轴上使用？绘制时间序列var0和var1同一图表？奖励积分,如果你做和不同的颜色,并且可以包括一个传奇!dateggplot2var0var1

我确信这很简单,但我找不到任何例子.

Answer 1

对于少量变量,您可以自己手动构建绘图:

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

Answer 2

一般方法是将数据转换为长格式(使用melt()包reshape或reshape2)或gather()从pivot_longer()包中:

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

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

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

Answer 3

对于ggplot2,您需要数据为"高"格式而不是"宽"."宽"表示每行观察一次,每个变量作为不同的列(就像你现在一样).您需要将其转换为"高"格式,其中有一列告诉您变量的名称,另一列告诉您变量的值.从宽到高的过程通常被称为"融化".您可以tidyr::gather用来融合数据框:

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通过gather看起来像这样消耗它:

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

使用您的数据:

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)))

在这种情况下,生产stacked是很容易的,因为我们只需要做到几个操作的,但reshape()和reshape与reshape2你有更复杂的真实数据集来操作可能是有用的.

一旦数据在此堆放形式,只需要一个简单的ggplot()通话产生你所有的演员想要的情节(原因之一更高级别的绘图包,比如lattice和ggplot2是如此有用):

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

我会留给你整理轴标签,图例标题等.

HTH

Answer 5

我对R也很陌生，但是想了解ggplot的工作原理，我想我有另一种方法。我只是分享可能不是一个完整的完美解决方案，而是要添加一些不同的观点。

我知道ggplot可以更好地与数据帧一起使用，但是知道不使用数据帧就可以直接绘制两个向量有时也许对您很有用。

加载数据中。原始日期向量的长度为100，而var0和var1的长度为50，因此我仅绘制可用数据（前50个日期）。

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=50)    

绘图

ggplot() + geom_line(aes(x=date,y=var0),color='red') + 
           geom_line(aes(x=date,y=var1),color='blue') + 
           ylab('Values')+xlab('date')

但是，我无法使用这种格式添加正确的图例。有人知道吗？