嘿，作为Shiny新手碰到这种表格输入保存的问题太正常了！我给你整理了一个可运行的完整示例，完美匹配你要的「响应按列、用户名为行名」的输出结构，还会帮你分析可能踩的坑！

完整可复现代码 #

library(shiny)

# 模拟测试用的用户名和响应项（对应输出的列）
users <- c("用户张三", "用户李四", "用户王五")
responses <- c("响应选项1", "响应选项2", "响应选项3")

ui <- fluidPage(
  titlePanel("单选按钮表格输入保存"),
  
  # 动态生成单选按钮表格：每行一个用户，每列一个响应项
  uiOutput("radio_input_table"),
  
  # 触发保存的按钮
  actionButton("save_data_btn", "保存输入数据"),
  
  # 显示保存状态提示
  verbatimTextOutput("save_status_msg")
)

server <- function(input, output, session) {
  
  # 动态渲染单选按钮表格
  output$radio_input_table <- renderUI({
    tags$table(
      tags$thead(
        tags$tr(
          tags$th("用户名"),
          lapply(responses, function(resp) tags$th(resp))
        )
      ),
      tags$tbody(
        lapply(users, function(user) {
          tags$tr(
            tags$td(user),
            lapply(responses, function(resp) {
              # 给每个单选按钮设置唯一ID：用户名_响应项，方便后续批量获取输入
              tags$td(
                radioButtons(
                  inputId = paste0(user, "_", resp),
                  label = NULL,
                  choices = c("同意", "反对", "不确定"),
                  selected = NULL,
                  inline = TRUE
                )
              )
            })
          )
        })
      )
    )
  })
  
  # 监听保存按钮的点击事件
  observeEvent(input$save_data_btn, {
    # 1. 整理输入数据为目标格式的数据框
    result_df <- data.frame(
      row.names = users,  # 直接把用户名设为行名
      stringsAsFactors = FALSE
    )
    
    # 遍历每个响应项（作为列），收集所有用户的选择
    for (resp in responses) {
      result_df[[resp]] <- sapply(users, function(user) {
        input[[paste0(user, "_", resp)]]  # 根据统一命名的ID获取输入值
      })
    }
    
    # 2. 保存为.RData和CSV文件
    save(result_df, file = "用户响应数据.RData")
    write.csv(result_df, file = "用户响应数据.csv", row.names = TRUE)
    
    # 显示保存成功提示
    output$save_status_msg <- renderPrint({
      cat("数据已成功保存：\n- 用户响应数据.RData\n- 用户响应数据.csv")
    })
  })
}

shinyApp(ui, server)

关键细节&错误分析 #

核心设计点 #

• 统一的输入ID命名：我用用户名_响应项的格式给每个单选按钮设置唯一ID（比如用户张三_响应选项1），这样能批量遍历获取所有输入值，避免手动逐个提取，这大概率是你之前出错的原因之一。
• 精准的结构整理：直接把用户名设为行名，遍历响应项作为列，用sapply批量填充每个用户的选择，完美匹配你要的矩阵结构。
• 触发式保存逻辑：用observeEvent监听按钮点击，确保只有用户主动触发时才执行保存，避免提前保存空数据或重复保存。

你可能遇到的两种错误 #

1. 输入收集失败：如果你的单选按钮ID没有统一规则，或者遍历逻辑错误，会导致无法获取完整输入值，出现NULL或报错。比如用了无规律的ID，没法批量提取，就会得到不完整的数据。
2. 数据结构颠倒：如果把响应项设为行、用户设为列，就不符合你的期望输出。只需要调整循环顺序：先遍历响应项作为列，再遍历用户填充每行数据即可。

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