Plotly R：根据折线图中的不同线条更改悬停信息字体颜色

我想更改一些折线图线的悬停信息字体颜色，但不是全部。

这是一些与我的代码类似的代码：

number <- rep(c(00, 01, 02), each = 4)
animal <- rep(c("cat", "dog", "mouse"), each = 4)
year <- rep(c(2010, 2011, 2012, 2013), time = 3)
value <-  c(4, 3, 12,
            8, 19, 2,
            10, 11, 9)

df <- as.data.frame(cbind(number, animal, year, value))

chosen_colors <- c("#e7ca60",
            "#5778a4",
            "#a87c9f"
                     )

fig <-
  df %>% 
  plot_ly(.,
          y=~value,
          x = ~year,
          color = ~number,
          name = ~animal,
          colors = ~chosen_colors,
          type = 'scatter',
          mode = 'lines+markers',
          hovermode = "closest",
          hovertemplate = paste0("<b>", df$animal,"</b><br>",
                                 "<i>Year</i>: ", df$year ,"<br><extra></extra>",
                                 "<i>Value</i>: ",
                                 df$value," €<br>"))
fig <-
  fig %>% 
  layout(title = "<b>Testing (2010–2013)</b>",
         titlefont = list(size = 20),
         font = list(family = "calibri",size = 16),
         separators = ',.',
         yaxis = list(title = "Value"),
         xaxis = list(title = list(text = "", standoff = 3),
                      zeroline = FALSE),
         legend = list(orientation = 'v'))
fig

所以基本上，在这个例子中，我希望动物“鼠标”的悬停信息字体颜色为白色，而不是 R 为我选择的黑灰色。 猫的字体颜色很完美。也是给狗的！ 我想尽可能简单地做到这一点，也许可以以动物名称或数字（不是行号，而是在此 df 中称为数字的列）甚至十六进制代码为条件。

这是一个类似的问题，但它是关于条形图的。我无法更改代码来解决我的问题：Plotly R：根据不同的条形颜色更改hoverinfo字体颜色

先感谢您！

你需要的是curveNumber，通常基于迹线的数量（如果是离散着色的话，通常相当于绘图中的颜色数量）。

由于您只想更改一条迹线，因此可以添加curveNumber到 JS 中的最终调用，Plotly.restyle(el.id, h, 2);.

那么我怎么知道“鼠标”痕迹是数字 2？再次，通常这可以通过查看图例来快速确定，其中索引从零开始。因此，在此图中，cat = 0，dog = 1，mouse = 2。

这是代码：

hover2 =  "function(el, x) {
            el.on('plotly_hover', function(d){
              h = {hoverlabel: {'font': {'color': 'white'}}};
              Plotly.restyle(el.id, h, 2); /*currently cat: 0, dog: 1, mouse: 2 */
            });}"

fig %>% htmlwidgets::onRender(hover2)

（顺便说一句：在你的问题中hovertemplate， 你写了df$years，但应该是df$year)