我有这样的数据:
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))
要在同一图表上绘制时间序列var0和var1,在x轴上使用日期,使用ggplot2
ggplot(test_data, aes(date)) +
geom_line(aes(y = var0, colour = "var0")) +
geom_line(aes(y = var1, colour = "var1"))
这样可以正常工作并以不同颜色绘制两个时间序列,但Y轴和图例的标题将为“var0”。
由于
答案 0 :(得分:3)
试试这个:
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")