按钮来控制悬停文本

Question

我正在制作带有大量轨迹的轨迹类型图，结果是大量的悬停文本。但是，Y值在某个(正常)Y范围内的轨迹与查看器不是很相关。因此，我想在我的绘图中添加一些按钮，当按下这些按钮时，会部分打开和关闭悬停文本，因此只会显示极端Y值的悬停文本。

我已经编写了在hovertext的定义中删除正常Y范围的hovertext的代码：

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

我想知道这作为按钮定义的输入是否有用。

注意:我已经找过了，但是没有结果。如果这是复制品，我很抱歉。

提前谢谢。

延斯

Answer 1

我认为您可以将layout updatemenus与button和restyle结合起来。也许你可以修改下面的代码来满足你的需要？这可能不是最有效的解决方案，但这些天我自己也在试验plotly (没有专家的解决方案: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",
                         args = list("text",paste("X:",dat$LAB2)),
                         label = "LABEL_2")))))