如何单独导出X轴对齐但Y轴独立的ggplot2图形？

需求背景 #

需要生成多个ggplot2图形，单独导出后在Inkscape或MS Publisher中组合为出版级图件，要求仅X轴完全对齐（绘图区域、轴文本、标题等宽度一致），Y轴高度可自由调整，同时避免在R中组合图形以保留后续排版的完全控制权。当前使用patchwork的get_dim()/set_dim()会同时锁定XY轴尺寸，无法满足需求。

解决方案 #

方法1：手动固定宽度参数（最直接） #

核心思路是统一所有图形的X轴相关布局参数，导出时固定宽度、自定义高度，确保X轴区域完全一致。

1. 统一X轴及布局参数
   确保所有图形的以下参数完全一致（你的代码中已基本设置，需确认无差异）：

• plot.margin的左右边距
• X轴文本、标题的大小、边距
• 图例位置及尺寸（若有）
• 移除aspect.ratio设置（它会强制宽高比，限制Y轴自由调整）

修改示例代码：

# 移除p1的aspect.ratio限制
p1 <- p1 + theme(aspect.ratio = NULL)
# 移除p2的aspect.ratio限制
p2 <- p2 + theme(aspect.ratio = NULL)

2. 固定宽度导出
   用ggsave导出时指定相同的width参数，height按需自定义：

# 导出p1，宽度固定为10cm，高度设为8cm（矢量格式更适合后续编辑）
ggsave("p1.pdf", p1, width = 10, height = 8, dpi = 300, device = cairo_pdf)
# 导出p2，宽度保持10cm，高度设为12cm
ggsave("p2.pdf", p2, width = 10, height = 12, dpi = 300, device = cairo_pdf)

导出的图形X轴区域宽度完全一致，导入Inkscape后只需对齐上下基准线即可实现X轴完美对齐。

方法2：利用patchwork单独提取/设置X轴宽度 #

借助patchwork的维度工具，仅提取目标图形的宽度，应用到其他图形上，保留Y轴原有高度：

library(patchwork)

# 获取p1的维度信息
p1_dims <- get_dim(p1)
# 获取p2原有高度
p2_orig_height <- get_dim(p2)$height

# 仅将p2的宽度设置为p1的宽度，高度保留原尺寸
p2_x_aligned <- set_dim(p2, list(width = p1_dims$width, height = p2_orig_height))

# 导出对齐后的图形
ggsave("p1_final.pdf", p1, width = p1_dims$width, height = 8, dpi = 300)
ggsave("p2_final.pdf", p2_x_aligned, width = p1_dims$width, height = p2_orig_height, dpi = 300)

关键注意事项 #

• 优先使用矢量格式（如PDF）导出，避免位图在编辑时失真；
• 确保所有图形的X轴相关样式（轴刻度、文本大小、标题位置）完全一致，否则即使宽度相同也会出现错位；
• 若图形包含图例，需统一图例的位置（如均设为右侧）和尺寸，避免影响整体宽度。

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