添加直线到绘图

Question

如何在此绘图中添加直线形式（5,5）到无穷大？我使用abline但我不希望5到5之间的线，只需要在5到无穷大之后。

x <- c(1:5); y <- x
plot(x, y, type="l")
abline(v= max(x), col="black", lwd=2, lty=2)

Answer 1

您可以使用segments和par('usr')来提取现有的轴限制。我使用lty=1来表明它将延伸到绘图区域的边缘

 plot(x,y,type = 'l')
 segments(x0 = max(x), y0 = max(y), y1 = par('usr')[4], lwd=2)