r - 在 R 中的绘图中按给定值为一条线着色

Question

推进给出的答案 here对于散点图提出了相同的问题，是否可以绘制一条颜色基于 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 上做线路这使



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



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

Answer 1

尝试这个

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



for(i in 1:21){
  if(y[i]>1.9&& y[i+1]>1.9){
    linecolour="green"
  } else {
    linecolour="red"
  }
  lines(c((1:22)[i],(1:22)[i+1]),c(y[i],y[i+1]),col=linecolour)
}