ggplot2配对堆叠条形图：总数标签添加与文本标签调整

我来帮你搞定这两个常见的ggplot2小问题，咱们一步步来：

1. 在每个条形上方添加对应总数（Sum） #

要实现这个，你需要先单独提取每个分组（比如"Overall"）和性别（Female/Male）对应的总数，然后用geom_text把总数放在条形顶部。

步骤： #

• 首先从原数据中汇总出每个Group+Gender的Sum值：

library(dplyr)
# 假设你的原数据框叫df，包含Group、Gender、Category、Count列
sum_df <- df %>%
  group_by(Group, Gender) %>%
  summarise(Sum = sum(Count), .groups = "drop")

• 然后在ggplot代码里添加总数标签，注意要和条形的position_dodge宽度保持一致，避免错位：

library(ggplot2)

ggplot(df, aes(x = Group, y = Count, fill = Category)) +
  # 绘制配对堆叠条形图，dodge宽度设为0.9（可根据你的图调整）
  geom_col(position = position_dodge(width = 0.9)) +
  # 这里先保留你的百分比标签（后面处理小标签）
  geom_text(aes(label = paste0(round(Count/sum(Count)*100,1), "%")),
            position = position_stack(vjust = 0.5)) +
  # 添加总数标签：用sum_df作为数据源，取消fill映射，调整位置在条形上方
  geom_text(data = sum_df, aes(x = Group, y = Sum, label = Sum, fill = NULL),
            position = position_dodge(width = 0.9), 
            vjust = -0.5,  # 向上偏移，避免和条形顶部重叠
            size = 4) +    # 调整标签大小
  labs(x = "分组", y = "数量", fill = "类别") +
  theme_minimal()

2. 移除过小的百分比标签（比如2.7%） #

解决这个的核心是用ifelse判断：当百分比小于你设定的阈值（比如3%）时，返回空字符串，这样标签就不会显示了。

优化后的百分比标签代码： #

先在原数据里计算好每个分组内的百分比（避免重复计算）：

df <- df %>%
  group_by(Group, Gender) %>%
  mutate(Percent = Count / sum(Count) * 100) %>%
  ungroup()

然后修改geom_text的标签逻辑：

ggplot(df, aes(x = Group, y = Count, fill = Category)) +
  geom_col(position = position_dodge(width = 0.9)) +
  # 只显示百分比≥3%的标签，小于的就留空
  geom_text(aes(label = ifelse(Percent < 3, "", paste0(round(Percent,1), "%"))),
            position = position_stack(vjust = 0.5)) +
  # 总数标签保持不变
  geom_text(data = sum_df, aes(x = Group, y = Sum, label = Sum, fill = NULL),
            position = position_dodge(width = 0.9), vjust = -0.5, size = 4) +
  labs(x = "分组", y = "数量", fill = "类别") +
  theme_minimal()

这样一来，那个2.7%的小标签就会被自动隐藏，同时每个条形上方也会显示对应的总数啦～

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