grid.arrange生成的ggplot组合图如何设置标题上方边距

grid.arrange的top参数默认会把标题控件垂直居中在顶部预留的窄条区域内，没有直接调节标题上方空白的内置参数，只需要对传入top的内容做自定义调整即可，完全不需要修改子图的原有配置。

方案1：添加固定尺寸的透明空白占位（尺寸最精准） #

你可以将“透明空白占位 + 原有标题”按垂直方向排列后，作为整体传入top参数，通过调整占位的高度直接控制标题上方的留白大小。
可直接运行的完整代码：

# 加载基础依赖包
library(ggplot2)
library(gridExtra)
library(grid)

# 原有绘图代码
df1 = data.frame(x=1:10, y1=11:20, y2=21:30)
gg1 = ggplot(df1) + geom_point(aes(x=x, y=y1))
gg2 = ggplot(df1) + geom_point(aes(x=x, y=y2))

# 自定义顶部组合元素：垂直排列的空白占位+标题
custom_top = arrangeGrob(
  # 第一层：顶部空白占位，完全透明不显示
  rectGrob(gp = gpar(col = NA, fill = NA)),
  # 第二层：原有标题文本
  textGrob(
    "Here should be some space above",
    gp = gpar(fontsize=18, fontfamily="Times New Roman")
  ),
  # 配置两层的高度：第一层空白为固定2cm，第二层标题为自适应高度
  heights = unit(c(2, 1), c("cm", "null"))
)

# 拼接输出图像
grid.arrange(gg1, gg2, top = custom_top)

• 调整heights参数中的第一个数值，即可按需增减标题上方的空白，比如要留3cm空白就把第一个值改成3，要留0.5cm就改成0.5，尺寸完全固定，导出图片时不会随窗口大小变形。
• 调试时可以临时把透明占位的fill改成浅灰色，直观查看留白范围，调整好再改回透明即可。

方案2：调整标题在顶部区域的相对位置（操作最简便） #

如果你不需要精准的固定留白尺寸，也可以直接修改原有textGrob的垂直位置参数，让标题在顶部区域内靠下放置，自然在上方留出空白：

# 原有标题代码，仅新增y参数调整垂直位置
adjusted_title = textGrob(
  "Here should be some space above",
  gp = gpar(fontsize=18, fontfamily="Times New Roman"),
  # 坐标参考为顶部预留区域的相对位置：0代表区域最底部，1代表区域最顶部
  y = unit(0.2, "npc")
)

grid.arrange(gg1, gg2, top = adjusted_title)

• 这种方法不需要额外添加占位元素，修改成本极低；
• 留白是相对顶部区域的比例值，适合对尺寸精度要求不高的场景。

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