R Shiny新手求助：无法将selectInput传递至output$table汇总组件

嘿，刚用Shiny一个月就能动手做学校的成绩汇总应用，已经超棒啦！我看你卡在了把selectInput的选项传递到汇总表格这一步，咱们来一步步解决这个问题～

首先先把你没写完的数据处理部分补全（之前的Second$Ph...应该是想完善数据框，这里直接用更规范的方式创建），然后给你一套完整的可运行代码，重点解决联动的问题：

library(shiny)
library(dplyr) # 用dplyr做汇总更简洁，不想用的话后面有base R替代写法

# 先整理好你的成绩数据
Physiology <- c(49, 64, 74, 84)
Physiology2 <- ifelse(Physiology < 50, "Fail", "Pass")
Biochemistry <- c(49, 46, 74, 84)
Biochemistry2 <- ifelse(Biochemistry < 50, "Fail", "Pass")
# 直接创建数据框，避免cbind导致数值类型变成字符
Second <- data.frame(
  Physiology = Physiology,
  Physiology_Result = Physiology2,
  Biochemistry = Biochemistry,
  Biochemistry_Result = Biochemistry2
)

# UI界面：侧边栏选科目，主面板展示汇总表
ui <- fluidPage(
  titlePanel("学生科目及格情况汇总"),
  sidebarLayout(
    sidebarPanel(
      selectInput(
        inputId = "selected_subject", # 这个ID是联动的关键，要和server里对应
        label = "选择要汇总的科目",
        choices = c("生理学" = "Physiology", "生物化学" = "Biochemistry"),
        selected = "Physiology"
      )
    ),
    mainPanel(
      tableOutput("summary_table")
    )
  )
)

# 服务器逻辑：处理输入，生成汇总表
server <- function(input, output) {
  output$summary_table <- renderTable({
    # 根据用户选择的科目，拼接对应的结果列名
    result_col_name <- paste0(input$selected_subject, "_Result")
    
    # 用dplyr统计Pass/Fail的人数
    summary_df <- Second %>%
      count(.data[[result_col_name]], name = "人数") %>%
      rename(结果 = .data[[result_col_name]])
    
    # 如果你不想用dplyr，换成base R的写法：
    # summary_df <- as.data.frame(table(Second[[result_col_name]]))
    # colnames(summary_df) <- c("结果", "人数")
    
    summary_df
  })
}

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

关键要点说明 #

• 联动的核心：input对象：UI里selectInput的inputId是selected_subject，所以在server里通过input$selected_subject就能拿到用户选的科目值，这是把前端选择传递到后端处理的关键。
• 动态引用列：因为每个科目对应一个结果列（比如Physiology对应Physiology_Result），所以用paste0拼接列名，再用.data[[列名]]（dplyr）或者数据框[[列名]]（base R）来动态获取列，这样就能根据用户选择切换数据。
• 汇总逻辑：不管用dplyr的count还是base R的table，都是统计Pass和Fail的出现次数，最后整理成清晰的汇总表。

你可以直接运行这段代码，选择不同科目就能看到对应的及格不及格人数汇总啦～

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