我有这样的数据:
test_data <- data.frame(
var0 = 100 + c(0, cumsum(runif(49, -20, 20))),
var1 = 150 + c(0, cumsum(runif(49, -10, 10))),
date = seq.Date(as.Date("2002-01-01"), by="1 month", length.out=100))
使用ggplot2在同一图上绘制时间序列var0和var1,在x轴上显示日期
ggplot(test_data, aes(date)) +
geom_line(aes(y = var0, colour = "var0")) +
geom_line(aes(y = var1, colour = "var1"))
这样可以很好地工作,并以不同的颜色绘制两个时间序列,但是Y轴的标题和图例将为“ var0”。
谢谢
试试这个:
ggplot(test_data, aes(date)) +
geom_line(aes(y = var0, colour = "var0")) +
geom_line(aes(y = var1, colour = "var1")) +
scale_colour_manual(values=c("green","yellow"), name="Experimental Condition", labels=c("Var 1", "Var 2")) +
ylab("Var X")
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句