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

Question

Me gustaría saber cómo proporcionar un título y una leyenda comunes para las tramas combinadas en R. Tengo cuatro tramas que he combinado en una. Cada trama 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 del gráfico combinado. Genere la trama combinada usando par(). He proporcionado mi parcela por debajo

Answer 1

Puede utilizar el parámetro oma para aumentar los márgenes exteriores, continuación, añadir el título principal con mtext, y tratar de posicionar la leyenda con la 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)