如何让ggplot绘制的累计值条形图显示总和标签而非单值

问题原因 #

你的原始数据中分类b对应4行明细值，geom_bar(stat = "identity")会自动按x轴分类对y值求和得到柱形总高度，但geom_text默认会为每一行数据生成一个标签，因此b分类下就显示了4个明细值而非总和。

解决方案 #

有两种常用实现方式，都可以直接输出分类总和作为标签：

方案1：提前汇总数据后绘图（更易理解，方便后续扩展其他统计逻辑） #

library(ggplot2)
library(scales)
library(dplyr)

mydf<-data.frame(col1=c("a","b", "b", "b", "b")
                 ,col2=c(10,1.5, 1, 5, 2))

barchart <- function(df, col_x, col_y) {
  # 按分类汇总求和得到每个分类的累计值
  sum_df <- df %>% 
    group_by(!!sym(col_x)) %>% 
    summarise(total_y = sum(!!sym(col_y), na.rm = TRUE))
  
  ggplot(sum_df, aes(x = .data[[col_x]], y = total_y)) + 
    geom_bar(stat = "identity") +
    scale_y_continuous(labels = scales::comma) + 
    # 直接用汇总后的总和作为标签，hjust调整位置避免和柱形重叠
    geom_text(aes(label = total_y), hjust = -0.2) +
    coord_flip() +
    # 扩展y轴范围避免标签被画布截断
    expand_limits(y = max(sum_df$total_y)*1.1)
}

bchart <- barchart(mydf, "col1", "col2")
print(bchart)

方案2：不改动原始数据，直接在geom_text中统计总和（代码更简洁） #

library(ggplot2)
library(scales)

mydf<-data.frame(col1=c("a","b", "b", "b", "b")
                 ,col2=c(10,1.5, 1, 5, 2))

barchart <- function(df, col_x, col_y) {
  ggplot(df, aes(x = .data[[col_x]], y = .data[[col_y]], na.rm = TRUE)) + 
    geom_bar(stat = "identity") +
    scale_y_continuous(labels = scales::comma) + 
    # 用stat=summary指定统计逻辑，sum求和后直接作为标签
    geom_text(stat = "summary", fun = sum, aes(label = after_stat(y)), hjust = -0.2) +
    coord_flip() +
    expand_limits(y = max(aggregate(.data[[col_y]]~.data[[col_x]], df, sum)[,2])*1.1)
}

bchart <- barchart(mydf, "col1", "col2")
print(bchart)

关键调整说明 #

• 函数参数改为传递列名字符串，通过.data[[ ]]适配ggplot的非标准求值规则，避免直接传递列向量带来的耦合问题
• 标签层改为直接使用每个分类的求和结果，保证每个分类仅显示一个累计值标签
• 新增位置调整和y轴扩展逻辑，避免标签和柱形重叠、或超出画布被截断

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