如何在不使用Shiny的情况下为ggplotly添加term下拉筛选列表？

想要将数据集的term变量设置为下拉筛选列表，选择后即时更新ggplotly图表，但当前plotly会同时展示所有term项，参考相关代码后仍未解决，怀疑是否是geom_errorbar导致该问题？

相关代码 #

{r, knitr::opts_chunk$set(echo = TRUE)}
library(plotly)
library(tidyverse)
library(magrittr)


#sample data
result_table = structure(list(wave = c(5L, 5L, 5L, 6L, 6L, 6L), term = c(1L, 
       2L, 3L, 1L, 2L, 3L), estimate = c(3.317, 0.887, 1, 0.828, 0.995, 
       1), Std.Error = c(1.249, 1.044, 1, 1.04, 1.003, 1), Statistic = c(10.305, 
       -1.571, 1, -3.297, -0.96, 1), P.Value = c(1, 1.01, 1, 1, 1.05, 
       1), conf.low = c(2.829, 0.802, 1, 0.749, 0.989, 1), conf.high = c(3.806, 
       0.973, 1, 0.906, 1, 1)), class = "data.frame", row.names = c(NA, 
       -6L))
result_table$wave %<>% as.factor
result_table$term %<>% as.factor
gg <- ggplot(result_table, aes(x = wave,  y = estimate,group = term)) +
      geom_point(aes(color = wave), size = 2) +
      geom_errorbar(aes(ymin=conf.low, ymax=conf.high,color = wave), 
                        linewidth=.1) + 
      geom_hline(yintercept = 0) + 
      labs(color = "Wave") +
      ylab('Estimate') +
      xlab('Term') +
      theme_classic() 

# Create a plotly object from ggplot
p <- ggplotly(gg)

p <- p %>% layout(showlegend = F,
  updatemenus = list(
    list(
      x = 1.5,
      y = 0.8,
#      yanchor = "bottom",
#      xanchor = 'center',
      buttons = list(
        list(method = "restyle",
             args = list("visible", list(TRUE, FALSE, FALSE)),
             label = "1"),
        
        list(method = "restyle",
             args = list("visible", list(FALSE, TRUE, FALSE)),
             label = "2"),
        
        list(method = "restyle",
             args = list("visible", list(FALSE, FALSE, TRUE)),
             label = "3")
      )
    )
  )
)

p

当前效果 #

图表会同时显示所有term对应的点和误差线，选择下拉菜单中的选项后，无法隐藏其他term的元素，所有内容仍处于显示状态。

问题原因 #

你之前的代码用restyle控制visible参数时，只设置了3个布尔值，但ggplot转成plotly后，每个图层（geom_point、geom_errorbar）都会为每个分组生成独立的trace，再加上geom_hline的trace，总trace数量远多于3个，导致你设置的布尔值无法对应到正确的元素，筛选自然失效——和geom_errorbar本身无关，是trace匹配的问题。

修正代码 #

改用plotly的**数据筛选（transform）**功能，通过绑定term字段来动态过滤数据，更可靠且无需手动计算trace数量：

library(plotly)
library(tidyverse)
library(magrittr)

# 示例数据
result_table = structure(list(wave = c(5L, 5L, 5L, 6L, 6L, 6L), term = c(1L, 
       2L, 3L, 1L, 2L, 3L), estimate = c(3.317, 0.887, 1, 0.828, 0.995, 
       1), Std.Error = c(1.249, 1.044, 1, 1.04, 1.003, 1), Statistic = c(10.305, 
       -1.571, 1, -3.297, -0.96, 1), P.Value = c(1, 1.01, 1, 1, 1.05, 
       1), conf.low = c(2.829, 0.802, 1, 0.749, 0.989, 1), conf.high = c(3.806, 
       0.973, 1, 0.906, 1, 1)), class = "data.frame", row.names = c(NA, 
       -6L))
result_table$wave %<>% as.factor
result_table$term %<>% as.factor

# 构建ggplot，为点和误差线绑定term到customdata字段
gg <- ggplot(result_table, aes(x = wave,  y = estimate)) +
      geom_point(aes(color = wave, customdata = term), size = 2) +
      geom_errorbar(aes(ymin=conf.low, ymax=conf.high, color = wave, customdata = term), 
                        linewidth=.1) + 
      geom_hline(yintercept = 0) + 
      labs(color = "Wave") +
      ylab('Estimate') +
      xlab('Wave') +  # 修正原x轴标签错误：x轴是wave不是term
      theme_classic() 

# 转换为plotly对象
p <- ggplotly(gg)

# 添加下拉筛选菜单
p <- p %>% layout(
  showlegend = FALSE,
  # 设置下拉菜单位置和按钮
  updatemenus = list(
    list(
      x = 1.1,
      y = 1,
      # 生成对应每个term的按钮，再加上"显示全部"
      buttons = c(
        lapply(unique(result_table$term), function(t) {
          list(
            method = "restyle",
            args = list(
              "transforms[0].filter", 
              list(column = "customdata", operation = "=", value = t)
            ),
            label = as.character(t)
          )
        }),
        list(
          method = "restyle",
          args = list("transforms[0].filter", NULL),
          label = "显示全部"
        )
      )
    )
  ),
  # 初始添加筛选规则，默认显示全部
  transforms = list(
    list(
      type = "filter",
      target = "customdata",
      operation = "=",
      value = NULL
    )
  )
)

p

关键修正点 #

1. 给geom_point和geom_errorbar添加customdata = term，让每个可视化元素都关联对应的term值，方便后续筛选
2. 使用plotly的transform筛选功能，通过customdata字段匹配选中的term，自动过滤所有图层中不符合条件的元素
3. 修正了原代码中x轴标签的错误（原x轴是wave却标注为Term）
4. 增加了"显示全部"按钮，方便快速切换回完整视图

内容的提问来源于stack exchange，提问作者doraemon