使用ggh4x固定面板尺寸后如何对齐多面板图形

问题根源 #

force_panelsizes() 强制锁定了绘图核心面板的尺寸，但两个图形的非面板区域（比如左侧图例、轴标签的宽度）存在差异，导致plot_grid() 的水平对齐逻辑无法正常生效。

三种可行解决方案 #

方案1：用patchwork替代cowplot（推荐） #

patchwork对ggplot2生态的扩展工具兼容性更好，能自动识别并对齐固定尺寸的面板：

library(ggplot2)
library(ggh4x)
library(patchwork)

a <- ggplot(data = mpg) + 
  geom_point(mapping = aes(x = displ, y = hwy, color = class)) +
  theme(legend.position = "bottom") +
  force_panelsizes(rows = unit(3, "in"), cols = unit(3, "in")) +
  labs(tag = "A.")

b <- ggplot(data = mpg) +
  geom_boxplot(aes(x = as.factor(cyl), y = hwy)) +
  force_panelsizes(rows = unit(3, "in"), cols = unit(3, "in")) +
  labs(tag = "B.")

# 按列排列并对齐顶部、底部（x轴）
a + b + plot_layout(ncol = 2, align = "bt")

ggsave(
  "fixed_plot.png",
  height = 6,
  width = 7.5,
  units = "in",
  dpi = 300
)

方案2：调整cowplot参数，统一非面板空间 #

如果坚持使用cowplot，可通过统一图形边距、调整对齐参数来解决：

library(ggplot2)
library(ggh4x)
library(cowplot)

# 给两个图形设置完全相同的边距（上、右、下、左）
a <- ggplot(data = mpg) + 
  geom_point(mapping = aes(x = displ, y = hwy, color = class)) +
  theme(legend.position = "bottom",
        plot.margin = margin(10, 10, 10, 10)) +
  force_panelsizes(rows = unit(3, "in"), cols = unit(3, "in"))

b <- ggplot(data = mpg) +
  geom_boxplot(aes(x = as.factor(cyl), y = hwy)) +
  theme(plot.margin = margin(10, 10, 10, 10)) +
  force_panelsizes(rows = unit(3, "in"), cols = unit(3, "in"))

plot_grid(
  a,
  b,
  labels = c("A.", "B."),
  vjust = 3,
  ncol = 2,
  align = 'hv',  # 同时对齐水平和垂直方向
  axis = "bt",   # 指定对齐顶部和底部（x轴）
  rel_widths = c(1, 1)  # 强制两个图形宽度一致
) 

ggsave(
  "fixed_plot_cowplot.png",
  height = 6,
  width = 7.5,
  units = "in",
  dpi = 300
)

方案3：用ggh4x自带的align_plots函数 #

ggh4x提供了专门针对固定面板图形的对齐工具，先对齐再组合：

library(ggplot2)
library(ggh4x)
library(cowplot)

a <- ggplot(data = mpg) + 
  geom_point(mapping = aes(x = displ, y = hwy, color = class)) +
  theme(legend.position = "bottom") +
  force_panelsizes(rows = unit(3, "in"), cols = unit(3, "in"))

b <- ggplot(data = mpg) +
  geom_boxplot(aes(x = as.factor(cyl), y = hwy)) +
  force_panelsizes(rows = unit(3, "in"), cols = unit(3, "in"))

# 先完成图形对齐
aligned_plots <- align_plots(a, b, align = "hv", axis = "bt")

# 再用plot_grid组合对齐后的图形
plot_grid(
  plotlist = aligned_plots,
  labels = c("A.", "B."),
  vjust = 3,
  ncol = 2
) 

ggsave(
  "fixed_plot_ggh4x.png",
  height = 6,
  width = 7.5,
  units = "in",
  dpi = 300
)

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