R Shiny筛选selectInput值后渲染Plotly图提示列不存在的解决方案

报错核心是两个逻辑问题叠加导致：

• 选择器选项配置错位：你在selectInput中手动添加"Total"选项时，没有用setNames()显式绑定选项显示值和后台传值，拼接选项时导致原有term因子水平和输入值错位，选中特定term时后台实际拿到的值和数据集中的term水平不匹配。
• 筛选逻辑分支不全：你仅对"Total"选项做了全量数据的适配，非Total分支下没有做因子类型的显式转换，拿字符型的输入值直接和因子类型的term列做匹配时，若数据集存在冗余因子水平、NA值就会触发“值不存在”的报错。

按以下步骤调整代码即可解决：

1. 修正UI端term选择器的配置，明确绑定选项值和显示文本，避免错位：

# UI端selectInput正确写法
selectInput(
  inputId = "selected_term",
  label = "选择统计范围",
  # 显式绑定选项：第一个是全样本选项，后续自动读取term列的所有因子水平
  choices = c("全样本" = "Total", setNames(levels(survey_data$term), levels(survey_data$term))),
  selected = "Total"
)

2. 调整server端数据筛选逻辑，增加明确分支，显式转换因子类型避免匹配错误：

# 放在renderPlotly前的响应式数据处理环节
plot_reactive_data <- reactive({
  # 校验输入值非空，避免初始化报错
  req(input$selected_term)
  
  if (input$selected_term == "Total") {
    # 全样本统计逻辑：不筛选term，直接计算响应占比
    survey_data |> 
      dplyr::count(survey_response) |> 
      dplyr::mutate(prop = n / sum(n), dim_label = "全样本")
  } else {
    # 特定term统计逻辑：显式将term列转字符后匹配，规避因子水平不匹配问题
    survey_data |> 
      dplyr::filter(as.character(term) == input$selected_term) |> 
      dplyr::count(survey_response) |> 
      dplyr::mutate(prop = n / sum(n), dim_label = input$selected_term)
  }
})

3. 后续扩展group、cohort维度拆分时，直接复用这套逻辑即可：给对应选择器增加"Total"选项，分支判断中对非Total值做显式字符转换后再筛选，不会再出现值找不到的报错。

• 不要直接用c("Total", levels(term))的方式拼接选择器选项，这种写法会导致选项值错位，必须用setNames()明确映射显示文本和后台传值。
• 涉及因子列的筛选匹配时，优先将列显式转为字符型再和输入值比对，避免因子水平冗余、顺序错乱导致的匹配失败。

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