1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| ggplot()+
geom_errorbar(data=MSE,aes(x=Group,y=Mean,ymin=Mean-SE,ymax=Mean+SE),width=.1)+
geom_point(data=MSE,aes(x=Group,y=Mean),size=2,fill="white")+
scale_y_continuous(limits=c(0,ceiling((max(MSE$Mean)+2*max(MSE$SE))/10)*10),breaks=seq(from=0,to=ceiling((max(MSE$Mean)+2*max(MSE$SE))/10)*10,by=5))+
labs(x="Groups",y="Errors",title=ADLs[i])+
theme(panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
panel.background = element_blank(),
axis.line.x=element_line(colour="black"),
axis.line.y=element_line(colour="black"))+
if(PT$res$P.adj[1] <= 0.05){geom_point(aes(x=1.5,y=0),size=2,fill="white",shape=8)}+
if(PT$res$P.adj[2] <= 0.05){geom_point(aes(x=2,y=5),size=2,fill="white",shape=8)}+
if(PT$res$P.adj[3] <= 0.05){geom_point(aes(x=2.5,y=0),size=2,fill="white",shape=8)}+
if(PT$res$P.adj[4] <= 0.05){geom_point(aes(x=2.5,y=5),size=2,fill="white",shape=8)}+
if(PT$res$P.adj[5] <= 0.05){geom_point(aes(x=3,y=5),size=2,fill="white",shape=8)}+
if(PT$res$P.adj[6] <= 0.05){geom_point(aes(x=3.5,y=0),size=2,fill="white",shape=8)} |
Partager