geom_histogram直方图添加分箱计数标签失败，求解决方法

问题描述 #

我绘制了如下直方图：

ggplot(diamonds, aes(x=carat)) +
  geom_histogram(binwidth = 0.5, color="black") +
  scale_x_continuous(breaks = seq(0, 5, by = 0.5) + 0.25)

希望在每个柱子上方显示对应分箱的计数，尝试了以下代码但结果显示混乱：

ggplot(diamonds, aes(x = carat)) +
 geom_histogram(binwidth = 0.5, color = "black") +
 scale_x_continuous(breaks = seq(0, 5, by = 0.5) + 0.25) +
 geom_text(stat = "count", aes(label = ..count..), position = position_stack(vjust = 0.5))

解决方案 #

问题出在geom_text使用了stat="count"——这个统计量是对原始数据的每个x值单独计数，而直方图是对数据做了分箱聚合的，两者分组逻辑不匹配，导致文本重叠混乱。

修正思路：用stat="bin"匹配直方图的分箱规则，同时指定y为分箱后的计数值，调整文本位置到柱子顶部上方。

修正后的代码 #

library(ggplot2)

ggplot(diamonds, aes(x = carat)) +
  geom_histogram(binwidth = 0.5, color = "black") +
  scale_x_continuous(breaks = seq(0, 5, by = 0.5) + 0.25) +
  geom_text(
    stat = "bin",
    aes(y = ..count.., label = ..count..),
    binwidth = 0.5, # 必须和直方图的binwidth保持一致
    vjust = -0.5, # 把文本放在柱子顶部上方
    size = 3 # 可根据需求调整文本大小
  )

关键说明 #

• stat="bin"：和直方图使用相同的分箱统计逻辑，确保每个柱子对应唯一的计数文本
• binwidth = 0.5：必须与geom_histogram的binwidth参数完全一致，避免分箱错位
• vjust = -0.5：控制文本垂直位置，负值让文本位于柱子顶部上方，正值则会在柱子内部
• 如果需要隐藏计数为0的文本，可通过条件判断实现：

  geom_text(
    stat = "bin",
    aes(y = ..count.., label = ifelse(..count.. == 0, "", ..count..)),
    binwidth = 0.5,
    vjust = -0.5,
    size = 3
  )
  

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