设置动态悬停标签背景颜色，r绘图散点

Question

如下示例所示，在使用scatsgl而不是scatsgl时，r绘图中的动态悬臂背景颜色似乎不起作用。

用type =“ sctive”：

library(plotly)

X <- data.frame(x = 1:6,
                y = 1:6,
                z  = 1:6)

plot_ly(data = X, x = ~x, y = ~y,
        type = "scatter", mode = "markers",
        marker = list(color = ~x, 
                      colorscale = list(c(0, .5, 1), c('#0d71db', "#dbc00d", "#db220d"))))

Hoverlabel背景颜色变成黑色，用于所有数据点，type> type =“ sctategl”：

plot_ly(data = X, x = ~x, y = ~y,
        type = "scattergl", mode = "markers",
        marker = list(color = ~x, 
                      colorscale = list(c(0, .5, 1), c('#0d71db', "#dbc00d", "#db220d"))))

< a href =“ https://i.sstatic.net/7san3.png” rel =“ nofollow noreferrer”>

我想一个解决方案可能是将与colorscale中使用的相同颜色数组传递到 bgcolor 通过hoverlabel = list = list（bgcolor = ????）来参数。但是我不知道该怎么做。

---

编辑
基于 @Quinten的答案尝试了这一点，但没有成功。可以看出，颜色是默认的plot_ly颜色，并且与cols中指定的内容无关。

library(plotly)

n <- 5000
X <- data.frame(x = sample(1:100, n, replace = TRUE),
                y = sample(1:100, n, replace = TRUE),
                z = sample(1:500, n, replace = TRUE))

length_unique_vals <- length(unique(X$z))
cols <- colorRampPalette(c('#0d71db', "#dbc00d", "#db220d"))(length_unique_vals)
cols <- cols[factor(X$z)]

plot_ly(data = X, x = ~x, y = ~y,
        type = "scattergl", mode = "markers",
        marker = list(color = ~z,
                      colorscale = cols,
                      colorbar = list(title = "Colorbar")),
        hoverlabel = list(bgcolor = cols)) %>% 
  toWebGL()

Answer 1

您可以使用 RColorBrewer 创建 6 种不同颜色的矢量。您将这些颜色分配给 marker 的 color 和 hoverlabel 的 bgcolor，这将显示右侧颜色。您可以使用以下代码：

library(plotly)

X <- data.frame(x = 1:6,
                y = 1:6,
                z  = 1:6)

library(RColorBrewer)
cols <- brewer.pal(n = 6, name = "Set3")

plot_ly(data = X, x = ~x, y = ~y,
        type = "scattergl", mode = "markers",
        marker = list(color = cols), 
        hoverlabel = list(bgcolor = cols))

输出：

正如您从图中看到的，标签与标记的颜色相同。