Shiny中响应式ggplot切换输入选项后箱线图不更新问题

你的代码无法随选项更新有3个核心问题：

• ggplot的aes()默认使用非标准求值，直接传入字符串类型的输入值不会被正确识别为数据列，且你没有对数据做子集筛选，始终在用全部数据绘图，所以切换选项时箱线图的分布不会变化。
• selectInput的选项中" Marsh tit"前多了一个多余空格，和数据中的物种名不匹配，选中该项时会无法匹配到对应数据。
• 手动写死选项列表容易出现拼写、格式错误，也不利于后续数据更新。

1. 直接从数据中提取物种列表作为下拉选项，避免手动输入的格式错误。
2. 绘图前先筛选出当前选中物种对应的子集数据。
3. 把因子类型的物种列转成字符型，避免原示例数据中因子水平和取值不匹配的异常。

library(shiny)
library(tidyverse)

# 预处理示例数据：将因子转字符，避免原数据因子水平与取值不匹配的问题
df <- df %>% 
  mutate(Species = as.character(Species))

ui <- fluidPage(
  selectInput(
    inputId = "species", 
    label = "Choose Species",
    choices = unique(df$Species) # 直接从数据提取选项，避免手动输入错误
  ),
  plotOutput("csboxplot")
)

server <- function(input, output) {
  output$csboxplot <- renderPlot({
    df %>%
      filter(Species == input$species) %>% # 筛选当前选中物种的数据
      ggplot(aes(x = input$species, y = Clutch.size)) +
      geom_boxplot() +
      labs(x = "Species", y = "Clutch Size")
  })
}

# 启动应用
shinyApp(ui = ui, server = server)

运行后切换下拉选项，就会展示对应物种的窝卵数箱线分布。

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