匹配箭頭的兩端與x軸R情節

Question

我想知道如何得到最左邊的結束和最右邊的結束我arrows()在我情節完全匹配的最左端的和最右端的其我的X-AXIS位於其下方（如果可能，可以讀取箭頭兩端的值（在舍入誤差內）離開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) 

...但蜱在不 - 漂亮的位置（儘管你可以輕鬆控制這一點）。

另一種方法：查找認爲是正確的軸蜱當前情節：

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)