扩展轴的比例

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))

Answer 2

由于R在这里使用20的x轴间隙,你可以使用1720而不是1725来获得你想要的扩展,即下限,即用xlim=c(1720,max(x[,1])+10)它产生类似的东西