r - 共享 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参数 toboxplot但这给了我奇怪的输出。

提前致谢！

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 )