使用breaks参数时如何在ggplot2直方图中添加正确的计数标签？

你遇到的核心问题是：geom_histogram用自定义breaks分区间时，stat='count'的geom_text是按离散值默认逻辑计数，和直方图的区间统计逻辑不统一，导致标签对应不上。下面给两种可行的解决办法：

方法一：让geom_text和直方图用相同的区间统计逻辑 #

直接给geom_text指定stat='bin'，并传入和直方图完全一致的breaks参数，让两者用同一个区间规则计算计数和位置：

library(tidyverse)
d <- cars

# 定义统一的区间分割点
breaks_vec <- c(0,20,40,60,80,100,120)

ggplot(d, aes(x = dist)) + 
  geom_histogram(color="black", fill="gray", breaks=breaks_vec) +
  scale_x_continuous(breaks=breaks_vec) +
  # 使用stat='bin'并匹配相同breaks，用..count..获取区间计数
  geom_text(stat='bin', breaks=breaks_vec, aes(label=..count..), vjust=-1)

方法二：手动预处理数据再绘制（更直观可控） #

先把数据按指定区间分组统计计数，再用柱状图模拟直方图，同时直接用统计好的计数做标签：

library(tidyverse)
d <- cars

breaks_vec <- c(0,20,40,60,80,100,120)

# 预处理数据：分组统计计数，同时计算区间中点用于标签定位
d_stat <- d %>%
  mutate(dist_group = cut(dist, breaks = breaks_vec, include.lowest = TRUE)) %>%
  count(dist_group) %>%
  # 提取区间中点，让标签落在柱子上方中间位置
  mutate(mid_point = map_dbl(dist_group, ~mean(as.numeric(str_extract_all(., "\\d+")[[1]]))))

ggplot(d_stat, aes(x = mid_point, y = n)) +
  # 用geom_col绘制，宽度设为区间宽度（这里是20）
  geom_col(color="black", fill="gray", width=20) +
  scale_x_continuous(breaks=breaks_vec, limits=c(0,120)) +
  geom_text(aes(label=n), vjust=-1) +
  labs(x = "dist") # 还原x轴变量名

两种方法都能实现你要的效果：基于指定的breaks计算区间计数，标签位置对应正确。第一种更贴合原生直方图的用法，第二种预处理后逻辑更清晰，方便后续调整。

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