如何在ggplot的geom_text中合并统计量与变量值生成标签？

问题背景 #

在ggplot绘制条形图时，希望通过单次geom_text()调用，添加包含原始变量值（如trans）和ggplot计算的after_stat(count)统计量的标签（格式如变量值 (统计量)）。尝试合并两次geom_text()调用时，出现object 'trans' not found错误，且希望不通过预处理数据实现需求。

报错原因 #

使用stat="count"时，ggplot会对数据进行汇总统计，默认不会将原始分组变量（如trans）保留到统计变换后的结果集中，直接在label参数中引用原始变量会导致找不到对象的错误。

解决方法 #

在geom_text()的aes中添加group = trans，让统计变换过程中保留trans变量的分组信息，之后通过after_stat(trans)提取该变量的值，即可在标签中同时使用变量值和统计量。

修正后的完整代码 #

library(tidyverse)

mpg %>%
  filter(class %in% c("2seater", "minivan", "pickup")) %>%
  ggplot(
    aes(
      x = class,
      y = after_stat(count),
      fill = trans
    )
  ) +
  geom_bar(
    stat = "count",
    position = "fill"
  ) +
  geom_text(
    stat = "count",
    aes(
      group = trans,
      label = paste0(after_stat(trans), " (", after_stat(count), ")")
    ),
    position = position_fill(0.5),
    vjust = 1.5
  ) +
  theme(legend.position = "none") +
  scale_fill_brewer(palette = "BrBG")

说明 #

• group = trans确保统计变换时按trans分组计算count，同时保留trans的取值
• after_stat(trans)用于在统计变换后引用trans变量的值，结合after_stat(count)拼接成目标标签格式
• 调整vjust参数可优化标签的垂直位置，避免与条形图重叠

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