ggplotly - Hover 文本关闭 plot 在固定位置

Question

使用 ggplotly 我试图让悬停文本框的内容随着鼠标 cursor 动态变化，但在 plot 上有一个固定的 position。 我尝试使用布局 function 调整“悬停标签”，但考虑到没有编辑 position 的选项（对齐除外），因此没有成功。 有没有好的方法来做到这一点？ 谢谢！

到目前为止，这是我的代码：

  p1 <- ggplotly(p1, tooltip = c("team")) %>%

    config(displayModeBar = F, doubleClick = F, scrollZoom = F, doubleClickDelay = F) %>% layout(xaxis=list(fixedrange=TRUE, showspikes = TRUE, spikemode = 'toaxis+across+marker', spikesnap = 'hovered data+data+cursor', showline = TRUE, spikecolor = 'black',
                                                                                                            spikedash = 'solid')) %>% layout(yaxis=list(fixedrange=TRUE)) %>% layout(spikedistance = -1) %>%
    layout(hoverlabel = list(bgcolor = 'white',   font = list(family = 'Source Sans Pro'))) %>%
    layout(hovermode = "x") %>% layout(font = list(family = 'Source Sans Pro')) %>%
    layout(legend = list(font = list(family = 'Source Sans Pro'))) %>%
    onRender("function(el,x){el.on('plotly_legendclick', function(){ return false; })}")

Answer 1

我在此 github 中找到了使用相同方法的解决方案： https://github.com/ropensci/plotly/blob/master/demo/custom-javascript.ZE1E1D3D40573127E9EE0480CAF18