Mit dem folgenden Code habe ich versucht, vier Diagramme in einem Diagramm zu zeichnen R
. Ich bin mit der Abbildung nicht zufrieden, da zwischen den Darstellungen viel Platz ist und daher die Breite der Darstellungen nicht ausreicht, um die Darstellungen zu analysieren.
Könnte mir jemand helfen, eine schöne Grafik mit vier Plots zu erstellen?
Wie kann ich x-Achsenbeschriftungen von 1 bis 10 anstatt der Standardbeschriftungen von 5 beibehalten?
Daten:
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
Ich habe a1-Daten für b1, c1 und d1 verwendet. a2 Daten für b2, c2 und d2 nur für hier.
Zahl:
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)