仅在一侧的图边距外绘制 abline

Question

我正在处理一个 R 绘图，该绘图将被我正在创建的垂直线分成两部分abline()。我希望该 abline 仅在一侧越过我的绘图边界。

我发现这篇关于设置par(xpd=) 的有用帖子。但是，我无法弄清楚如何使用此命令使线条仅在一侧越过绘图边框，如下面的屏幕截图所示。

• 有没有办法在基础 R 中做到这一点？（或者我是否必须在 ggplot 等中重建整个内容？）

• 我觉得关键可能是、 等之间的差异figure region， device region但无法真正确定它们之间的差异。我查看了这个 来源， 但至少对于我的情节来说，这些设置似乎是一样的——如果有人在这里也能得到一些帮助，那就太酷了！

这是我的方法：

plot(100, 100)
par(xpd=TRUE)
abline(v=70, lty=3)

我得到/想要的：

任何帮助表示赞赏！

Answer 1

使用lines. y根据需要设置限制。

plot(100, 100)
par(xpd = TRUE)
lines(x = c(70,70), y = c(45, par('usr')[4]), lty = 2)
# par('usr') gives the 4 extremes of plot
# par('usr')[4] gives the extreme on top

另一种选择是不要乱用xpd，axis而是使用。使用tck定义超越的情节线的长度。tck = -0.25意味着长度是朝向底部的地块高度的四分之一。

plot(100, 100)
par(xpd = FALSE) #Only because we made TRUE above 
abline(v = 70, lty = 2)
axis(1, at = 70, labels = NA, tck = -0.25, lty = 2)