修改geom_ribbon边框

Question

我正在用下面的代码绘制一系列随时间变化的均值和标准差，并尝试使用geom_ribbon来显示sd，如下所示。

由于明显的重叠，我想在功能区中添加一个边框，它的颜色与相应的变量相同，但却是一条虚线，但我不知道这将放在代码中的什么位置。我知道"colour“和"linetype”命令之间有某种联系。

谢谢!

graph.msd <- ggplot(data=g.data, aes(x=quarter,y=mean,group=number)) 
graph.msd <- graph.msd + geom_line(aes(colour = number),size=1)+geom_ribbon(aes(ymin=mean-sd,ymax=mean+sd,fill=number),linetype=2,alpha=0.1)

Answer 1

您需要将colour的值传递给geom_ribbon，如下所示

graph.msd <- graph.msd + 
 geom_line(aes(colour = number),size=1)+
 geom_ribbon(aes(ymin = mean-sd, ymax = mean+sd, 
                 fill = number,colour = number), linetype=2, alpha=0.1)

使用一个可重现的示例(使用?geom_ribbon中示例的变体

huron <- data.frame(year = 1875:1972, level = as.vector(LakeHuron))
library(plyr) # to access round_any
huron$decade <- round_any(huron$year, 10, floor)

ggplot(huron, aes(x =year, group = decade)) + 
  geom_ribbon(aes(ymin = level-1, ymax = level+1, 
      colour = factor(decade), fill = factor(decade)), 
    linetype = 2, alpha= 0.1)

​

​