如何在ggplot的patchwork中调整整体图标题位置减少空白

核心原因 #

你遇到的空白问题是因为每个子图即使设置了title = ""，ggplot仍会默认保留标题和副标题的占位空间，叠加后导致整体区域顶部空白被放大。以下是几种实用解决技巧：

方法1：彻底移除子图的标题占位并调整边距 #

直接在子图的主题设置中移除标题、副标题元素，并缩小顶部边距，从根源上消除预留空间。可以用&操作符统一给所有子图应用设置，不用逐个修改：

# 先定义子图（无需设置空title/subtitle，后续统一移除）
p1 <- dtest %>% 
  ggplot(., aes(x = score1, y = height1)) +
  geom_point(size = 4) +
  geom_smooth(method = "lm", size = 2, color = "firebrick") +
  labs(x = "Score1", y = "Height1") +
  theme_minimal()

p2 <- dtest %>% 
  ggplot(., aes(x = score1, y = height1)) +
  geom_point(size = 4) +
  geom_smooth(method = "lm", size = 2, color = "firebrick") +
  labs(x = "Score1", y = "Height2") +
  theme_minimal()

p3 <- dtest %>% 
  ggplot(., aes(x = score2, y = height2)) +
  geom_point(size = 4) +
  geom_smooth(method = "lm", size = 2, color = "firebrick") +
  labs(x = "Score2", y = "") +
  theme_minimal()

p4 <- dtest %>% 
  ggplot(., aes(x = score2, y = height2)) +
  geom_point(size = 4) +
  geom_smooth(method = "lm", size = 2, color = "firebrick") +
  labs(x = "Score2", y = "") +
  theme_minimal()

# 拼接并统一设置子图主题
patchwork <- (p1 + p3) / (p2 + p4) & 
  theme(
    plot.title = element_blank(),  # 移除标题占位
    plot.subtitle = element_blank(),  # 移除副标题占位
    plot.margin = margin(t = 5, r = 10, b = 10, l = 10, unit = "pt")  # 缩小顶部边距
  )

# 添加整体标题
patchwork + plot_annotation(
  title = "Test Plot",
  subtitle = "Why is there so much white space under this"
)

方法2：调整整体标题的位置 #

如果不想修改子图，可以通过plot_annotation的主题设置，把整体标题向下移动，同时压缩子图顶部的空白：

patchwork <- (p1 + p3) / (p2 + p4)

patchwork + plot_annotation(
  title = "Test Plot",
  subtitle = "Why is there so much white space under this"
) &
  theme(
    # 给整体标题添加下方边距，强制下移
    plot.title = element_text(margin = margin(b = 15, unit = "pt")),
    plot.subtitle = element_text(margin = margin(b = 20, unit = "pt")),
    plot.margin = margin(t = 0, unit = "pt")  # 消除子图顶部预留边距
  )

方法3：调整布局高度比例 #

通过plot_layout分配标题区域和子图区域的高度比例，减少顶部空白占比：

patchwork <- (p1 + p3) / (p2 + p4)

patchwork + plot_annotation(
  title = "Test Plot",
  subtitle = "Why is there so much white space under this"
) +
  plot_layout(heights = c(0.1, 0.9))  # 标题区占10%，子图区占90%，可按需调整比例

推荐使用方法1，它直接消除了子图的无效占位空间，是最彻底的解决方案。

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