如何根据r中的X值更改折线图颜色

Question

我已经尝试过这个，它会根据 Y 轴对应的级别更改图表颜色。 是否可以这样做，但图表应根据 X 轴值对应的级别更改颜色？

`

library(plotrix)
library(RColorBrewer)
my_colors = brewer.pal(8, "Set2") 
x<-seq(1,100)
y<-sin(x/5)+x/20
par(mar=c(4,4,2,2))
clplot(x, y, main="", lty = 5,lwd=5, levels=c(1,2,3,4,5), col=my_colors, showcuts=T , bt='n')

`

Image

Answer 1

这里是一个基本图形的例子。函数segments(x0, y0, x1 = x0, y1 = y0, col ....)从每个x0, y0到下一个对应的x1, y1画线，我们需要删除x0的第一个元素和x1的最后一个元素：

library(RColorBrewer)
ncol <- 8
my_colors <- brewer.pal(ncol, "Set2") 
x <- 1:100
y <- sin(x/5) + x/20

plot(x, y, type="n")
n <- length(x)
segments(x[-1], y[-1], x[-n], y[-n], col=my_colors[ceiling(ncol * x[-1]/max(x))], lwd=2)

连续的颜色也是可能的。