如何优化分地域分生命阶段的ggplot/patchwork堆叠统计图？

纯ggplot实现分地域堆叠子图 #

直接用facet_wrap()或facet_grid()配合堆叠条形图，就能同时区分生命阶段和地域，无需依赖patchwork。核心逻辑是把地域设为分面变量，生命阶段作为堆叠填充变量。

适配你的数据结构的代码示例 #

假设数据框df包含地域、生命阶段、统计值（数量/比例）三列：

library(ggplot2)

ggplot(df, aes(x = 你的X轴分组变量, y = 统计值, fill = 生命阶段)) +
  geom_col(position = "stack") + # 生成堆叠条形图
  facet_wrap(~地域, ncol = 1) + # 按地域单列分面，避免横向压缩
  theme(
    panel.spacing = unit(1, "cm"), # 增大子图间距
    axis.text = element_text(size = 12), # 放大坐标轴文字
    legend.text = element_text(size = 12), # 放大图例文字
    strip.text = element_text(size = 14, face = "bold") # 强化分面标题
  ) +
  labs(x = "X轴标签", y = "统计指标", fill = "生命阶段")

修复patchwork尺寸问题 #

如果坚持用patchwork拼接，通过布局参数和导出设置解决尺寸过小问题：

library(patchwork)

# 假设已生成两个地域的子图p1、p2
combined_plot <- p1 + p2 +
  plot_layout(ncol = 1, heights = c(1,1)) + # 单列等高排列，避免横向挤压
  plot_annotation(title = "不同地域生命阶段分布")

# 导出时指定足够大的画布尺寸
ggsave("final_plot.png", combined_plot, width = 10, height = 12, dpi = 300)

额外实用优化点 #

• 优先选择单列分面/拼接，横向空间充足才能避免坐标轴标签、条形内容拥挤
• 若X轴是类别变量，可旋转文字避免重叠：theme(axis.text.x = element_text(angle = 45, hjust = 1))
• 统一生命阶段的配色方案，确保子图间填充色一致，提升对比可读性
• 若要展示比例而非绝对数量，改用geom_col(position = "fill")生成堆叠百分比图，更便于跨地域对比

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