J'utilise depuis peu Latex et Sweave et j'ai un problème que je ne sais pas résoudre. J'ai créé une série de graphiques pour expliquer les principes de l'AVOVA et je veux les intégrer dans un doc Latex. Dans le graphique, j'utilise le symbole pch=21 (mais le pb est aussi présent avec pch=1, voir plus bas), d'autre part avec la fonction text(), j'affiche aussi une équation sur le graphique qui comporte le symbole de la somme.
Lorsque je teste le code dans R, tout va bien, en revanche quand j'essaye d'intégrer le graphe dans mon doc latex, le graphique ressort altéré, au lieux d'avoir des points de type pch=1, j'ai le symbole "p" à la place et de plus le symbole somme dans mon équation ne ressort pas, j'ai un point à la place ?!? Voici le code du graphique encadré des balises Sweave :
Code : Tout sélectionner
<<f1intro, echo = F, fig=T>>=
par(mar=c(1,1,1,1))
y1<-c(3,2,1,4)
x1<-c(5,7,9,10)
plot(x1,y1,ylim=c(0,10),xlim=c(-0,52),pch=21,bg="grey90",col="grey40",cex=1.2,axes = F)
y2<-c(7,5.5,8,3)
x2<-c(18,20,22,24)
par(new=T)
plot(x2,y2,ylim=c(0,10),xlim=c(0,52),pch=21,bg="grey90",col="grey40",cex=1.2,axes = F)
y3<-c(2,4,6,4.5)
x3<-c(31,33,35,37)
par(new=T)
plot(x3,y3,ylim=c(0,10),xlim=c(-0,52),pch=21,bg="grey90",col="grey40",cex=1.2,axes=F)
y4<-c(9,6.5,5.5,7.3)
x4<-c(44,46,48,50)
par(new=T)
plot(x4,y4,ylim=c(0,10),xlim=c(0,52),pch=21,bg="grey90",col="grey40",cex=1.2,axes = F,main="Somme des Carrés Total",cex.main=1)
##### SOMME DES CARRES TOTALE ###################
segments(x1, y1, x1, mean(c(y1,y2,y3,y4)), col="grey")
segments(x2, y2, x2, mean(c(y1,y2,y3,y4)), col="grey")
segments(x3, y3, x3, mean(c(y1,y2,y3,y4)), col="grey")
segments(x4, y4, x4, mean(c(y1,y2,y3,y4)), col="grey")
lines(c(44,50),c(mean(y4),mean(y4)),lwd=2,col="tomato2")
lines(c(31,37),c(mean(y3),mean(y3)),lwd=2,col="tomato2")
lines(c(18,24),c(mean(y2),mean(y2)),lwd=2,col="tomato2")
lines(c(5,10),c(mean(y1),mean(y1)),lwd=2,col="tomato2")
lines(c(-2,54),c(mean(c(y1,y2,y3,y4)),mean(c(y1,y2,y3,y4))),lwd=2,col="blue")
text(2.5,mean(y1),"ctrl.",cex=1)
text(15.5,mean(y2),"trait. 1",cex=1)
text(28.5,mean(y3),"trait. 2",cex=1)
text(41.5,mean(y4),"trait. 3",cex=1)
text(5,mean(c(y1,y2,y3,y4)+0.3),"Grande moyenne",cex=1, col="blue",font=3)
text(43,1, expression(SC[T]==sum((x[i]-bar(x)[grande])^2, i==1, N)),cex=1.3)
@
Quelqu'un a-t-il déjà rencontré ce genre de problème ? Je vous remercie d'avance pour votre aide.
Lorraine