par
当我oma
使用pin
. 使用时,oma
标题会向上(似乎超出oma
范围)pin
;当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