Plotly R：根据不同的条颜色更改Hoverinfo字体颜色

Question

我有此数据框：

df2 = data.frame(value = c(9, 2, 7, 3, 6),
                 key = c('ar', 'or', 'br', 'gt', 'ko'))

这是我必须生成的代码此图

df2 %>% 
  plot_ly(x = ~key,
          y = ~value,
          type = 'bar',
          color = ~value,
          colors = c(rgb(0, 0, 0, 1), rgb(1, 0.85, 0.85, 1)),
          stroke = I('black'),
          span = I(1),
          hoverinfo = 'text',
          hovertext = ~paste0('value: ', value,
                              '\nkey: ', key)
          ) %>% 
  layout(hoverlabel = list(bordercolor = 'transparent', 
                           font = list(family = 'DM Sans', 
                                       size = 15, 
                                       color = 'white')))

但是，如图所示，上面，Hoveinfo的字体颜色是 white 在悬停在较浅的颜色上时。

基本上，我想将字体颜色设置为黑色时颜色较轻，而白色当颜色变暗时为白色，如这些图像所示： black，当更轻和白色，当时

这里有任何技巧吗？

Answer 1

可能有比这更容易的方法，但这有效。除了plotly，我已经使用了软件包htmlwidgets。

我以文本颜色的变化为单写，因为替代方案是五个单独的痕迹，就像您在问题中所避免的那样。

在JS中，我有一个IF -else语句，它查询pointernumber。指针编号是标记，条，线条的数量，无论您的情节上有什么。在这种情况下，是酒吧。

指针数总是从零开始，并且是连续的数字 - 不要假设该顺序与可视化匹配。 （我认为它遵循提供数据的顺序，但我从来没有觉得需要调查它，所以我不是100％。）

在此代码中，我更改了指针数0，以具有黑色文本（这就是浅粉红色）。如果您觉得br bar也应该有黑色文本，则可以修改如果（pn === 0）{ to if（pn === 0） ||。 （指针编号1恰好是最右边的列。）

事件代码：

hoverer = "function(el, x) {
            el.on('plotly_hover', function(d){
              var pn = d.points[0].pointNumber;
              var fon = [];
              var hov = [];
              if(pn === 0){ 
                col = 'black';
              } else {
                col = 'white'};
              fon = {
                'family': 'DM Sans',
                'size': 15,
                'color': col};
              hov = {
                'bordercolor': 'transparent',
                'font': fon};
              h = {hoverlabel: hov};
              Plotly.restyle(el.id, h);
            });}"

这是您与图形一起使用的方式：

df2 %>% 
  plot_ly(x = ~key,
          y = ~value,
          type = 'bar',
          color = ~value,
          colors = c(rgb(0, 0, 0, 1), rgb(1, 0.85, 0.85, 1)),
          stroke = I('black'),
          span = I(1),
          hoverinfo = 'text',
          hovertext = ~paste0('value: ', value,
                              '\nkey: ', key)) %>% 
  layout(hoverlabel = list(bordercolor = 'transparent', 
                           font = list(family = 'DM Sans', 
                                       size = 15, 
                                       color = 'white'))) %>% 
  htmlwidgets::onRender(hoverer) # this will trigger the event driven code