R语言ggplot2中geom_bar权重和标签添加：无需新建数据框实现

可以实现这个需求，核心是复用geom_bar内部的统计计算结果，不用提前汇总数据框。具体做法是借助after_stat()获取权重求和的结果，配合geom_text的统计变换来添加标签：

完整代码示例 #

library(ggplot2)
library(dplyr)

mydf <- data.frame(a = rep(c(1:3), each=2),
                   b = c(0.5, 0.5, 1, 1, 1.5, 1.5))

# 第一种写法的修改版
mydf %>% 
  ggplot(aes(x = a)) +
  geom_bar(aes(weight = b)) +
  geom_text(stat = "count", aes(label = after_stat(count), y = after_stat(count)), 
            vjust = -0.5) # vjust调整标签位置，避免和柱子重叠

# 第二种写法的修改版（权重放在全局aes里）
mydf %>% 
  ggplot(aes(x = a, weight = b)) +
  geom_bar() +
  geom_text(stat = "count", aes(label = after_stat(count), y = after_stat(count)), 
            vjust = -0.5)

原理说明 #

当geom_bar使用weight参数时，它的默认统计变换是stat_count()，此时计算出的count值其实是每组的权重总和（而非原始行数）。我们通过geom_text(stat = "count")让文本标签复用这个统计过程，用after_stat(count)直接提取权重求和的结果作为标签内容和Y轴位置，从而省去了手动汇总数据的步骤。

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