ggplot2批量绘图时如何固定画布尺寸及柱状图柱宽

针对两个问题的可直接复用的优化方案 #

问题1：x轴标签过长挤压绘图区域的解决方案 #

• 固定绘图区宽高比：在ggplot图层中加入theme(aspect.ratio = 0.6)，该参数会固定绘图区域的宽高比例，不会因为坐标轴标签长度变化被挤压，数值可以根据你的需求调整
• 提前预留标签空间：搭配theme(plot.margin = unit(c(1,1,3,1), "cm"))统一给底部x轴预留足够的展示空间，避免标签顶到绘图区导致区域缩小
• 自动处理长标签：用scale_x_discrete(labels = function(x) stringr::str_wrap(x, width = 10))实现长标签自动换行，也可以搭配theme(axis.text.x = element_text(angle = 45, hjust = 1))旋转标签，进一步降低标签占用的纵向空间
• 输出时固定整张图尺寸：调用ggsave()时统一设置width=15, height=10, units="cm"，固定整张图的总尺寸，配合前面的参数就能保证所有图的绘图区大小完全一致

问题2：分组/柱子数量变化时柱子宽度不稳定的解决方案 #

• 直接固定柱子宽度：在geom_col()或者geom_bar()参数中加入width = 0.7，该数值为单个柱子的固定占比，不会因为柱子总数多少变化调整宽度
• 固定分组柱子间距：如果是分组柱状图，额外添加position = position_dodge(width = 0.8)，这里的dodge宽度要略大于柱子宽度，保证不同分组柱子的间距固定，不会出现挤在一起的问题
• 固定x轴留白：添加scale_x_discrete(expand = expansion(add = c(0.5, 0.5)))，统一x轴两端的留白大小，避免柱子数量少时整体被拉宽、数量多时被压缩的问题

批量适配脚本的优化建议 #

把所有通用配置封装为自定义主题，不需要改动原有绘图逻辑，只需要两处修改即可：

1. 先在脚本开头定义统一主题和绘图参数：

# 自定义统一主题
custom_bar_theme <- function() {
  theme_minimal() +
  theme(
    aspect.ratio = 0.6,
    plot.margin = unit(c(1,1,3,1), "cm"),
    axis.text.x = element_text(angle = 45, hjust = 1)
  )
}
# 覆盖原有的柱状图函数，自动添加固定参数
geom_col_fixed <- function(...) geom_col(..., width = 0.7, position = position_dodge(0.8))
geom_bar_fixed <- function(...) geom_bar(..., width = 0.7, position = position_dodge(0.8))

2. 全局替换脚本里的geom_col为geom_col_fixed、geom_bar为geom_bar_fixed，再给每个ggplot调用的结尾添加+ custom_bar_theme()即可，不需要改动其他业务逻辑。

内容的提问来源于stack exchange，提问作者María Agustina Conrrero