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

也可以使用连续的颜色。