R-Shiny如何根据用户输入动态更新数据框实现分层筛选绘图

你写的代码不生效是两个核心错误导致的：

• Shiny的响应式系统有严格的作用域规则：server外部读入的mydata是全局静态对象，observeEvent内部对mydata的赋值只在observe的执行环境内生效，不会修改全局的原始数据；而且renderPlot没有和输入控件建立响应式依赖，所以不管单选按钮怎么切换，绘图永远读取最开始加载的全量数据，完全不会触发重绘。
• 筛选逻辑存在不可逆的bug：第一次选中"Yes"时，局部的mydata会被筛成仅含"Yes"的子集，之后再切到"No"，相当于在已经筛过的"Yes"子集里找"No"的记录，最终会得到空数据框，根本无法正常切换。

Shiny中做动态数据筛选，必须用reactive()构造响应式对象承载筛选结果，所有用到这份数据的渲染模块会自动追踪输入依赖，输入变化时自动重算、重绘，绝对不要直接在观察者函数里修改全局原始数据。
修正后的代码如下：

library(readxl)
# 全局仅执行一次原始数据读取，不要放在响应式逻辑里重复读盘
mydata = read_excel('thisdata.xlsx')

ui <- ..... # 原有UI代码无需修改

server <- function(input, output){
  # 定义响应式数据集：input$Food变化时，自动重新执行筛选
  filtered_data <- reactive({
    mydata[mydata$Food == input$Food, ]
  })

  output$distPlot <- renderPlot({
    # 调用响应式对象必须加括号，获取最新筛选结果后再绘图
    plot(filtered_data()$numCals)
  })
}

• 所有reactive()生成的响应式对象，调用时必须加括号，和函数调用写法一致，否则无法获取对象内存储的实际数据。
• 不要用observeEvent修改变量的方式做数据筛选：observe系列函数仅用来执行副作用操作（比如弹窗、写文件），不会自动触发下游输出更新，还容易出现数据被意外修改、筛选状态叠加错乱的问题。
• 如果后续需要新增其他分类字段的筛选控件，直接在filtered_data()的筛选逻辑里追加对应条件即可，所有绑定这个响应式数据集的输出（图、表、统计值）都会同步更新，不需要额外写触发逻辑。

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