Error in { : argument non numérique pour un opérateur binaire using ggplot2

Bonjour,

J'essaye de créer un graphique avec ggplot2. Voici mon code:

Code:

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)}

Mon jeu de données est très basique et ne pose aucun problème. Pour information, le voici:

Code:

1
2
3
4
5
6
> MSE
      Mean        SE Group
1 46.96651 0.5866064     C
2 55.40359 1.1359621   DPD
3 50.34690 1.8072166  NDPD
4 54.00944 0.9507856    PD

En fait mon code s’exécute très bien jusqu'à :

Code:

1
2
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)}

ou n'importe quel autre if tout seul, mais impossible de rajouter quoi que ce soit après "}", fait que je n'arrive pas à avoir mes autres "if".

Quelqu'un aurait une idée pourquoi et comment régler ce problème ?

Merci d'avance.