r - 具有 ggplot2 较低级别图的多种颜色缩放

Question

每次我向主图中添加另一个 geom_line() 时，我希望实现不同的颜色渐变，每次都以“颜色”作为比例。 这是一个数据框作为示例:

df <- data.frame("letter"=c(rep("a",5),rep("b",5)),"x"=rep(seq(1,5),2),"y1"=c(seq(6,10),seq(6,10)/2),"y2"=c(seq(1,5),seq(1,5)/2),"y3"=c(seq(3,7),seq(3,7)/2))

我首先绘制:

y1 <- ggplot(df,aes(x=x,y=y1,colour=letter))+geom_line()
y1

然后我想添加 y1 和 y2，我可以这样做:

y2 <- geom_line(data=df,aes(x=x,y=y2,colour=letter))
y3 <- geom_line(data=df,aes(x=x,y=y3,colour=letter))
y1+y2+y3

但我希望 y1、y2 和 y3 的颜色渐变(或色调)不同!

是否可以将诸如scale_colour_hue()之类的东西分配给每个geom_line，或者这仅适用于ggplot？

谢谢!

Answer 1

正如我上面概述的，这里有一些选项:

df <- data.frame("letter"=c(rep("a",5),rep("b",5)),
                 "x"=rep(seq(1,5),2),
                 "y1"=c(seq(6,10),seq(6,10)/2),
                 "y2"=c(seq(1,5),seq(1,5)/2),
                 "y3"=c(seq(3,7),seq(3,7)/2))

# melt your data and create a grouping variable
library(plyr)                    
df_m <- melt(df,id.vars = 1:2)
df_m$grp <- with(df_m,interaction(letter,variable))


# Option 1
ggplot(df_m,aes(x = x, y = value)) + 
    facet_wrap(~variable) + 
    geom_line(aes(group = letter,colour = letter))

# Option 2      
ggplot(df_m,aes(x = x, y = value)) + 
    geom_line(aes(group = grp,colour = letter,linetype = variable))