如何用ggplot高效绘制筛选后变量的分组比例图？

针对你的需求，无需手动计算百分比生成汇总数据集，直接用ggplot的内置功能就能实现目标比例图，以下是最优实现方案：

核心思路 #

利用geom_bar()的position = "fill"参数，ggplot会自动按指定分组计算每组的比例；结合数据过滤，只保留你关注的condition（比如Nitrogen）数据即可。

代码实现 #

1. 基础比例柱状图（单个condition） #

library(ggplot2)
library(dplyr) # 用于数据过滤，也可替换为base R的subset函数

# 过滤出Nitrogen组的数据，绘制按year的比例图
data %>%
  filter(condition == "Nitrogen") %>%
  ggplot(aes(x = factor(year), y = value, fill = specie)) +
  geom_bar(stat = "identity", position = "fill") +
  # 将y轴转换为百分比格式
  scale_y_continuous(labels = scales::percent_format()) +
  labs(
    x = "年份",
    y = "比例",
    fill = "物种",
    title = "Nitrogen条件下各物种按年份的比例分布"
  ) +
  theme_minimal()

代码解释 #

• filter(condition == "Nitrogen")：仅保留目标条件的数据，切换其他condition时修改此处字符串即可。
• position = "fill"：让柱状图自动计算每组（每个year）内各specie的占比，高度统一为1（即100%）。
• scales::percent_format()：将y轴小数转换为百分比显示，未安装scales包的话先运行install.packages("scales")。

2. 扩展：批量展示多个condition的比例图（可选） #

如果后续需要生成多组条件的比例图，无需重复写代码，用facet_wrap一键实现：

ggplot(data, aes(x = factor(year), y = value, fill = specie)) +
  geom_bar(stat = "identity", position = "fill") +
  scale_y_continuous(labels = scales::percent_format()) +
  facet_wrap(~condition) +
  labs(
    x = "年份",
    y = "比例",
    fill = "物种",
    title = "各条件下物种按年份的比例分布"
  ) +
  theme_minimal()

后续组合柱状图提示 #

你提到要做包含原始数值的组合柱状图，只需把position = "fill"换成position = "dodge"（并列柱状）或保留默认的position = "stack"（堆叠柱状）即可，逻辑和比例图一致，无需额外汇总数据。

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