Shiny应用中响应式数据框驱动的条形图不更新问题排查

你的条形图之所以没跟着单选按钮变化，核心原因是你当前的条形图展示的是每个Species下所有Sepal.Length值的堆叠总和。当你对整个数据集按Sepal.Length升/降序排序时，只是改变了数据行的顺序，但每个Species对应的Sepal.Length总和并没有变化，所以条形图的高度看起来完全没反应。而表格是逐行展示数据，排序后行的顺序改变，所以能明显看到变化。

根据你的需求，分两种常见场景给出解决办法：

场景1：展示每个物种的汇总统计（比如均值/中位数） #

如果你想让条形图展示每个Species的Sepal.Length统计量（而非个体值的堆叠），可以先对响应式数据按Species分组计算统计量，再绘图。这样如果后续你调整排序逻辑涉及统计量变化（比如按统计量排序），条形图也会随之变化：

output$my.barplot <- renderPlot({
  df() %>%
    group_by(Species) %>%
    summarise(avg_sepal_length = mean(Sepal.Length)) %>% # 这里可以换成median、sum等
    ggplot(aes(x = Species, y = avg_sepal_length)) +
    geom_bar(stat = "identity", fill = "steelblue") +
    labs(y = "Average Sepal Length")
})

场景2：展示每个个体的Sepal Length（与表格排序同步） #

如果你希望条形图和表格的排序完全对应，展示每个个体的Sepal.Length，可以给排序后的数据集添加行号作为x轴，这样排序后条形的顺序会和表格一致：

output$my.barplot <- renderPlot({
  df() %>%
    mutate(individual = row_number()) %>% # 用排序后的行号作为个体标识
    ggplot(aes(x = individual, y = Sepal.Length, fill = Species)) +
    geom_bar(stat = "identity") +
    labs(x = "Individual (sorted by Sepal Length)", y = "Sepal Length") +
    theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1)) # 旋转x轴标签避免重叠
})

这里给出场景2的完整代码，确保表格和条形图的排序完全同步：

# load necessary packages
library(shiny)
library(tidyverse)

# create UI
ui <- fluidPage(
  title = "Reactive Programming",
  plotOutput(outputId = "my.barplot"),
  radioButtons(inputId = "direction",
               label = "Arrange the data:",
               choices = c("Ascending", "Descending"),
               selected = "Descending",
               inline = TRUE),
  tableOutput(outputId = "my.table")
)

# create server
server <- function(input, output, session){
  # arrange iris in ascending/descending order based on the "Sepal.Length" column
  df <- reactive({
    switch(EXPR = input$direction,
           "Ascending" = iris %>% arrange(Sepal.Length),
           "Descending" = iris %>% arrange(desc(Sepal.Length))
    )
  })
  
  # plot df() with individual bars sorted by Sepal Length
  output$my.barplot <- renderPlot({
    df() %>%
      mutate(individual = row_number()) %>%
      ggplot(aes(x = individual, y = Sepal.Length, fill = Species)) +
      geom_bar(stat = "identity") +
      labs(x = "Individual (sorted by Sepal Length)", y = "Sepal Length") +
      theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1))
  })
  
  # show df()
  output$my.table <- renderTable({
    df()
  })
}

# run App
shinyApp(ui = ui, server = server)

这样调整后，当你切换单选按钮时，条形图的个体顺序会和表格完全一致，就能看到明显的变化了。

内容的提问来源于stack exchange，提问作者Cristian E. Nuno