如何修正ggplot2条形图的年龄组顺序与重复计数标签问题？

问题分析 #

1. 年龄组排序混乱：Agecate是字符型变量，默认按字母顺序排序，导致6-14没有紧跟<=5，而是排在末尾。
2. 计数标签重复：原始数据中存在同一category和Agecate组合的重复记录，geom_text会为每条记录生成标签，造成重复显示。

解决方案 #

1. 修正年龄组排序 #

将Agecate转换为有序因子，手动指定正确的年龄顺序，确保绘图时按逻辑顺序排列：

data3$Agecate <- factor(data3$Agecate, 
                        levels = c('<=5', '6-14', '15-19', 'above 20'),
                        ordered = TRUE)

2. 解决标签重复问题 #

原始数据中同一分组（category+Agecate）有重复的Count值，需要先对数据进行分组求和，再用整理后的数据绘图：

# 加载dplyr用于数据整理（未安装则先运行install.packages("dplyr")）
library(dplyr)
data3_clean <- data3 %>%
  group_by(category, Agecate) %>%
  summarise(Count = sum(Count), .groups = "drop")

完整修正后的代码 #

# 加载所需包
library(ggplot2)
library(dplyr)

# 原始数据
data3 <- data.frame(
  Count=c(61,80,47,54,41,92,14,37,33,17,5,53),
  category=c('M','M','M','M','M','M','M','M','F','F','F','F'), 
  Agecate =c('<=5', '6-14', '15-19','above 20', 
             '<=5', '6-14', '15-19','above 20',
             '<=5', '6-14', '15-19','above 20'))

# 1. 修正年龄组排序
data3$Agecate <- factor(data3$Agecate, 
                        levels = c('<=5', '6-14', '15-19', 'above 20'),
                        ordered = TRUE)

# 2. 分组求和去重
data3_clean <- data3 %>%
  group_by(category, Agecate) %>%
  summarise(Count = sum(Count), .groups = "drop")

# 绘图
ggplot(data3_clean, aes(x = reorder(category, Count), y = Count, fill = Agecate)) +
  geom_bar(stat = "identity", position = "dodge") + 
  theme_bw(base_size = 30)+
  geom_text(aes(label=Count), size=5, position=position_dodge(width=0.9), vjust=-0.25)+
  theme(axis.text.x = element_text(size = 25),
        axis.text = element_text(face="bold"))+
  xlab('Woredas')+
  ylab('Number of hh members') +
  labs(fill='Age group')

替代方案（无需提前整理数据） #

如果不想提前处理数据，也可以直接在geom_text中使用统计函数求和，避免标签重复：

ggplot(data3, aes(x = reorder(category, Count), y = Count, fill = Agecate)) +
  geom_bar(stat = "identity", position = "dodge") + 
  theme_bw(base_size = 30)+
  geom_text(stat='summary', fun=sum, aes(label=after_stat(y)), 
            size=5, position=position_dodge(width=0.9), vjust=-0.25)+
  theme(axis.text.x = element_text(size = 25),
        axis.text = element_text(face="bold"))+
  xlab('Woredas')+
  ylab('Number of hh members') +
  labs(fill='Age group')

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