R中的par()选项pin和oma

Question

在使用pin指定打印大小时，使用par选项oma设置打印范围标题时遇到问题。当使用pin时，oma标题位于上方(似乎超出了oma范围)；当pin被注释掉时(如下所示)，oma标题位置在视觉上很吸引人。我尝试了轮换par选项的顺序，认为其中一个选项可能会覆盖其他选项，但没有成功。代码如下。感谢大家提供的线索！谢谢，汤姆

par(mfrow=c(1,2)) # 1X2 graphs
par(oma=c(0,0,5,0))  # top has 5 lines of space 
par(mar=c(4,4,2,1)+.1)  # margin lines
#par(pin=c(1.9,1.9))  # plot areas for graphs

# plot 1
plot(rnorm(n=20),col="olivedrab",pch=19,ylim=c(-2.0,2.0),xlim=c(0,20),ylab="",xlab="")
mtext("Observation No.",side=1,line=3)
mtext("Random variate",side=2,line=3)
mtext("Olivedrab Plot",side=3,line=2,cex=1.5)

# plot 2
plot(rnorm(n=20),col="olivedrab2",pch=19,ylim=c(-2.0,2.0),xlim=c(0,20),ylab="",xlab="")
mtext("Observation No.",side=1,line=3)
mtext("Random variate",side=2,line=3)
mtext("Olivedrab Plot",side=3,line=2,cex=1.5)

mtext("Army Olive Drab Plots",side=3,line=3,cex=2,outer=TRUE)  # add outer label

Answer 1

您没有描述您希望看到的内容，而只是描述了哪些代码会产生您不喜欢的内容。我猜您希望看到mtext生成一个离图形设备外边缘更远(更靠近图形)的“主标题”，我建议您使用负数来放置。正如帮助页面上所说的，'line‘指定“从0开始向外计数”(尽管我找不到我们应该期望零行在哪里的描述)。

par(mfrow=c(1,2)) # 1X2 graphs
par(oma=c(0,0,5,0))  # top has 5 lines of space 
par(mar=c(4,4,2,1)+.1)  # margin lines
par(pin=c(1.9,1.9))  # plot areas for graphs

# plot 1
plot(rnorm(n=20),col="olivedrab",pch=19,ylim=c(-2.0,2.0),xlim=c(0,20),ylab="",xlab="")
mtext("Observation No.",side=1,line=3)
mtext("Random variate",side=2,line=3)
mtext("Olivedrab Plot",side=3,line=2,cex=1.5)

# plot 2
plot(rnorm(n=20),col="olivedrab2",pch=19,ylim=c(-2.0,2.0),xlim=c(0,20),ylab="",xlab="")
mtext("Observation No.",side=1,line=3)
mtext("Random variate",side=2,line=3)
mtext("Olivedrab Plot",side=3,line=2,cex=1.5)

mtext("Army Olive Drab Plots",side=3,line=-3,cex=2,outer=TRUE)