如何用ggsave导出同比例ggplot图？解决X轴文本长度差异问题

问题概述 #

需导出一组Y轴刻度范围统一（0-5）的ggplot柱状图，用于叠加到地图（要求透明背景）。但因X轴文本长度不同（如绿色组包含2003-2004长文本），即使在ggsave中指定相同的width和height，最终导出图表的绘图区域比例仍不一致，导致Y轴刻度的显示尺寸不同，无法直接叠加使用。且无法通过facet_wrap合并图表，需单独导出透明背景文件。

解决方案 #

核心思路是强制固定所有图表的绘图面板尺寸，而非仅固定画布整体尺寸。以下提供两种可行方法：

方法一：使用egg包固定面板尺寸 #

egg包的set_panel_size()函数可直接指定绘图面板的宽高，确保所有图表的核心绘图区域完全一致。

1. 安装并加载egg包：

install.packages("egg")
library(egg)

2. 修改绘图与保存代码：
   在原有绘图代码基础上，对生成的图表对象调用set_panel_size()固定面板尺寸，再导出：

# 蓝色组图表（固定面板尺寸）
length.blue.fixed <- set_panel_size(length.blue, width = unit(4, "in"), height = unit(6, "in"))
# 绿色组图表（固定面板尺寸）
length.green.fixed <- set_panel_size(length.green, width = unit(4, "in"), height = unit(6, "in"))

# 导出透明背景图表
ggsave("length.blue.png", plot = length.blue.fixed, dpi=90, width = 6, height = 7, bg = "transparent")
ggsave("length.green.png", plot = length.green.fixed, dpi=90, width = 6, height = 7, bg = "transparent")

方法二：统一调整绘图边距 #

通过设置相同的plot.margin，补偿不同长度X轴文本占用的空间，间接保证绘图面板尺寸一致。

修改原有绘图代码的theme部分，为两个图表添加统一的边距（底部边距需预留足够空间容纳最长的X轴文本）：

# 蓝色组绘图代码修改
length.blue <- ggplot(df %>% filter(Colour=="Blue"), aes(x = Year, y = Length_mm)) + 
  geom_bar(stat="identity", position="dodge", fill = "#000000") +
  xlab("") + 
  ylab("") +
  scale_y_continuous(limits = c(0,5)) +
  theme_classic() +
  theme(legend.position = "") +
  theme(panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        panel.border = element_blank(),
        axis.text.x = element_text(size = 40, angle = 90, hjust = 1), # 确保文本右对齐
        axis.text.y = element_text(size = 40),
        axis.line = element_line(size = 2),
        panel.background = element_rect(fill = "transparent", colour = NA),
        plot.background = element_rect(fill = "transparent", colour = NA),
        plot.margin = margin(1, 1, 2.5, 1, "cm")) # 统一边距，底部预留足够空间

# 绿色组绘图代码修改（边距与蓝色组完全一致）
length.green <- ggplot(df %>% filter(Colour=="Green"), aes(x = Year, y = Length_mm)) + 
  geom_bar(stat="identity", position="dodge", fill = "#000000") +
  xlab("") + 
  ylab("") +
  scale_y_continuous(limits = c(0,5)) +
  theme_classic() +
  theme(legend.position = "") +
  theme(panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        panel.border = element_blank(),
        axis.text.x = element_text(size = 40, angle = 90, hjust = 1),
        axis.text.y = element_text(size = 40),
        axis.line = element_line(size = 2),
        panel.background = element_rect(fill = "transparent", colour = NA),
        plot.background = element_rect(fill = "transparent", colour = NA),
        plot.margin = margin(1, 1, 2.5, 1, "cm")) # 与蓝色组相同的边距

# 导出图表
ggsave("length.blue.png", plot = length.blue, dpi=90, width = 5, height = 7, bg = "transparent")
ggsave("length.green.png", plot = length.green, dpi=90, width = 5, height = 7, bg = "transparent")

效果验证 #

两种方法均可确保导出的图表中，Y轴0-5的绘图区域像素尺寸完全一致，刻度显示大小统一，且背景保持透明，可直接叠加到地图上使用。

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