变化部分是不同的颜色

Question

使用下面的数据帧d：

day <- gl(8,1,24,labels=c("Mon","Tues","Wed","Thurs","Fri","Sat","Sun","Avg")) 
day <- factor(day, level=c("Mon","Tues","Wed","Thurs","Fri","Sat","Sun","Avg")) 
month<-gl(3,8,24,labels=c("Jan","Feb","Mar")) 
month<-factor(month,level=c("Jan","Feb","Mar")) 
snow<-gl(1,24,labels=c("Y")) 
snow<-factor(snow,levels=c("Y","N")) 
count <- c(4,5,6,8,3,4,9,5.57,2,4,3,7,1,9,3,4.14,7,9,6,3,1,2,8,5.14) 
d <- data.frame(day=day,count=count,month=month,snow=snow) 

线图后面的背景颜色是一样的条形图：

ggplot(data=d[d$day=="Avg",], aes(x=day , y=count, fill=month)) + 
geom_bar(position = "dodge", width = 1.2, stat="identity") + 
geom_text(aes(label=month, x=day, y=count), position=position_dodge(width=1.2), vjust=-.6, size=3) + 
geom_line(data=d[d$day!="Avg",], aes(x=day, y=count, group=month, colour=month)) + 
facet_wrap(~snow,ncol=1,scales="free") + 
scale_x_discrete(limits=levels(d$day)) 

是否可以更改条形图后面部分的背景颜色？

图无局部背景色彩变化

Answer 1

您可以使用geom_rect()的线条和酒吧在绘制矩形。对于ymin和ymax使用-Inf和Inf来填充所有区域，但使用xmin和xmax您应该玩以获得所需的效果。

ggplot(data=d[d$day=="Avg",], aes(x=day , y=count, fill=month)) + 
    geom_rect(data=NULL,aes(xmin=0.25,xmax=7.25,ymin=-Inf,ymax=Inf), 
        fill="lightgreen")+ 
    geom_rect(data=NULL,aes(xmin=7.25,xmax=8.75,ymin=-Inf,ymax=Inf), 
        fill="darkgreen")+ 
    geom_bar(position = "dodge", width = 1.2, stat="identity") + 
    geom_text(aes(label=month, x=day, y=count), 
      position=position_dodge(width=1.2), vjust=-.6, size=3) + 
    geom_line(data=d[d$day!="Avg",], aes(x=day, y=count, group=month, colour=month)) + 
    facet_wrap(~snow,ncol=1,scales="free") + 
    scale_x_discrete(limits=levels(d$day))