如何根据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)

也可以使用连续的颜色。