R 按值范围绘制线条颜色

Question

我想制作这种图表（来自 我们的数据世界），其中线条颜色随值范围而变化。

编辑：添加屏幕截图以使其更清晰：

通过plotly，我发现了这个示例 但使用 type = scatter 和 mode = 标记图而不是线条：

    x <- seq(from = -2,
         to = 2,
         b = 0.1)
y <- sin(x)

p11 <- plot_ly() %>% 
  add_trace(type = "scatter",
            x = ~x,
            y = ~y,
            mode = "markers",
            marker = list(size = 10,
                          color = colorRampPalette(brewer.pal(10,"Spectral"))(41))) %>% 
  layout(title = "Multicolored sine curve",
         xaxis = list(title = "x-axis"),
         yaxis = list(title = "y-axis"))
p11

是否有任何方法可以使用 colorRampPalette 或值范围，但使用线条（实际上这是一个时间序列）

    x <- seq(from = -2,
         to = 2,
         b = 0.1)
y <- sin(x)

p11 <- plot_ly() %>% 
  add_trace(type = "scatter",
            x = ~x,
            y = ~y,
            mode = "lines",
            line = list(width = 1,
                          color = colorRampPalette(brewer.pal(10,"Spectral"))(41))) %>% 
  layout(title = "Multicolored sine curve",
         xaxis = list(title = "x-axis"),
         yaxis = list(title = "y-axis"))
p11

谢谢

Answer 1

你可以，但是你拥有的点数越多，它看起来就越好。请注意，我将 x 中的 .1 更改为 .001。

library(plotly)
library(RColorBrewer)

x <- seq(from = -2,
         to = 2,
         b = 0.001)
y <- sin(x)

z = cut(x, breaks = 5, include.lowest = T)

p11 <- plot_ly() %>% 
  add_lines(x = ~x,
            y = ~y,
            color = ~z,
            colors = colorRampPalette(brewer.pal(10,"Spectral"))(length(x))) %>% 
  layout(title = "Multicolored sine curve",
         xaxis = list(title = "x-axis"),
         yaxis = list(title = "y-axis"))
p11

如果我将 .001 改回 .1，那就有点难看了！你可以看到差距。