如何在ggplot分组柱状图中将Y轴改为按处理组统计的百分比

方法1：预处理数据计算分组百分比（推荐） #

先用dplyr按处理组分组，计算每组内各物种的观测占比，再传入ggplot绘图，逻辑更清晰可控。

示例代码：

# 加载依赖包
library(ggplot2)
library(dplyr)

# 假设你的数据集名为df，包含列：Treatment（处理组）、Species（物种）
# 如果原始数据是单观测行格式，先统计每组每个物种的观测数
df_summary <- df %>%
  group_by(Treatment, Species) %>%
  summarise(Count = n(), .groups = "drop") %>%
  group_by(Treatment) %>%
  mutate(Percentage = Count / sum(Count) * 100) # 按处理组计算内部百分比

# 绘制柱状图
ggplot(df_summary, aes(x = Treatment, y = Percentage, fill = Species)) +
  geom_col(position = "stack") +
  labs(y = "百分比 (%)", x = "处理组", fill = "物种") +
  theme_minimal()

如果你的原始数据已经是汇总好的（自带每个处理组-物种的计数值），可以跳过group_by(Treatment, Species) %>% summarise(Count = n())这一步，直接计算百分比。

方法2：直接在ggplot中计算比例 #

不想提前预处理数据的话，可借助stat_count的after_stat函数，指定按处理组分组计算比例：

示例代码：

library(ggplot2)

ggplot(df, aes(x = Treatment, fill = Species)) +
  stat_count(aes(y = after_stat(prop), group = Treatment), position = "stack") +
  scale_y_continuous(labels = scales::percent_format()) + # 将比例转为百分比标签
  labs(y = "百分比", x = "处理组", fill = "物种") +
  theme_minimal()

核心要点 #

两种方法的关键都是锁定Treatment分组计算比例，确保百分比是每个处理组内部的占比，而非整个数据集的全局占比。

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