用多幅土地的比例尺文字绘制？

Question

我创建了一个带有两个y轴的图形，并使用mtext（）来标记右轴。

# generate some data to plot 
x <- 1:5 
y1 <- rnorm(5) 
y2 <- rnorm(5,20) 

# set margins 
par(mar=c(5,4,4,5)+.1) 

# plot first x/y line 
plot(x,y1,type="l",col="red") 

#plot second x/y line 
par(new=TRUE) 
plot(x, y2,,type="l",col="blue",xaxt="n",yaxt="n",xlab="",ylab="") 
axis(4) 
mtext("y2",side=4,line=3) 

这个工程本身很好。但是，如果你把这个与多条曲线的人物：

# create a 3x3 figure for multiple plots 
par(mfrow = c(3, 3)) 

# generate some data to plot 
x <- 1:5 
y1 <- rnorm(5) 
y2 <- rnorm(5,20) 

# set margins 
par(mar=c(5,4,4,5)+.1) 

# plot first x/y line 
plot(x,y1,type="l",col="red") 

#plot second x/y line 
par(new=TRUE) 
plot(x, y2,,type="l",col="blue",xaxt="n",yaxt="n",xlab="",ylab="") 
axis(4) 
mtext("y2",side=4,line=3) 

这里，左手y轴的标签变小，而右侧轴没有。

我知道这种行为的根源是，在mtext()的cex参数不是相对于par("cex");我想要的是解决这个问题。

Answer 1

解决此问题的最佳方法是使用par()$cex属性。所以你的代码是：

x <- 1:5 
y1 <- rnorm(5) 
y2 <- rnorm(5,20) 

par(mfrow = c(3, 3), mar=c(5,4,4,5)+.1) 
plot(x,y1,type="l",col="red") 
par(new=TRUE) 
plot(x, y2,,type="l",col="blue",xaxt="n",yaxt="n",xlab="",ylab="") 
axis(4) 
mtext("y2",side=4,line=3, cex=par()$cex)