R语言中为含分类变量的堆叠条形图添加数据标签的方法及代码报错排查

这个报错其实很直白——你用geom_text的时候没给它必需的两个美学映射：y（标签的垂直位置）和label（要显示的文本），所以R才会提示你缺少这俩参数。我来给你两种解决思路，都能搞定这个问题：

方法1：直接用stat_count自动获取计数 #

这种方法不用提前整理数据，利用geom_bar默认的stat="count"逻辑，让geom_text同步获取每组的计数作为标签，同时用position_stack让标签居中：

首先先还原你的数据集（方便复现）：

# 构造你的数据集
data2 <- data.frame(
  Age = c(44,35,60,45,45,34),
  Sex = c("Male","Male","Male","Female","Female","Female"),
  Educational_status = c("Illiterate","PG","UG","Illiterate","UG","Illiterate"),
  State = c("A","B","C","D","A","A")
)

然后是修正后的绘图代码：

library(ggplot2)

ggplot(data2, aes(x= Educational_status, fill=Sex)) +
  geom_bar(position = "stack") +
  # 添加数据标签：stat="count"获取每组观测数，position_stack让标签居中
  geom_text(stat = "count", aes(label = ..count..), 
            position = position_stack(vjust = 0.5)) +
  facet_grid( ~ State)

代码解释： #

• stat="count"：和geom_bar默认逻辑一致，自动计算每个Educational_status+Sex+State组合的观测数量
• aes(label = ..count..)：..count..是stat_count生成的内部变量，代表每个分组的计数，也就是条形的高度值
• position = position_stack(vjust=0.5)：让标签在每个堆叠的条形块垂直居中，调整vjust可以上下移动标签位置（比如vjust=0.3会让标签偏上）

方法2：提前手动整理数据（更灵活） #

如果之后需要对标签做更多自定义（比如显示百分比），提前用dplyr整理数据会更方便：

library(dplyr)
library(ggplot2)

# 计算每个分组的观测数
data_summary <- data2 %>%
  group_by(Educational_status, Sex, State) %>%
  summarise(count = n(), .groups = "drop")

# 用整理好的数据绘图（这里用geom_col代替geom_bar，因为已经有y值了）
ggplot(data_summary, aes(x= Educational_status, y=count, fill=Sex)) +
  geom_col(position = "stack") +
  geom_text(aes(label = count), position = position_stack(vjust=0.5)) +
  facet_grid( ~ State)

扩展：显示百分比标签 #

如果想显示每个堆叠块占对应x轴分组的百分比，只需要稍微修改数据整理逻辑：

data_summary_pct <- data2 %>%
  group_by(Educational_status, State) %>%
  mutate(total = n()) %>% # 计算每个Educational_status+State组合的总数量
  group_by(Educational_status, Sex, State) %>%
  summarise(pct = paste0(round(n()/total*100), "%"), .groups = "drop")

ggplot(data_summary_pct, aes(x= Educational_status, y=total, fill=Sex)) +
  geom_col(position = "stack") +
  geom_text(aes(label = pct), position = position_stack(vjust=0.5)) +
  facet_grid( ~ State)

总结一下，你之前的核心问题就是没给geom_text提供y（位置）和label（内容）这两个必需的美学映射，用上面任意一种方法都能解决报错，同时完美添加数据标签。

内容的提问来源于stack exchange，提问作者Reju V S