如何在R语言的条形图中添加‘N = ’计数标签？

首先修正原代码的核心问题：你原代码里aes(x=species,y=veg)用字符向量作为y轴，搭配stat="identity"是错误的——条形图的y轴需要数值型数据（这里对应样本计数）。下面提供两种可行的添加n = #计数标签的方法：

方法1：先预处理数据统计计数 #

用dplyr包先统计每个物种-植被组合的样本量，再基于统计后的数据集绘图：

# 加载所需包
library(ggplot2)
library(dplyr)
library(ggthemes) # 提供theme_stata和scale_fill_economist主题

# 统计各组合的样本数
scorpions_count <- scorpions %>%
  group_by(species, veg) %>%
  summarise(n = n(), .groups = "drop")

# 绘图并添加计数标签
ggplot(data=scorpions_count, aes(x=species, y=n, fill=veg)) +
  geom_bar(stat="identity", color="black", position=position_dodge()) +
  # 添加标签，position_dodge匹配条形位置避免重叠
  geom_text(aes(label = paste0("n = ", n)), 
            position = position_dodge(width = 0.9), 
            vjust = -0.5) # vjust控制标签在条形上方
  theme_stata() +
  scale_fill_economist() +
  theme(
    axis.text.y = element_text(angle = 0),
    axis.title  = element_text(face="bold"),
    axis.text.x = element_text(face = "italic")
  ) +
  labs(title="Relationship Between Species and Vegetation Type",
       y="Count") # 修正y轴标题为计数

方法2：直接在ggplot中自动计数 #

无需预处理数据，用stat="count"让ggplot自动计算样本量，同时添加标签：

library(ggplot2)
library(ggthemes)

ggplot(data=scorpions, aes(x=species, fill=veg)) +
  geom_bar(stat="count", color="black", position=position_dodge()) +
  # 借助stat="count"获取计数，生成标签
  geom_text(stat="count", aes(label = paste0("n = ", ..count..)),
            position = position_dodge(width = 0.9),
            vjust = -0.5) +
  theme_stata() +
  scale_fill_economist() +
  theme(
    axis.text.y = element_text(angle = 0),
    axis.title  = element_text(face="bold"),
    axis.text.x = element_text(face = "italic")
  ) +
  labs(title="Relationship Between Species and Vegetation Type",
       y="Count")

补充说明 #

• 若未安装dplyr或ggthemes，先运行install.packages(c("dplyr", "ggthemes"))安装。
• 若想把标签放在条形内部，将vjust改为1.2，同时添加color="white"让标签更清晰。
• position_dodge(width = 0.9)中的宽度和geom_bar默认宽度一致，保证标签和条形一一对应。

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