R - Wspólny tytuł i legenda dla połączonych działek

Question

Chciałbym wiedzieć, jak zapewnić wspólny tytuł i legendę dla połączonych działek w R. Mam cztery działki, które połączyłem w jeden. Każda działka ma swój własny tytuł. Chcę określić wspólny tytuł w górnej środkowej i wspólnej legendzie w lewym górnym rogu połączonej działki. Wygenerowałem połączony wykres za pomocą par(). Mam pod warunkiem mój wykres poniżej

Answer 1

Można użyć parametru oma aby zwiększyć marginesy zewnętrzne, następnie dodać tytuł główny z mtext, i starają się umieścić legendę ręcznie.

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)