一组图的共同主标题

Question

我通过par(mfrow=c(1,2))

在面板中有两个图表

op <- par(
  oma=c(0,0,3,0),# Room for the title and legend
  mfrow=c(1,2)
)
for(i in 1:2) {
  plot( cumsum(rnorm(100)), type="l", lwd=3,
  col=c("navy","orange")[ 1+i%%2 ], 
  las=1, ylab="Value",
  main=paste("Random data", i) )
}

我想绘制主标题＆＃34;随机情节＆＃34;这将非常适合2个地块的中间。

我使用mtext尝试了此处R - Common title and legend for combined plots的解决方案，并进行了大量实验但 mtext解决方案并没有完全在中间得到标题，就像{ {1}} main的参数。

还有其他选择吗？