改變顏色

Question

我想改變顏色連接方式在下面的箱線圖：

library(ggplot2) 
box.df<-data.frame(myyear=rep(c(2012:2014),each=120), 
        mymonth=rep((1:12),times=10), 
        val=rnorm(120,4,1)) 
box.df$yyyymm<-box.df$myyear*100+box.df$mymonth 
box.df$myyearnr<-as.numeric(as.factor(box.df$myyear)) 

p<-ggplot(box.df,aes(factor(yyyymm),val))+geom_boxplot()+aes(fill=factor(myyear)) 
p+theme(axis.text.x=element_text(angle=90,hjust=1))+ 
    stat_summary(fun.y=mean,geom="line",aes(group=1,colour="yellow"))+ 
    stat_summary(fun.y=mean,geom="point",aes(colour="yellow")) 

..劇情作品原則上，但連接線是紫色的，不發黃。 我該如何糾正這一點？

THX &親切的問候

Answer 1

的顏色是不是在這種情況下的審美，所以才單獨指定它...

p+theme(axis.text.x=element_text(angle=90,hjust=1))+ 
    stat_summary(fun.y=mean,geom="line",aes(group=1),colour="yellow")+ 
    stat_summary(fun.y=mean,geom="point",colour="yellow") 

Answer 2

這只是一個aes問題。此代碼可以按照您的要求工作：

 library(ggplot2) 
     box.df<-data.frame(myyear=rep(c(2012:2014),each=120), 
          mymonth=rep((1:12),times=10), 
          val=rnorm(120,4,1)) 
    box.df$yyyymm<-box.df$myyear*100+box.df$mymonth 
    box.df$myyearnr<-as.numeric(as.factor(box.df$myyear)) 

     p<-ggplot(box.df, aes(factor(yyyymm), val)) + 
      geom_boxplot()+aes(fill=factor(myyear)) 
    p+theme(axis.text.x=element_text(angle=90,hjust=1))+ 
     stat_summary(fun.y=mean,geom="line",aes(group=myyear),color="yellow")+ 
     stat_summary(fun.y=mean,geom="point",color="yellow")