如何在patchwork布局左下空白嵌入ggplot图形p3且不破坏原有结构

有两种简单的方法可以实现将p3嵌入原布局的左下角空白区域，同时保留原有图形的结构：

方法1：直接修改design参数 #

原布局的design = "AABB\n#CC#"中，左下角的#是空白单元格，我们可以将其替换为新的字母（比如D），然后把p3作为对应字母的图形传入wrap_plots：

library(ggplot2)
library(patchwork)

# 示例图形（替换成你的实际图形）
p1 <- ggplot(mtcars, aes(mpg, disp)) + geom_point() + ggtitle("p1")
p2 <- ggplot(mtcars, aes(hp, wt)) + geom_point() + ggtitle("p2")
p3 <- ggplot(mtcars, aes(qsec, drat)) + geom_point() + ggtitle("p3")
p4 <- ggplot(mtcars, aes(cyl, carb)) + geom_point() + ggtitle("p4")

# 修改design，用D替换左下角的#，并传入p3作为第四个图形
final_plot <- wrap_plots(p1, p2, p4, p3, design = "AABB\nDCC#")

这种方法完全贴合原有的网格布局，p3的尺寸会和布局中其他单元格保持一致。

方法2：用inset_element嵌入图形 #

如果你不想调整原布局的图形传入顺序，可以先创建原布局的基础图形，再用inset_element将p3精准定位到左下角空白区域：

# 先创建原布局
base_plot <- wrap_plots(p1, p2, p4, design = "AABB\n#CC#")

# 将p3嵌入左下角，通过npc坐标控制位置（0-1范围，对应整个画布）
final_plot <- base_plot +
  inset_element(
    p3,
    left = 0,    # 左边界
    bottom = 0,  # 下边界
    right = 0.25,# 右边界（对应原布局第一个单元格的宽度占比）
    top = 0.5,   # 上边界（对应原布局下半部分的高度占比）
    align_to = "panel"  # 对齐到面板区域，避免图形边缘和画布重叠
  )

这种方法更灵活，你可以通过调整left/right/bottom/top的数值微调p3的位置和大小。

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