R - 結合されたプロットの共通のタイトルと伝説

Question

Rの結合されたプロットの共通のタイトルと伝説を提供する方法を知りたいと思います。各プロットには独自のタイトルがあります。結合されたプロットの左上隅にある共通の凡例と上部の中心に共通のタイトルを指定したいと思います。 par（）を使って結合されたプロットを生成しました。私はあなたが その後mtext、 でメインタイトルを追加し、手で伝説を配置しようとすると、外側の余白を増やすことomaパラメータを使用することができます

Answer 1

の下に私のプロットを提供してきました。

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)