如何在ggplotly中基于图例选中组重新排序并筛选前20个柱状图？

原代码的核心问题是提前固定筛选了全局前20个观测值，后续通过图例选择分组时，无法动态重新计算选中组的前20个观测值并重新排序。要实现交互筛选后的自动更新，需要借助Shiny监听图例选择事件，动态处理数据并重新绘图。

完整代码示例 #

library(shiny)
library(ggplot2)
library(plotly)
library(dplyr)

# 模拟示例数据集（可替换为你的真实数据集DF）
set.seed(123)
DF <- tibble(
  Obs = paste0("Obs_", 1:100),
  Group = sample(c("GroupA", "GroupB", "GroupC"), 100, replace = TRUE),
  y = rnorm(100, 50, 15)
)

ui <- fluidPage(
  plotlyOutput("bar_plot")
)

server <- function(input, output, session) {
  # 捕获图例点击事件，获取选中的分组
  selected_groups <- reactive({
    event_data("plotly_legendclick", source = "bar_plot") %>%
      pull(label) %>%
      unique()
  })
  
  # 动态筛选排序数据：无选中分组时取全局前20，有选中时取对应组前20
  filtered_data <- reactive({
    if (length(selected_groups()) == 0) {
      DF %>% arrange(desc(y)) %>% slice(1:20)
    } else {
      DF %>%
        filter(Group %in% selected_groups()) %>%
        arrange(desc(y)) %>%
        slice(1:20)
    }
  })
  
  # 生成动态更新的交互式柱状图
  output$bar_plot <- renderPlotly({
    p <- ggplot(filtered_data(), aes(x = reorder(Obs, -y), y = y, fill = Group)) +
      geom_bar(stat = "identity", width = 0.8) +
      labs(x = "观测值", y = "y值") +
      theme(axis.text.x = element_text(angle = 45, hjust = 1))
    
    ggplotly(p, source = "bar_plot") %>%
      layout(legend = list(title = list(text = "分组")))
  })
}

shinyApp(ui, server)

关键逻辑说明 #

• 图例事件监听：通过event_data("plotly_legendclick")捕获用户的图例选择操作，提取选中的分组标签。
• 动态数据处理：根据选中状态实时筛选数据，对目标分组的观测值按y值降序排列后取前20个。
• 自动排序绘图：每次数据更新后，用reorder(Obs, -y)重新校准x轴顺序，确保柱状图始终呈现选中组内的降序排列效果。

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