R语言ggplot2绘制分组数据误差线图教程

load("D:/研究生资料/data.rdata")
A<-dataA
A
g<-as.factor(A$group)
g
ymax=(A$up-1)*100
library(ggplot2)
label1<-c("**","**","**","**","**","**","**","","","","","","*","")
pd <- position_dodge(0.1) 
p<-ggplot(A,aes(x=XX,y=(y-1)*100,group=g,color=g,pch=g)) + 
  geom_errorbar(aes(ymin=(low-1)*100,ymax=(up-1)*100),width=.4,position=pd)+
  geom_point(aes(colour=factor(g)),position=pd,cex=3.5)
print(p)
p1<-p+scale_colour_manual(values = c("red","blue"))+
  labs(y="y-value",title="(A)",cex.main=8,cex.labs=8)+
  theme(plot.title=element_text(hjust=0.5))+
  geom_hline(aes(yintercept = 0),linetype=2)+
  geom_text(aes(y = ymax+ 0.07, label = label1, group = group),position =pd, size = 5, fontface = "bold",color="black")+
  theme(legend.position = "bottom",legend.title=element_blank(),
  panel.background = element_rect(fill = "transparent",colour = "black"),
panel.grid.minor = element_blank(), 
panel.grid.major = element_blank())
plot(p1)

B<-dataB
B
q<-as.factor(B$group)
q
bymax=(B$up-1)*100
library(ggplot2)