ggplot绘制对比图

library(ggplot2)
library(ggsci)
plot <-c ("A","A","B","B","C","C","D","D")
mean <- c(2.5,-3.2,3.1,-3.6,4,-5,4.8,-4.3)
se <- c(0.5,-0.4,0.3,-0.2,0.6,-0.5,0.3,-0.5)
type <- c("A1","A2","A1","A2","A1","A2","A1","A2")
Label <- c("端","学","午","业","安","有","康","成")
df <- data.frame(plot,mean,se ,type,Label)
library(ggpubr)
tiff(file="1..tiff",res=600,width=4000,height=3000,compression="lzw")
ggplot(data=df,aes(x=plot,y=mean,fill=type))+
geom_bar(stat="identity",position =  'stack',width = 0.6)+ 
geom_errorbar(aes(ymin=mean-se,ymax=mean+se),position = position_dodge(0), width = 0.2)+
geom_text(data = df,aes(x =plot, y=mean+ mean*0.6, label = Label,color = type),angle = 0,size =4)+  
scale_y_continuous(limits = c(-15,15),breaks = c(-15,-10,-5,0,5,10,15),labels = c(15,10,5,0,5,10,15))+scale_fill_lancet()+scale_color_lancet()+
geom_hline(aes(yintercept = 0),size = 0.2)+theme_bw()+
theme(legend.direction = 'horizontal',axis.text = element_text(size = 12,hjust = 0.5,face = 'bold',color = 'black'), axis.title = element_text(size = 14,hjust = 0.5,face = 'bold',color = 'black'),
legend.text = element_text(size = 12,hjust = 0.5,face = 'bold',color = 'black'),
legend.title = element_text(size = 14,hjust = 0.5,face = 'bold',color = 'black'),
panel.grid = element_line(color = 'transparent'))+ ylab('Mean')+xlab(NULL)+theme(legend.position = c(0.5,0.1))+theme(legend.title = element_blank())
dev.off()