共享x轴

Question

考虑以下R代码的输出：

par( mar=c(5,4,4,5)+.1 )
boxplot( t( matrix( rnorm( 100 ), nrow=10 )), xlab="Var1", ylab="Var2")
par( new=T )
plot( 1:10, runif(10,min=-2, max=3), xaxt='n', yaxt='n', xlab='', ylab='', type='b', col='blue', pch=15 )
axis(4)
mtext("Var3", side=4, line=3 )

蓝点未与x轴对齐。我想让两个图正确地分享x轴。我尝试将at参数用于boxplot，但这给了我奇怪的输出。

提前致谢！

PK ^ _ ^

Answer 1

为什么不使用lines？

par( mar=c(5,4,4,5)+.1 )
boxplot( t( matrix( rnorm( 100 ), nrow=10 )), xlab="Var1", ylab="Var2")
lines( 1:10, runif(10,min=-2, max=3), type='b', col='blue', pch=15 )
axis(4)
mtext("Var3", side=4, line=3 )