我正在寻找相同的功能。看来这个群体和颜色是阴谋氪石。
到目前为止,我唯一的解决方案是制作一列颜色代码并使用它来定义标记的颜色:
library(scales)
library(plotly)
grp <- c(letters[c(1,1,1,1,2,2,2,2)])
a <- c(1,2,3,4,2,3,4,5)
b <- c(1,3,5,6,1,2,4,4)
lvl <- c(1,1,2,2,1,1,2,2)
df <- data.frame(grp, a, b, lvl)
Palette <- data.frame(lvl = unique(df$lvl), color = brewer_pal("seq",palette = "Reds",direction = -1)(length(unique(df$lvl))), stringsAsFactors = FALSE)
df <- merge(x = df, y = Palette, by = "lvl")
p <- plot_ly(df, x = a, y = b, group = grp, mode = "markers+lines", marker = list(color = color, size = 8), line = list(color = "black", width = 2))
p
然而这个技巧非常麻烦,并且不适用于仅接受单一颜色输入的“线”看起来像这样 https://i.stack.imgur.com/fi3xT.png。但是,如果您不向“线”提供输入,它会显示您无法控制的两种不同颜色。像这样 https://i.stack.imgur.com/nN6jd.png