如何在Patchwork中打破同行列不同宽高比图表的对齐？

针对你需要的图表布局（B/C保持1:1宽高比且尺寸一致、D系列保持3:1宽高比、打破C与D的y轴对齐、添加第三行D类面板），以下是几种可落地的方案：

方案一：egg + patchwork（推荐，兼顾灵活与精确） #

核心思路是用egg::set_panel_size()固定B和C的面板尺寸，确保二者完全一致，再通过patchwork的嵌套布局和align="none"打破轴对齐，同时保留各图的宽高比。

步骤1：绘制基础图表 #

library(ggplot2)
library(patchwork)
library(egg)

# 绘制B（1:1宽高比）
p_b <- ggplot(mtcars, aes(mpg, wt)) + 
  geom_point() + 
  theme(aspect.ratio = 1, plot.margin = margin(5,5,5,5,"pt"))

# 绘制C（1:1宽高比）
p_c <- ggplot(mtcars, aes(hp, qsec)) + 
  geom_point() + 
  theme(aspect.ratio = 1, plot.margin = margin(5,5,5,5,"pt"))

# 绘制D（带顶部分面，3:1宽高比）
p_d <- ggplot(mtcars, aes(disp, drat)) + 
  geom_point() + 
  facet_wrap(~cyl, nrow = 1) + 
  theme(aspect.ratio = 3, plot.margin = margin(5,5,5,5,"pt"))

# 第三行的3个D类面板
p_d1 <- p_d + labs(title = "D1")
p_d2 <- p_d + labs(title = "D2")
p_d3 <- p_d + labs(title = "D3")

步骤2：固定B/C的面板尺寸 #

用set_panel_size()强制B和C的面板使用相同的固定尺寸（适合出版级精确要求）：

# 设置面板为5cm×5cm（可根据出版要求调整单位，如in）
panel_dim <- unit(5, "cm")
p_b_fixed <- set_panel_size(p_b, width = panel_dim, height = panel_dim)
p_c_fixed <- set_panel_size(p_c, width = panel_dim, height = panel_dim)

步骤3：构建嵌套布局 #

# 第二行：C与D组合，关闭轴对齐避免C被D的高度限制
row2 <- wrap_plots(p_c_fixed, p_d, ncol = 2, align = "none", widths = c(1, 2))

# 第三行：3个D类面板横向排列，水平对齐保证一致性
row3 <- wrap_plots(p_d1, p_d2, p_d3, ncol = 3, align = "h")

# 整体组合：按行排列，设置高度比例适配各部分尺寸
final_plot <- wrap_plots(p_b_fixed, row2, row3, nrow = 3, heights = c(5, 6, 2))
# heights参数可根据实际预览效果微调，确保B/C的高度完全匹配

步骤4：导出出版级图表 #

ggsave("final_plot.pdf", final_plot, width = 18, height = 22, units = "cm", dpi = 300)

方案二：grid手动布局（极致精确，适合复杂出版需求） #

如果需要完全控制每个图表的位置和尺寸，可直接用grid包的viewport定位，彻底摆脱自动对齐的限制。

核心代码示例 #

library(grid)

# 转换图表为grob对象
g_b <- ggplotGrob(p_b)
g_c <- ggplotGrob(p_c)
g_d <- ggplotGrob(p_d)
g_d1 <- ggplotGrob(p_d1)
g_d2 <- ggplotGrob(p_d2)
g_d3 <- ggplotGrob(p_d3)

# 定义固定尺寸（单位cm）
total_width <- 18
panel_dim <- 5
gap <- 0.5
# D的尺寸：宽=总宽度 - C的宽度 - 间隙，高=宽/3（保持3:1宽高比）
d_width <- total_width - panel_dim - gap
d_height <- d_width / 3
# 第三行每个D类面板的尺寸
d_row_width <- (total_width - 2*gap)/3
d_row_height <- d_row_width / 3

# 调整B/C的面板尺寸
adjust_panel_size <- function(grob, w, h) {
  panel_l <- grob$layout$l[grob$layout$name == "panel"]
  panel_t <- grob$layout$t[grob$layout$name == "panel"]
  grob$widths[panel_l] <- unit(w, "cm")
  grob$heights[panel_t] <- unit(h, "cm")
  return(grob)
}
g_b <- adjust_panel_size(g_b, panel_dim, panel_dim)
g_c <- adjust_panel_size(g_c, panel_dim, panel_dim)
g_d <- adjust_panel_size(g_d, d_width/3, d_height) # D有3个分面，每个分面宽度为d_width/3
g_d1 <- adjust_panel_size(g_d1, d_row_width/3, d_row_height)
g_d2 <- adjust_panel_size(g_d2, d_row_width/3, d_row_height)
g_d3 <- adjust_panel_size(g_d3, d_row_width/3, d_row_height)

# 手动定位所有图表
grid.newpage()
# 第一行：B
pushViewport(viewport(x = panel_dim/(2*total_width), y = 0.85, 
                      width = panel_dim + 1, height = panel_dim + 1, just = "left"))
grid.draw(g_b)
popViewport()
# 第二行：C
pushViewport(viewport(x = panel_dim/(2*total_width), y = 0.5, 
                      width = panel_dim + 1, height = panel_dim + 1, just = "left"))
grid.draw(g_c)
popViewport()
# 第二行：D
pushViewport(viewport(x = (panel_dim + gap + d_width/2)/total_width, y = 0.5, 
                      width = d_width + 1, height = d_height + 1, just = "left"))
grid.draw(g_d)
popViewport()
# 第三行：D1-D3
pushViewport(viewport(x = d_row_width/(2*total_width), y = 0.15, 
                      width = d_row_width + 1, height = d_row_height + 1, just = "left"))
grid.draw(g_d1)
popViewport()
pushViewport(viewport(x = (d_row_width + gap + d_row_width/2)/total_width, y = 0.15, 
                      width = d_row_width + 1, height = d_row_height + 1, just = "left"))
grid.draw(g_d2)
popViewport()
pushViewport(viewport(x = (2*d_row_width + 2*gap + d_row_width/2)/total_width, y = 0.15, 
                      width = d_row_width + 1, height = d_row_height + 1, just = "left"))
grid.draw(g_d3)
popViewport()

# 导出图表
grid.save("final_plot_grid.pdf", width = total_width, height = 22, units = "cm")

方案三：cowplot布局（简洁易用） #

利用cowplot的plot_grid()的align="none"参数打破轴对齐，同时结合rel_widths/rel_heights调整比例：

library(cowplot)

# 固定B/C面板尺寸（同方案一）
p_b_fixed <- set_panel_size(p_b, width = unit(5, "cm"), height = unit(5, "cm"))
p_c_fixed <- set_panel_size(p_c, width = unit(5, "cm"), height = unit(5, "cm"))

# 组合第二行
row2 <- plot_grid(p_c_fixed, p_d, ncol = 2, align = "none", rel_widths = c(1, 2))
# 组合第三行
row3 <- plot_grid(p_d1, p_d2, p_d3, ncol = 3, align = "h")
# 整体组合
final_plot <- plot_grid(p_b_fixed, row2, row3, nrow = 3, rel_heights = c(1, 1.2, 0.8))

# 导出
ggsave("final_plot_cowplot.pdf", final_plot, width = 18, height = 22, units = "cm", dpi = 300)

关键问题解决要点 #

1. 确保B/C尺寸完全一致：必须用固定单位（如cm）设置面板尺寸，而非相对比例；egg::set_panel_size()是最直接的方法，能精准控制绘图区域的大小，不受布局其他元素影响。
2. 保留宽高比同时打破对齐：在组合需要独立尺寸的子图时，设置align="none"（patchwork或cowplot均支持），这样每个图会严格遵循自身的aspect.ratio，不会被其他图的轴高度/宽度强制对齐。
3. 出版级要求适配：导出时指定精确的宽度、高度和dpi，统一所有图表的字体、轴标签样式，避免布局变形。

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