如何在R Shiny中生成美观汇总表格替代verbatimTextOutput

问题原因 #

你遇到的Columns 1 and 2 must be named错误，是因为broom::tidy()原本是为统计模型对象（比如线性回归lm、逻辑回归glm）设计的，没办法直接处理base R的summary()输出结果——summary()返回的是一个非结构化的summary对象，转换成数据框后列名不规范，不符合tidy()的要求。

解决方案 #

我们可以自定义处理逻辑，把summary()的结果转换成结构化数据框，再用DT包生成美观的交互式表格。具体步骤如下：

1. 把UI里的verbatimTextOutput('summary')替换成DT::dataTableOutput('summary')，用来展示表格而非纯文本。
2. 在Server端，替换原来的renderPrint为DT::renderDataTable，并编写代码拆解summary的结果为规范的数据框。

修正后的完整代码 #

library(shiny)
library(tidyverse)
library(DT)
library(broom)

server <- function(input, output, session){
  myData <- reactive({
    inFile <- input$file1
    if (is.null(inFile)) return(NULL)
    read.csv(inFile$datapath, header = TRUE)
  })
  
  output$contents <- DT::renderDataTable({
    DT::datatable(myData())       
  })
  
  output$summary <- DT::renderDataTable({
    # 确保数据加载完成后再处理
    req(myData())
    
    sum_obj <- summary(myData())
    # 遍历每一列，拆解summary结果
    sum_df <- map_dfr(names(sum_obj), function(col_name) {
      col_summary <- sum_obj[[col_name]]
      
      # 处理数值型变量的summary（均值、中位数等统计量）
      if(is.numeric(myData()[[col_name]])) {
        tibble(
          变量名 = col_name,
          统计量 = names(col_summary),
          数值 = as.character(col_summary)
        )
      } else {
        # 处理分类变量的summary（类别频数）
        enframe(col_summary, name = "类别", value = "频数") %>%
          mutate(变量名 = col_name) %>%
          select(变量名, 类别, 频数)
      }
    })
    
    # 生成交互式表格
    DT::datatable(
      sum_df,
      options = list(pageLength = 15, searchHighlight = TRUE),
      caption = "数据集汇总统计"
    )
  })
}

ui<- shinyUI(fluidPage(
  titlePanel("文件上传与汇总展示"),
  sidebarLayout(
    sidebarPanel(
      fileInput('file1', '选择CSV文件',
                accept=c('text/csv',
                         'text/comma-separated-values,text/plain',
                         '.csv')),
      uiOutput('select')
    ),
    mainPanel(
      DT::dataTableOutput('contents'),
      DT::dataTableOutput('summary') # 替换成表格输出
    )
  )
))

shinyApp(ui,server)

关键说明 #

• req(myData())：确保只有当用户上传文件后，才会执行汇总逻辑，避免空值报错。
• 分类型处理数值变量和分类变量：数值变量展示均值、中位数等统计量，分类变量展示各类别的频数，贴合summary()的原生输出逻辑。
• DT::datatable的参数可以自定义，比如添加搜索高亮、调整每页显示行数，提升可读性。

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