使用 par(mfrow=c(x,y)) 生成的绘图的每个面板上的标题键

Question

为了在科学出版物中使用，我想在使用 par(mfrow=c(3,1)) 生成的一个图中添加一个键（A、B、C）作为“标题”到三个图。 为单个绘图添加漂亮的“标题”键的一个非常简单的解决方案是使用标题（）的“外部”参数（例如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)

我知道我可以使用布局和/或多行文本 (Common main title of a figure panel compiled with par(mfrow)) 但是我觉得可能有一个我忽略的更简单的解决方案（我没有访问 Adob​​e 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)

将标签放在角落的另一种选择是：

line = 1
cex = 2
side = 3
adj=-0.05

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

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

adj 可以使用负值。