用于控制悬浮文本的按钮

如何解决用于控制悬浮文本的按钮

我正在绘制具有大量跟踪的跟踪类型图，结果是很多悬浮文本。但是，Y值在某个（正常）Y范围内的迹线与查看者的关系不大。因此，我想在绘图中添加按钮，按下该按钮可以部分打开和关闭悬浮文本，因此仅显示极端Y值的悬浮文本。

我已经编写了代码来删除悬浮文本定义中的普通Y范围的悬浮文本：

  # Construct hovertext
  tmp$hovertext <- as.character(tmp$value)
  
  # SD values between -2 and 2 replaces hovertext with ""
  tmp$hovertext[abs(tmp$SD) < 2] <- ""

我想知道这是否完全可用作按钮定义的输入。

注意：我一直没有找到结果。我很抱歉，如果重复的话。

谢谢。

詹斯

解决方法

我认为您可以将layout updatemenus与button和restyle结合起来……也许您可以根据需要修改以下代码？也许这不是最有效的解决方案，但是最近我正在自己试验（没有专家解决方案：D）

dat <- dplyr::tibble(X=rnorm(10),Y=rnorm(10),LAB1=X,LAB2=c(rep("",8),"1","2"))

plotly::plot_ly() %>%
    plotly::add_trace(data=dat,x=~X,y=~Y,text=paste("X:",dat$LAB1),hoverinfo="text",type="scatter",mode="markers") %>%
    plotly::layout(
        updatemenus=list(
            list(
                type = "buttons",y = 0.8,buttons = list(
                    list(method = "restyle",args = list("text",paste("X:",dat$LAB1)),label = "LABEL_1"),list(method = "restyle",dat$LAB2)),label = "LABEL_2")))))