Shiny中多group by分组同时单独展示多统计表格的实现方法咨询

实现逻辑 #

• 调整分组统计规则：对每个选中的分组维度单独计算统计结果，不再按多个维度合并分组
• 前端用动态UI容器：根据选中的维度数量，自动生成对应数量的表格渲染位
• 服务端批量渲染：循环为每个维度生成独立的统计表格

完整可运行代码 #

library(dplyr)
library(shiny)

iris$Species2 <- iris$Species

ui <- fluidPage(
  selectInput(inputId ="column",
              label = "选择要统计的分组维度",
              choices = c("Species", "Species2"),
              selected = "Species", multiple = T),
  # 动态表格容器
  uiOutput("table_container")
)

server <- function(input, output) {
  # 动态生成对应数量的表格输出位
  output$table_container <- renderUI({
    req(input$column)
    lapply(input$column, function(col_name) {
      DT::dataTableOutput(outputId = paste0("dt_", col_name))
    })
  })
  
  # 批量渲染每个分组维度的统计表格
  observe({
    req(input$column)
    lapply(input$column, function(col_name) {
      output[[paste0("dt_", col_name)]] <- DT::renderDataTable({
        # 按当前单个维度分组统计
        stat_res <- iris %>%
          dplyr::group_by(.data[[col_name]]) %>% 
          summarise(mean1 = mean(Sepal.Length))
        DT::datatable(stat_res, caption = paste0("分组维度：", col_name))
      })
    })
  })
}

# 运行应用
shinyApp(ui = ui, server = server)

效果说明 #

选中多个分组维度后，页面会按顺序展示每个维度对应的独立统计表格，每个表格仅对应当前维度的聚合结果，和预期输出效果一致。

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