如何在ggplot2 stat_summary图中设置多种颜色？

Question

如何使用ggplot2与stat_summary一起显示我选择的颜色？例如：

simVol  <- data.frame(simId=c(1,1,1,1,2,2,2,2), 
                      farm=rep(c('farm A', 'farm A', 'farm B', 'farm B'),2),
                      period=rep(1:2,4), 
                      volume=c(9,21,12,18,10,22,11,19))

P10meanP90 <- function(x) data.frame(
  y = mean(x), 
  ymin = quantile(x, .1),
  ymax = quantile(x, .9)
)

此命令使用默认颜色绘制每个服务器场的卷分布（使用默认颜色：

）

ggplot(simVol, aes(x=period, y=volume, colour=farm)) + 
    stat_summary(fun.data="P10meanP90", geom="smooth", size=2)

但是，如果我将colour='green'添加到stat_summary的参数中，则会在整个场中绘制聚合。我尝试过使用colour=c('green','orange')，但这仍然只显示绿线。

如何更改此图中的颜色？

感谢

Answer 1

scale_colour_manual是您正在寻找的功能。 http://docs.ggplot2.org/0.9.3.1/scale_manual.html

ggplot(simVol, aes(x=period, y=volume, colour=farm)) +
    stat_summary(fun.data="P10meanP90", geom="smooth", size=2) +
    scale_colour_manual(values = c("green", "orange"))