ggplot2 - 如何在 stat_summary() 中更改颜色

Question

我正在尝试绘制两列原始数据(我使用 melt 将它们组合成一个数据框)，然后为每列添加单独的误差线。但是，我想为每一列的原始数据设置一对颜色，将误差线设置为另一组颜色，但我似乎无法让它工作。我得到的情节在下面的链接中。我想为原始数据和错误栏设置不同的颜色对。出于说明目的，下面对一个简单的可重现示例进行了编码。

 dat2.m<-data.frame(obs=c(2,4,6,8,12,16,2,4,6),variable=c("raw","raw","raw","ip","raw","ip","raw","ip","ip"),value=runif(9,0,10))

    c <- ggplot(dat2.m, aes(x=obs, y=value, color=variable,fill=variable,size = 0.02)) +geom_jitter(size=1.25) + scale_colour_manual(values = c("blue","Red"))

   c<- c+stat_summary(fun.data="median_hilow",fun.args=(conf.int=0.95),aes(color=variable), position="dodge",geom="errorbar", size=0.5,lty=1)

    print(c)

[1]: http://i.stack.imgur.com/A5KHk.jpg

Answer 1

郑重声明:我认为这是一个非常非常糟糕的主意。除非您有一个至关重要的用例，否则我认为您应该重新检查您的计划。

但是，您可以通过添加一组新的变量来绕过它，并在末尾填充一个空格。你会想要/需要玩弄这些传说，但这应该可行(尽管它绝对是丑陋的):

dat2.m<-    data.frame(obs=c(2,4,6,8,12,16,2,4,6),variable=c("raw","raw","raw","ip","raw","ip","raw","ip","ip"),value=runif(9,0,10))


c <- ggplot(dat2.m, aes(x=obs, y=value, color=variable,fill=variable,size = 0.02)) +geom_jitter(size=1.25) + scale_colour_manual(values = c("blue","Red","green","purple"))

c<- c+stat_summary(fun.data="median_hilow",fun.args=(conf.int=0.95),aes(color=paste(variable," ")), position="dodge",geom="errorbar", size=0.5,lty=1)

print(c)