r - 扩展轴的比例

Question

我在 R 中生成了以下直方图:

我使用 hist() 调用生成了它:

hist(x[,1], xlab='t* (Transition Statistic)',
     ylab='Proportion of Resamples (n = 10,000)',
     main='Distribution of Resamples', col='lightblue',
     prob=TRUE, ylim=c(0.00,0.05),xlim=c(1725,max(x[,1])+10))

加上以下 abline():

abline(v=1728,col=4,lty=1,lwd=2)

那条垂直线表示测试统计的实际位置，我正在将其与排列样本的结果进行比较。

我的问题是:如您所见，x 刻度没有延伸回垂直线。我真的很希望它这样做，因为我认为否则它看起来很奇怪。我怎样才能做到这一点？

xaxs="i"参数我已经试过了，没有效果。我也尝试用 axis() 制作我自己的轴，但这需要从头开始重新制作两个轴，结果对我来说看起来不太好。所以，我怀疑一定有更简单的方法来做到这一点。有没有？而且，如果不是，谁能建议什么 axis() 命令可能工作得很好，假设我希望一切看起来基本相同，但 x 比例更长？

Answer 1

通常的 R 绘图会在绘图周围画一个框。要添加它，请执行以下操作:

box()

剧情之后。

如果这不是您想要的，您需要取消轴绘图，然后再添加您自己的绘图。

hist(...., axes = FALSE) ## .... is where your other args go
axis(side = 2)
axis(side = 1, at = seq(1730, 1830, by = 20))

这不会完全接近垂直线，但可能足够接近。如果您想在垂直线上打勾，请选择不同的刻度线，例如

axis(side = 1, at = seq(1725, 1835, by = 20))