使用R语言patchwork包拼接三张图表的尺寸问题求助

针对你遇到的问题，核心原因是未指定布局的列宽比例，导致patchwork默认平均分配列宽，挤压了graph1的原始尺寸。以下是两种可行的解决方案：

方案一：用inset_element嵌入graph2，保留graph1原始尺寸 #

这种方式直接将graph2叠加在graph1的指定区域，完全不改变graph1的原始大小，再和graph3拼接：

library(patchwork)

# 将graph2嵌入到graph1的右侧区域（可调整left/right参数控制嵌入位置）
g1_g2 <- graph1 + inset_element(graph2, left = 0.5, bottom = 0, right = 1, top = 1)

# 与graph3拼接，设置宽度比例（根据需求调整数值）
g1_g2 + graph3 + plot_layout(widths = c(2, 1))

方案二：调整布局列宽，匹配graph1原始比例 #

如果你坚持使用plot_layout(design)，通过widths参数指定列宽比例，让graph1所在列的宽度匹配其原始尺寸：

library(patchwork)

patch_design <- c(area(1, 1, 1, 1),
                  area(1, 1, 1, 2),       
                  area(1, 3, 1, 3)) 

# 根据graph1原始宽高比设置列宽，示例中第一列宽度设为2，其余为1
graph1 + graph2 + graph3 + 
  plot_layout(design = patch_design, widths = c(2, 1, 1))

额外技巧：获取graph1的原始宽高比 #

如果不确定graph1的比例，可以用以下代码查看：

# 查看ggplot对象的宽高比
ggplot_build(graph1)$plot$theme$aspect.ratio

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