如何在ggplot2中绘制按权重求和的分组（position=dodge）条形图？

你遇到的问题本质是：当使用position = "dodge"时，默认的stat = "identity"会把每一行数据都作为单独的条形来绘制，而不是自动对同一group+sex组合的权重求和。你看到的"单条最大权重"其实是多个条形重叠/并排显示后的视觉错觉——比如a组女性的两个权重值2和4被分别画成了两个条形，只是它们挨在一起让你误以为是一个长度为4的条形。

下面给你两种简单的解决方法：

方法1：先手动聚合数据（推荐，更直观可控） #

先通过dplyr或者基础R计算每个分组的权重总和，再用聚合后的数据绘图：

# 加载dplyr（如果没装先运行install.packages("dplyr")）
library(dplyr)
library(ggplot2)

# 原始数据
df <- data.frame(group = rep(letters[1:3], each = 4), sex = rep(c("m", "f"), times = 6), weight = 1:12)

# 聚合数据：按group和sex分组，计算weight总和
df_sum <- df %>%
  group_by(group, sex) %>%
  summarise(total_weight = sum(weight), .groups = "drop")

# 绘制分组条形图
ggplot(df_sum, aes(x = group, fill = sex, y = total_weight)) +
  geom_bar(stat = "identity", position = "dodge")

方法2：直接在ggplot中使用统计变换 #

不需要提前聚合，用stat = "summary"指定求和函数，同时设置position = "dodge"：

library(ggplot2)

df <- data.frame(group = rep(letters[1:3], each = 4), sex = rep(c("m", "f"), times = 6), weight = 1:12)

ggplot(df, aes(x = group, fill = sex, y = weight)) +
  geom_bar(stat = "summary", fun = sum, position = "dodge")
# 或者用stat_summary写法更明确：
# stat_summary(geom = "bar", fun = sum, position = "dodge")

这两种方法都能让每个分组的条形长度对应权重总和，其中方法1的优势是你可以清晰看到聚合后的数据，方便后续调整或验证。

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