如何避免ggplot中使用facet_wrap()生成的分面图被挤压？

• 优先调整输出画布尺寸
  你观察到的「总画布空间固定」是默认预览/导出的固定尺寸导致的，导出绘图时用ggsave()手动指定足够大的宽高即可解决绝大多数挤压问题，参数根据你的分面行列数调整即可，比如20个分面按4行5列排布时，可设置：

ggsave("lu_acres_plot.png", lu_acres_plot, width = 18, height = 12, dpi = 300, units = "in")

如果是在RStudio内预览，直接拖动预览窗口放大即可正常查看。

• 手动指定分面的行列排布
  不要让facet_wrap()自动计算行列，根据你的分面总数量手动设置nrow、ncol参数，平衡横竖方向的空间分配，你的代码可以对应修改为：

# 行列数根据你实际的i_desclu分类总数调整即可
facet_wrap(~i_desclu, scales = "free_y", nrow = 4, ncol = 5)

• 配合自适应子图尺寸参数
  如果不同分面y轴范围差异极大，可以换成facet_grid()，额外开启space = "free_y"参数，让每个子图的高度随y轴范围自适应，避免短轴分面出现大面积空白、长轴分面被挤压的情况：

# 替换原facet_wrap行即可
facet_grid(~i_desclu, scales = "free_y", space = "free_y")

• 小幅度优化元素尺寸
  可以在现有主题基础上微调非核心元素的大小，进一步释放空间：
  • 把strip.text的字号从9调整到7-8
  • 把axis.text的字号从12调整到10
  • y轴数值标签可以用scales::label_number(scale_cut = scales::cut_short_scale())精简大数字的展示长度，减少横向占用
• 超大量分面时拆分输出
  如果分面总数超过30个，单张画布不管怎么调整都难以保证可读性，建议你按i_desclu的类别分组，生成多张独立的分面图。

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