将箭头的末端与x轴R图匹配

Question

我想知道如何使我的最左边--最末端和我的中的arrows()的最右端与<代码最左--最末端--E19右侧--最末端E 210完全匹配(如果可能的话，这样的话，人们就可以读取位于其下方的X-轴箭头的两端的值(如果可能的话，在舍入误差范围内)？

这里是我的R代码，但没有成功：

ci <- c(0.09253967, 0.48434172)

plot(1, 1, ty="n" ,ann=F, yaxt="n", bty="n", xlim=c(ci[1], ci[2]), ylim=c(0, 1), xaxs="i")

arrows(ci[1], .01, ci[2], .01, code=3, lwd=2, angle = 90, length = .08 )

Answer 1

一种方法：控件，axis在其中放置滴答：

ci <- c(0.09253967, 0.48434172)
plot(1, 1, ty="n" ,ann=F, yaxt="n", bty="n", xlim=c(ci[1], ci[2]), ylim=c(0, .3), xaxt="n")
axis(side = 1, at = ci)
arrows(ci[1], .01, ci[2], .01, code=3, lwd=2, angle = 90, length = .08 )

..。但是蜱的位置不是很漂亮(尽管你可以很容易地控制它)。

另一种方法：查找axTicks认为正确的当前绘图的轴点：

newx <- range(axTicks(side = 1))
newx
# [1] 0.1 0.4

# ... your plotting code ...
arrows(newx[1], 0.02, newx[2], 0.02, code=3, lwd=2, angle=90, length=.08)