在R中结合mfrow的标题

Question

我希望标题集中在我的mfrow对象中的两个图上方。事实上，我只是那样工作，但标题远远超过了情节，因此只包括一半。以下是显示该问题的代码。如何将标题下移到中心地块的正上方？

a=1
p = c(rnorm(1000,5,10))
l = c(rnorm(1000,10,5))
par(mfrow=c(1,2))
hist(p,main=NULL)
hist(l,main=NULL)
title(main=print(paste0("Histogram a=", a)),outer=T)

Answer 1

如果您将line调用中的title参数设置为-2，则可以将标题放置在直方图附近：

a=1
p = c(rnorm(1000,5,10))
l = c(rnorm(1000,10,5))
par(mfrow=c(1,2))
hist(p,main=NULL)
hist(l,main=NULL)
title(main=print(paste0("Histogram a=", a)),outer=T, line=-2)