Shiny中通过selectInput筛选数据集列失败的问题排查求助

我看了你的代码和数据集，问题主要出在两个地方，咱们一步步来解决：

1. 下拉选项与数据集列名不匹配 #

你的selectInput里的选项（比如"NO"、"IA"）在MegaReport里根本不存在！看你给出的数据集头部，实际的污染物列是NO2、NOX、O3、RSP、FSP、SO2。当你用不存在的列名去筛选数据集时，R找不到对应的列，自然输出为空。

所以首先要把selectInput的choices改成和数据集实际列名完全一致的内容，比如：

selectInput("Pollutant", "Choose the first pollutant:",
            list(`Nitrogen` = c("NO2", "NOX"), 
                 `Ozone` = "O3", 
                 `Particulate` = c("RSP", "FSP"),
                 `Sulfur` = "SO2")
),
selectInput("Pollutant2", "Choose the second pollutant:",
            list(`Nitrogen` = c("NO2", "NOX"), 
                 `Ozone` = "O3", 
                 `Particulate` = c("RSP", "FSP"),
                 `Sulfur` = "SO2")
)

2. 布局结构错误 #

你在mainPanel里面又嵌套了一个sidebarPanel，这不符合Shiny的布局规范，会导致输出元素无法正确渲染。应该直接把输出元素放在mainPanel里，去掉多余的sidebarPanel：

mainPanel(
  textOutput("result"),
  textOutput("result2"),
  tableOutput("data")
)

修正后的完整代码 #

把这两处修改整合后，代码应该是这样的：

if (interactive()) {
  # demoing optgroup support in the `choices` argument
  shinyApp(
    ui = fluidPage(
      sidebarLayout(
        sidebarPanel(
          selectInput("Pollutant", "Choose the first pollutant:",
                      list(`Nitrogen` = c("NO2", "NOX"), 
                           `Ozone` = "O3", 
                           `Particulate` = c("RSP", "FSP"),
                           `Sulfur` = "SO2")
          ),
          selectInput("Pollutant2", "Choose the second pollutant:",
                      list(`Nitrogen` = c("NO2", "NOX"), 
                           `Ozone` = "O3", 
                           `Particulate` = c("RSP", "FSP"),
                           `Sulfur` = "SO2")
          )
        ),
        mainPanel(
          textOutput("result"),
          textOutput("result2"),
          tableOutput("data")
        )
      )),
    server = function(input, output) {
      output$result <- renderText({
        paste("Active Pollutant 1:", input$Pollutant)
      })
      output$result2 <- renderText({
        paste("Active Pollutant 2:", input$Pollutant2)
      })
      output$data <- renderTable({
        # 确保选中的列存在于数据集中，避免初始加载报错
        req(input$Pollutant, input$Pollutant2)
        MegaReport[, c(input$Pollutant, input$Pollutant2), drop = FALSE]
      }, rownames = TRUE)
    }
  )
}

另外，我还加了req(input$Pollutant, input$Pollutant2)，这是为了确保在用户选择选项之前，不会执行数据集筛选的代码，避免出现错误提示，提升用户体验。

现在运行修改后的代码，应该就能正确显示你选中的两个变量对应的列了！

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