如何固定ggplot面板尺寸并保持其在独立PDF中的位置对齐？

核心问题是：当y轴刻度/标签长度不同时，ggplot会自动调整边距并居中面板，导致即使面板尺寸固定，在PDF中的位置仍会变化。以下是几种可行的解决方法：

方法一：固定绘图边距（最简便） #

通过theme(plot.margin)固定绝对边距值，配合ggh4x::force_panelsizes锁定面板尺寸，强制面板在绘图区域内的位置一致。

library(ggplot2)
library(ggh4x)

# 基础绘图
p1 <- ggplot(mpg, aes(x = hwy, y = cty)) + geom_point()
p2 <- ggplot(mpg, aes(x = hwy, y = cty*10000)) + geom_point()

# 统一设置面板尺寸+固定边距
fixed_plot <- function(p) {
  p + 
    force_panelsizes(cols = unit(3, "cm"), rows = unit(3, "cm")) +
    # 边距顺序：上、右、下、左，单位cm，可根据需求调整
    theme(plot.margin = margin(1, 2, 1, 1, "cm"))
}

p1_fixed <- fixed_plot(p1)
p2_fixed <- fixed_plot(p2)

# 导出PDF，保持一致的画布尺寸
ggsave(p1_fixed, "p1_fixed.pdf", height = 5, width = 6, units = "cm")
ggsave(p2_fixed, "p2_fixed.pdf", height = 5, width = 6, units = "cm")

原理：固定右边距后，无论y轴标签多长，面板都会从左侧边距的位置开始延伸，不会因为自动调整边距而偏移。

方法二：用grid包手动指定面板位置 #

如果需要更精确的坐标控制，可以直接用grid包的viewport指定面板在画布中的绝对位置：

library(ggplot2)
library(grid)

p1 <- ggplot(mpg, aes(x = hwy, y = cty)) + geom_point()
p2 <- ggplot(mpg, aes(x = hwy, y = cty*10000)) + geom_point()

# 导出p1，指定viewport参数
pdf("p1_viewport.pdf", height = 5, width = 6, units = "cm")
# x/y是相对画布的位置（0-1），width/height是相对画布的比例
pushViewport(viewport(x = 0.3, y = 0.5, width = 3/6, height = 3/5))
print(p1, newpage = FALSE)
dev.off()

# 完全复用相同的viewport参数导出p2
pdf("p2_viewport.pdf", height = 5, width = 6, units = "cm")
pushViewport(viewport(x = 0.3, y = 0.5, width = 3/6, height = 3/5))
print(p2, newpage = FALSE)
dev.off()

方法三：统一y轴标签宽度（应急方案） #

如果不想调整边距，可以通过格式化y轴标签，强制所有图的y轴标签宽度一致：

library(ggplot2)
library(stringr)

# 格式化y轴标签，填充空格到固定长度
fixed_y_labels <- function(labels) {
  str_pad(labels, width = 6, side = "left") # 调整width匹配最长标签
}

p1 <- ggplot(mpg, aes(x = hwy, y = cty)) +
  geom_point() +
  scale_y_continuous(labels = fixed_y_labels)

p2 <- ggplot(mpg, aes(x = hwy, y = cty*10000)) +
  geom_point() +
  scale_y_continuous(labels = fixed_y_labels)

# 配合ggh4x固定面板尺寸
p1 <- p1 + force_panelsizes(cols = unit(3, "cm"), rows = unit(3, "cm"))
p2 <- p2 + force_panelsizes(cols = unit(3, "cm"), rows = unit(3, "cm"))

ggsave(p1, "p1_uniform.pdf", height = 5, width = 6, units = "cm")
ggsave(p2, "p2_uniform.pdf", height = 5, width = 6, units = "cm")

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