在R Shiny中使用ggplot无法对Students值求和的问题求助

要让ggplot对Students列按指定分组求和，核心是确保同一分组（Year、Country、Gender）下的数值被聚合，以下是两种可行方案：

方案1：先预处理数据集（推荐，更灵活适配Shiny筛选） #

在Shiny的反应式环境中，先根据用户的年龄筛选条件处理数据，再按Year、Country、Gender分组求和：

# 加载必要包
library(dplyr)
library(ggplot2)
library(plotly)

# 假设Shiny中用户选择的年龄输入为input$selected_age，若选"所有年龄"则不筛选
filtered_df <- reactive({
  temp_df <- df
  if (input$selected_age != "所有年龄") {
    temp_df <- temp_df %>% filter(Age == input$selected_age)
  }
  # 按分组求和
  temp_df %>%
    group_by(Year, Country, Gender) %>%
    summarise(Total_Students = sum(Students), .groups = "drop")
})

# 生成图表
output$plot <- renderPlotly({
  g <- ggplot(filtered_df(),
              aes(x = Year, 
                  y = Total_Students, 
                  fill = Gender)) + 
    geom_bar(stat = 'identity', position = 'dodge') +
    geom_text(aes(label = Total_Students), 
              position = position_dodge(width = 0.9), 
              vjust = -0.5) + # 调整文本位置避免被柱子遮挡
    facet_wrap(~ Country) +
    xlab("")
  ggplotly(g)
})

方案2：直接在ggplot中用stat_summary自动求和 #

无需提前处理数据，通过stat_summary指定求和函数，同时为文本层也配置对应的统计计算：

g <- ggplot(df,
            aes(x = Year, 
                y = Students, 
                fill = Gender)) + 
  stat_summary(fun = sum, geom = "bar", position = "dodge") +
  stat_summary(fun = sum, geom = "text", 
               aes(label = after_stat(y)), 
               position = position_dodge(width = 0.9), 
               vjust = -0.5) +
  facet_wrap(~ Country) +
  xlab("")
g <- ggplotly(g)
g

关键说明 #

• 方案1更适合Shiny场景：因为用户的年龄筛选是动态的，先过滤再聚合能确保每次渲染的都是正确的分组求和结果，代码逻辑更清晰。
• 两种方案都需要注意position_dodge的宽度匹配，避免柱子和文本错位；vjust参数用于调整文本在柱子上方的位置，防止遮挡。

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