R语言ggplot2 geom_bar柱形图添加柱顶标签（未知y值解决）

问题原因 #

geom_bar() 默认采用 stat = "count" 统计变换，会自动按x轴分类变量分组计算观测数（也就是你需要的鱼类个体数），这个计数值是ggplot内部生成的临时统计量，无法直接通过y映射调用，直接写aes(label=y)会因为找不到对应变量失效。

可直接运行的修正代码 #

# 确保已加载依赖包：fct_infreq来自forcats包，属于tidyverse套件
library(tidyverse)

ggplot(R_Sandbach, aes(x = fct_infreq(Species), colour = Species)) +
  geom_bar(fill = "white") +
  # 核心：添加柱顶计数标签
  geom_text(
    stat = "count", # 和geom_bar保持相同的计数统计逻辑，保证标签和柱高完全对齐
    aes(label = after_stat(count)), # 调用stat_count自动生成的计数变量
    vjust = -0.3, # 垂直偏移量：负值代表在柱顶上方，避免标签贴在柱体上
    size = 3 # 可根据图幅大小自行调整标签字号
  ) +
  theme_minimal() +
  theme(
    axis.text.x = element_text(angle = 90, size = 5)
  ) +
  xlab("Fischarten") +
  ylab("Individuenanzahl") +
  # 可选：如果顶部标签被图边界裁切，加这行给顶部留10%的空白
  scale_y_continuous(expand = expansion(mult = c(0, 0.1)))

可选调整说明 #

• 如果标签颜色和柱边框一致显得太乱，可以在geom_text()内加参数colour = "black"，让所有数值标签统一为黑色。
• 如果你后续选择提前手动汇总每个物种的个体数（比如用count(R_Sandbach, Species)生成带计数列的汇总表），绘图时把geom_bar()换成geom_col()即可，这时候不需要写stat = "count"，直接在geom_text()里aes(label = 你自己命名的计数列名)就行。
• 标签水平位置如果需要微调，可以调整hjust参数，当前柱体是垂直居中对齐x轴分类，默认hjust=0.5不需要改动。

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