ggplot2 - 在置信区间内改变颜色

Question

我想将置信区间的颜色变成与它们所属的误差线相同的颜色。

 rat3 <- rep(c(1:6,6:2,3:1,2:4), 20)
 logRT <- rep(seq(from=6, to=7.6, by=0.1), 20)
 condition <- rep(c("c","i"),170)          
 condition <- as.factor(condition)           #turns to 1-2, is c-i in my data
 meto <- cbind(rat3, logRT, condition)
 meto <- as.data.frame(meto)             #this produces a df similar to mine

这是情节的代码：

  barmeto <- ggplot(meto, aes(rat3, logRT, colour=condition)) #assign 
  barmeto + geom_smooth(method="lm") + 
  stat_summary(fun.data=mean_cl_boot, geom="errorbar", lwd=1.5) +
  scale_colour_grey(start=0.15, end=0.5)

它会生成带有 2 个相同浅灰色的漏斗的图像。抱歉，除了这样，我不能上传、嵌入或发布图片链接： https://stats.stackexchange.com/questions/268740/ggplot2-change-colour-of-ci

我需要两个漏斗有不同的颜色。很短的应该是黑色的，就像它所属的误差线一样（短漏斗黑色），长的应该是深灰色的，就像它的误差线一样。

如果有任何帮助，我将不胜感激，谢谢！到目前为止，我在这里找到的所有食谱都不适合我。

Answer 1

要重现您链接到的所需绘图，您应该将aes 填充和颜色设置为分解条件，并添加scale_fill_grey：

# factor condition variable in meto
meto$condition <- factor(meto$condition)

# plot with fill and colour aes
barmeto <- ggplot(meto, aes(rat3, logRT, colour=condition, fill=condition))
barmeto + geom_smooth(method="lm") + 
  stat_summary(fun.data=mean_cl_boot, geom="errorbar", lwd=1.5) +
  scale_colour_grey(start=0.15, end=0.5) +
  scale_fill_grey(start=0.15, end=0.5)

由于您的回归线在此示例案例中重叠，您可能还希望为每个条件设置线型或线宽。您的灰度值也非常接近彼此和背景，请尝试更多不同的值和/或设置为 theme_bw()。

例如，下面带有大小 aes 和 theme_bw() 的代码会生成下面的图：

barmeto <- ggplot(meto, aes(rat3, logRT, colour=condition, fill=condition, size=condition))
barmeto + geom_smooth(method="lm") + 
  stat_summary(fun.data=mean_cl_boot, geom="errorbar") +
  scale_colour_grey(start=0.1, end=0.5) +
  scale_fill_grey(start=0.1, end=0.5) + 
  scale_size_manual(values=c(2,1)) +
  theme_bw()

编辑回答评论问题，编辑线型你可以在aes上设置，线型选择可以在这里看到：http://www.cookbook-r.com/Graphs/Shapes_and_line_types/

barmeto <- ggplot(meto, aes(rat3, logRT, colour=condition, fill=condition, size=condition, linetype=condition))
barmeto + geom_smooth(method="lm") + 
  stat_summary(fun.data=mean_cl_boot, geom="errorbar") +
  scale_colour_grey(start=0.1, end=0.5) +
  scale_fill_grey(start=0.1, end=0.5) + 
  scale_size_manual(values=c(2,1)) +
  scale_linetype_manual(values=c("solid", "twodash")) +
  theme_bw()

你仍然有回归线的 se 重叠的问题，在这种情况下，你可能更喜欢按条件进行 facet wrap：

barmeto <- ggplot(meto, aes(rat3, logRT, colour=condition, fill=condition))
barmeto + geom_smooth(method="lm") + 
  stat_summary(fun.data=mean_cl_boot, geom="errorbar", lwd=1.5) +
  scale_colour_grey(start=0.15, end=0.5) +
  scale_fill_grey(start=0.15, end=0.5) +
  facet_wrap(~condition) + theme_bw()