用par生成的绘图的每个面板上的标题键（mfrow = c（x，y））

Question

为了在科学出版物中使用，我想在一个用par（mfrow = c（3,1））生成的图形中的三个图中添加一个键（A，B，C）作为“标题”。 为单个图添加一个漂亮的“标题”键的一个非常简单的解决方案是使用title（）的'outer'参数（例如title(outer=T,adj=0,main="A",cex=1.1, col="black",font=2,line=-1)）但是当这将用于多个图时，所有标题结束在同一个地方：

par(mfrow=c(3,1))
plot(rnorm(100),col="red")
title(outer=T,adj=0,main="A",cex=1.1,col="black",font=2,line=-1)
plot(rnorm(100),col="blue")
title(outer=T,adj=0,main="B",cex=1.1,col="black",font=2,line=-1)
plot(rnorm(100),col="green")
title(outer=T,adj=0,main="C",cex=1.1,col="black",font=2,line=-1)

我知道我可以使用布局和/或mtext（Common main title of a figure panel compiled with par(mfrow)）但是我觉得可能有一个更容易解决的问题，我正在忽略（我无法访问Adobe Illustrator，并希望使用R来完全生成图表）。 我可以通过使用布局得到的解决方案不够好（键与绘图分离得太多而左边不够），而且我发现边缘和坐标的游戏有点过于繁琐。

par(mar=c(1,2,2,1))
layout(matrix(seq(1,6),ncol=1),heights=rep(c(1,3),3))
plot.new()
text(0,0.5,"A",cex=1.1,font=2)
plot(rnorm(100),col="red")
plot.new()
text(0,0.5,"B",cex=1.1,font=2)
plot(rnorm(100),col="blue")
plot.new()
text(0,0.5,"C",cex=1.1,font=2)
plot(rnorm(100),col="blue")

任何帮助将非常感激。即使答案是以简单的方式这是不可能的，这仍然会非常有帮助。

Answer 1

当您使用outer=TRUE时，您要求在外边距处写入标题（所有子图共有）。要做你想做的事，只需设置outer=FALSE：

outer = FALSE

line = -2
cex = 2
adj  = 0.025

par(mfrow=c(3,1))
plot(rnorm(100),col="red")
title(outer=outer,adj=adj,main="A",cex.main=cex,col="black",font=2,line=line)
plot(rnorm(100),col="blue")
title(outer=outer,adj=adj,main="B",cex.main=cex,col="black",font=2,line=line)
plot(rnorm(100),col="green")
title(outer=outer,adj=adj,main="C",cex.main=cex,col="black",font=2,line=line)

此外，如果您希望标签位于旁边，则可以使用mtext代替title：

line = 6
cex = 2
las = 2

par(mfrow=c(3,1), oma=c(1,6,1,1))

plot(rnorm(100),col="red")
mtext("A", side=2, line=line, cex=cex, las=las)
plot(rnorm(100),col="blue")
mtext("B", side=2, line=line, cex=cex, las=las)
plot(rnorm(100),col="green")
mtext("C", side=2, line=line, cex=cex, las=las)