用R中的绘图中的给定值给线着色

Question

如果在给出相同问题的散点图时给出此处的答案，是否可以绘制一条基于y值的颜色的线？

示例数据

x = 1:11
y = abs(6 - x)
plot(1:22,c(y,y), col = ifelse(c(y,y) < 2.5, 2, 3), pch = 16)

会给

但是，尝试

plot(1:22,c(y,y), col = ifelse(c(y,y) < 2.5, 2, 3), type = "l")

给

或做y<2.5一些

而不是我追求的解决方案，这是

有没有简单的方法可以做到这一点？这只是一个简单的案例，我无法将每个部分手动添加到我的实际数据中。谢谢！