R-Título común y leyenda para parcelas combinadas

Question

Me gustaría saber cómo proporcionar un título y una leyenda comunes para parcelas combinadas en R. Tengo cuatro parcelas que he combinado en una. Cada parcela tiene su propio título. Quiero especificar un título común en el centro superior y una leyenda común en la esquina superior izquierda de la trama combinada. Generé la trama combinada usando par (). He proporcionado mi parcela a continuación

Answer 1

Puede usar el parámetro oma para aumentar los márgenes exteriores, luego agregue el título principal con mtext e intente colocar la leyenda a mano.

op <- par(
oma=c(0,0,3,0),# Room for the title and legend
mfrow=c(2,2)
)
for(i in 1:4) {
plot( cumsum(rnorm(100)), type="l", lwd=3,
col=c("navy","orange")[ 1+i%%2 ],
las=1, ylab="Value",
main=paste("Random data", i) )
}
par(op) # Leave the last plot
mtext("Main title", line=2, font=2, cex=1.2)
op <- par(usr=c(0,1,0,1), # Reset the coordinates
xpd=NA) # Allow plotting outside the plot region
legend(-.1,1.15, # Find suitable coordinates by trial and error
c("one", "two"), lty=1, lwd=3, col=c("navy", "orange"), box.col=NA)