wie bei den beiden linken Grafiken zu sehen ist, gibt es einen Abstand der x-Achse zur y-Achse sowie zur Box. Bisher habe ich leider keine passable Lösung gefunden, die x-Achse mit der y-Achse sowie der Box zu verbinden. Ferner möchte ich den weißen Leerraum zwischen den vier Grafiken reduzieren. Bisher habe ich versucht, die Margins (Bottom, Top) der einzelnen Grafiken zu ändern, was lediglich zu Verzerrungen führt. Anbei ein Code:
Code: Alles auswählen
par(mfcol=c(2,2),oma=c(0,0,0,0))
time<-seq(-10,10,1)
A<-seq(-2,2,by=0.2)
plot(time,A,xlab="",ylab=expression(bar(A)~"in %"),col="blue", type="o",pch=18,axes=FALSE)
par(mar=c(5,4.5,4,1)+.1)
axis(side=1,at=seq(-10,10,by=2),cex.axis=0.9,pos=0)
axis(side=2,cex.axis=0.9,las=2)
box()
plot(time,A,xlab="Zeitpunkt",ylab=expression(bar(AA)~"in %"),col="blue",type="o",pch=18,axes=FALSE)
par(mar=c(5,4.5,4,1)+.1)
axis(side=1,at=seq(-10,10,by=2),cex.axis=0.9,pos=0)
axis(side=2,cex.axis=0.9,las=2)
box()
B<-seq(0.5,5.5,by=0.25)
plot(time,B,xlab="",ylab=expression(bar(B)~"in %"),col="blue",type="o",pch=18,axes=FALSE)
par(mar=c(5,4.5,4,1)+.1)
axis(side=1,at=seq(-10,10,by=2),cex.axis=0.9)
axis(side=2,cex.axis=0.9,las=2)
box()
plot(time,B,xlab="Zeitpunkt",ylab=expression(bar(BB)~"in %"),col="blue",type="o",pch=18,axes=FALSE)
par(mar=c(5,4.5,4,1)+.1)
axis(side=1,at=seq(-10,10,by=2),cex.axis=0.9)
axis(side=2,cex.axis=0.9,las=2)
box()
Ich würde mich freuen, wenn mir jemand weiterhelfen kann.
Viele Grüße