跟着Eu J Forest Res学作图：R语言ggplot2做柱形图的时候给纵坐标轴添加分组间隔

library(readxl)
library(ggplot2)

df<-read_excel("abcd.xlsx")
df
df$y<-factor(df$y,
             levels = rev(unique(df$y)))

df$group<-factor(df$group,
                 levels = rev(unique(df$group)))

ggplot(data=df,aes(x=x,y=y,fill=group))+
  geom_bar(stat = "identity",
           position = position_dodge(0.9),
           width = 0.8)+
  scale_fill_manual(values = c("#4472c4","#ed7d31"))+
  geom_text(aes(x+0.2,y,label=x),size=3,
            position = position_dodge(0.9))+
  theme_void()+
  theme(legend.position = "bottom",
        legend.justification = c(0.5,0),
        legend.title = element_blank(),
        legend.key.size = unit(2,'mm'),
        legend.text = element_text(size=10),
        plot.margin = unit(c(1,1,2,1),'mm'))+
  geom_text(aes(x=-0.1,y=y,label=y),hjust=1)+
  xlim(-11,5)+
  geom_vline(xintercept = 0,color="grey")+
  annotate(geom = "segment",
           x=0,xend=-11,y=0.4,yend=0.4,
           color="grey")+
  annotate(geom = "segment",
           x=0,xend=-11,y=2.5,yend=2.5,
           color="grey")+
  annotate(geom = "segment",
           x=0,xend=-11,y=5.5,yend=5.5,
           color="grey")+
  annotate(geom = "segment",
           x=0,xend=-11,y=12.5,yend=12.5,
           color="grey")+
  annotate(geom = "segment",
           x=0,xend=-11,y=16.5,yend=16.5,
           color="grey")+
  annotate(geom = "text",
           x=-11,y=1.5,label="Others",angle=90)+
  annotate(geom = "text",
           x=-11,y=4,label="Provisioning",angle=90)+
  annotate(geom = "text",
           x=-11,y=9,label="Cultural",angle=90)+
  annotate(geom = "text",
           x=-11,y=14.5,label="Regulationg",angle=90) -> p
pdf(file = "outp.pdf",
    width = 14,height = 6,
    family = "serif")
print(p)
dev.off()