R - Общее название и легенда для комбинированных сюжетов

Question

Я хотел бы знать, как обеспечить общее название и легенду для комбинированных сюжетов в R. У меня есть четыре сюжета, которые я объединил в один. Каждый сюжет имеет свое название. Я хочу указать общий заголовок в верхнем центре и общую легенду в верхнем левом углу комбинированного сюжета. Я сгенерировал комбинированный график, используя par (). Я предоставил свой участок ниже

Answer 1

Вы можете использовать параметр oma, чтобы увеличить внешние поля, затем добавьте основной заголовок с помощью mtext, и попытайтесь расположить легенду от руки.

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)