次轴的 Abline 夹

Abline clip for secondary axis

使用 ablineclip 我可以画一条直线到任何地块,例如:

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

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

如何为第二个 y 轴画一条线?? (表示右轴上的 y 值为 2 的水平线)。

我还没有代码,对于非再生代码感到抱歉。

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

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")