R，图，字体大小在多个图中有所变化

Question

我正在为出版物创建图表，并希望它们具有相同的字体大小。

当我使用多个图创建图形时，即使我没有更改tiff()分辨率或pointsize，字体大小也会减少参数。 我根据最终拟合图的数量增加了数字大小，并确保单个和多个绘图数字的边距相等。

以下是一个示例代码（字体大小在1x1和2x1数字之间保持一致，但在3x2数字时减少）：

tiff("1x1.tif", width=3,height=2.5,units="in",res=600,pointsize=8,
compression="lzw",restoreConsole=T)
par(mfrow=c(1,1),mar=c(4,4,.5,.5)+0.1)
plot(x=rnorm(10),y=rnorm(10))
dev.off()

tiff("2x1.tif", height=2.5*2,width=3,units="in",res=600,pointsize=8,
compression="lzw",restoreConsole=T)
par(mfrow=c(2,1),mar=c(2,4,2.5,0.5)+0.1)
plot(x=rnorm(10),y=rnorm(10),xaxt="n",xlab="")
par(mar=c(4,4,0.5,0.5)+0.1)
plot(x=rnorm(10),y=rnorm(10))
dev.off()

tiff("3x2.tif", height=2.5*3,width=3*2,units="in",res=600,pointsize=8,
compression="lzw",restoreConsole=T)
par(mfrow=c(3,2),mar=c(.5,4,4,0.5)+0.1)
plot(x=rnorm(10),y=rnorm(10),xaxt="n",xlab="")
par(mar=c(.5,2,4,2.5)+0.1)
plot(x=rnorm(10),y=rnorm(10),xaxt="n",xlab="",yaxt="n",ylab="")
par(mar=c(2.5,4,2,0.5)+0.1)
plot(x=rnorm(10),y=rnorm(10),xaxt="n",xlab="")
par(mar=c(2.5,2,2,2.5)+0.1)
plot(x=rnorm(10),y=rnorm(10),xaxt="n",xlab="",yaxt="n",ylab="")
par(mar=c(4.5,4,0,0.5)+0.1)
plot(x=rnorm(10),y=rnorm(10))
par(mar=c(4.5,2,0,2.5)+0.1)
plot(x=rnorm(10),y=rnorm(10),yaxt="n",ylab="")
dev.off()

为什么会这样？

PS：我没有使用ggplot2或lattice，因为我在“实际”数字上使用我自己的错误栏功能（我现在不记得为什么但我尝试过工作与ggplot2错误栏并没有得到我想要的东西）。

Answer 1

控制图中对象（包括文本）的总体相对大小的参数称为cex。当您使用多个面板时，默认情况下它会减少，但可以通过手动将其设置为1来覆盖它。

par(mfrow=c(3,2), mar=c(.5,4,4,0.5)+0.1, cex=1)

题外话尖

看起来您应该使用oma（外边距）而不是在par(mar=...)的调用之间调用plot。我发现它非常有用，但似乎没有人知道它。同时ann=FALSE关闭所有的anotations，las=1将轴刻度标签水平转动。

par(mfrow=c(3,2), oma=c(4.5, 4, 4, 2.5), mar=rep(.1, 4), cex=1, las=1)
plot(x=rnorm(10), y=rnorm(10), ann=FALSE, xaxt="n")
plot(x=rnorm(10), y=rnorm(10), ann=FALSE, xaxt="n", yaxt="n")
plot(x=rnorm(10), y=rnorm(10), ann=FALSE, xaxt="n")
plot(x=rnorm(10), y=rnorm(10), ann=FALSE, xaxt="n", yaxt="n")
plot(x=rnorm(10), y=rnorm(10), ann=FALSE)
plot(x=rnorm(10), y=rnorm(10), ann=FALSE, yaxt="n")
title("My plot", outer=TRUE)
mtext("X-axis label", 1, 3, outer=TRUE)
mtext("Y-axis label", 2, 3, outer=TRUE, las=0)