如何在Plotly饼图中获取选中区域的数据（含Shiny代码片段）

要在Shiny里实现点击/选中Plotly饼图区域就能获取对应数据，其实很简单——Plotly和Shiny已经内置了交互事件支持，直接用event_data()就能搞定。我帮你把代码修改并完善了，具体方案如下：

核心思路 #

Plotly在Shiny中提供了event_data("plotly_selected")（支持框选或点击单个区域）和event_data("plotly_click")（仅响应点击）两个函数，用来捕获用户对图表的交互操作。我们可以通过返回的事件数据中的label字段，去匹配原始数据框中对应的行，从而拿到选中区域的完整数据。

修改后的完整Server代码 #

shinyServer(function(input, output, session) { 
  # 保留你原有的数据预处理逻辑
  usvltdyearstore1 = data.frame( 
    Sold_that_area=as.numeric(as.character(usvltdprodmonyear$QTY)), 
    Month =usvltdprodmonyear$MONTHNAME, 
    TOTAL= usvltdprodmonyear$TOTAL, 
    stringsAsFactors = FALSE 
  ) 

  # 完善Plotly饼图的绘制配置
  output$usvltdmonthprod=renderPlotly({ 
    plot_ly(usvltdyearstore1, 
            labels = ~Month, 
            values = ~Sold_that_area, 
            type = "pie",
            textinfo = "label+percent", # 可选：显示标签和占比
            hoverinfo = "all" # 可选：悬停时展示全部字段信息
            ) %>%
      layout(title = "月度销售统计饼图")
  })

  # 处理并输出选中区域的对应数据
  output$selected_month_data <- renderPrint({
    # 获取Plotly选中事件的元数据
    selection <- event_data("plotly_selected")
    
    if (!is.null(selection)) {
      # 通过label匹配原始数据中的对应行
      matched_data <- usvltdyearstore1[usvltdyearstore1$Month == selection$label, ]
      cat("选中区域的详细数据:\n")
      print(matched_data)
    } else {
      cat("未选中任何区域，请点击饼图中的月份区域")
    }
  })
})

对应的UI部分补充 #

你需要在UI中添加一个输出控件来展示选中的数据，比如用verbatimTextOutput：

shinyUI(fluidPage(
  plotlyOutput("usvltdmonthprod"),
  # 用于展示选中区域的完整数据
  verbatimTextOutput("selected_month_data") 
))

关键点说明 #

• 当你选中饼图中的蓝色区域（二月）时，event_data()会捕获到该区域的label值（比如"二月"或"February"，取决于你的MONTHNAME字段内容），自动匹配到usvltdyearstore1中对应的行，输出完整的Sold_that_area、Month、TOTAL数据。
• 如果你只想响应点击事件而非框选，把代码中的plotly_selected替换成plotly_click即可。
• 确保你的Month字段和饼图的label完全一致，否则匹配会失败。

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