r - 辅助轴的 Abline 夹

Question

有了ablineclip我可以画一条直线到任何情节，如：

 ablineclip(h = 2, x1 = 0,x2 = 5,lty = 2, col = "green")

这绘制了一条水平线，其中 y=2 从 x=0 到 x=5。

如何为第二个 y 轴画一条线？（表示右轴上 y 值为 2 的水平线）。

我还没有代码，对不起非生殖代码。

Answer 1

像下面这样的东西会起作用：

library(plotrix)
plot(1, type="n", xlim=c(-10,10), ylim=c(0,4))
ablineclip(h = 2, x1 = 0,x2 = 5,lty = 2, col = "green")
par(new=TRUE)
plot(1, type="n", xlim=c(-10,10), ylim=c(10,15), xaxt="n",yaxt="n",xlab="",ylab="")
axis(4)
ablineclip(h = 12, x1 = -4,x2 = 4,lty = 2, col = "red")