2

每次我将另一个 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 的颜色渐变（或色调）不同！

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

谢谢！

4

1 回答 1

2

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

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

在此处输入图像描述

于 2012-06-26T14:54:49.733 回答