我想请教大家,能不能将横向分面标签Year -1、Year 0、Year 1、Year 2移到坐标轴的下方,并将背景颜色改成白色。我没有找到可以单独将横向标签的填充改为透明的要素名称,theme(strip.background(element_rect(fill="white")))会将纵向的Zone标签也一起修改了。
代码如下:
strhc<-ggplot(shc,aes(x=Time,y=SPEI,fill=Value))+geom_bar(stat="identity")+
ylim(-1.5,1.5)+
theme(axis.text.x = element_text(size=8))+theme(axis.text.y = element_text(size=10))+
facet_grid(Zone~Year)+
scale_fill_manual(values=c(Positive="#11BDD1",Negative="#EE4909"))+
scale_x_continuous(breaks = c(1,2,3,4,5,6,7,8,9,10,11,12),
labels=c("J","F","M","A","M","J","J","A","S","O","N","D"))
图形如下: