En utilisant le code suivant, j'ai essayé de dessiner quatre graphiques sur un graphique R
. Je ne suis pas satisfait du chiffre car il y a beaucoup d'espace entre les parcelles, donc la largeur des parcelles n'est pas suffisante pour analyser les parcelles.
Quelqu'un pourrait-il m'aider à produire un joli graphique comportant quatre tracés?
Comment puis-je conserver les étiquettes de l'axe des x de 1 à 10 au lieu des 5 étiquettes par défaut?
Les données:
a1: 11,013 13,814 13,831 13,714 13,787 13,734 13,778 13,771 13,823 13,659
a2: 5.181 7.747 8.314 8.061 7.920 8.153 8.540 8.845 7.881 8.301
J'ai utilisé les données a1 pour b1, c1 et d1; données a2 pour b2, c2 et d2 juste pour ici.
Figure:
Code:
op=par(mfrow=c(4,1), mar=c(5.5,5.1,4.1,2.1))
plot(a1, type="b", ylim=c(0,14.5), xlab="Time (secs)", ylab="", cex.axis=1.4, cex.lab=1.3,cex=1.2,lwd=2.5,col="red1",lty=2,pch=1, main="A")
lines(a2,type="b",pch=3,lty=3,col="darkblue",lwd=2.5,cex=1.2)
par(xpd=T)
legend(1,26.5,c("X","Y"),bty="n",horiz=T,cex=1.5,col=c("red1","darkblue"),text.col=c("red1","darkblue"),pch=c(1,3),lty=c(2,3),x.intersp=0.4,adj=0.2)
plot(b1, type="b", ylim=c(0,14.5), xlab="Time (secs)", ylab="", cex.axis=1.4, cex.lab=1.3,cex=1.2,lwd=2.5,col="red1",lty=2,pch=1, main="B")
lines(b2,type="b",pch=3,lty=3,col="darkblue",lwd=2.5,cex=1.2)
plot(c1, type="b", ylim=c(0,14.5), xlab="Time (secs)", ylab="", cex.axis=1.4, cex.lab=1.3,cex=1.2,lwd=2.5,col="red1",lty=2,pch=1, main="C")
lines(c2,type="b",pch=3,lty=3,col="darkblue",lwd=2.5,cex=1.2)
plot(d1/1000, type="b", ylim=c(0,14.5), xlab="Time (secs)", ylab="", cex.axis=1.4, cex.lab=1.3,cex=1.2,lwd=2.5,col="red1",lty=2,pch=1, main="D")
lines(d2,type="b",pch=3,lty=3,col="darkblue",lwd=2.5,cex=1.2)
> mtext("Price", side=2, at=100,line=3,cex=1.1)