如何将grid.arrange并排图的标题置于左上角？

我懂你想要把组合图的标题放在左上角的需求，默认top参数生成的标题确实是居中的，翻?arrangeGrob文档可能找不到直接的参数设置，但我们可以借助grid包的textGrob来自定义标题的位置，下面是完整的可复现代码：

首先加载所需的包：

library(ggplot2)
library(gridExtra)
library(grid)  # 用来创建自定义文本对象

创建示例图形：

p1 <- qplot(1:20)
p2 <- qplot(30, 35)

接下来是关键步骤——创建左对齐的标题文本框，然后传入grid.arrange：

# 自定义左上角标题：设置x为0实现左对齐，hjust=0确保文本靠左
custom_title <- textGrob("Title",
                         x = unit(0, "npc"),  # npc单位：0对应最左侧，1对应最右侧
                         hjust = 0,
                         gp = gpar(fontsize = 14, fontface = "bold"))  # 可自定义字体大小、样式

# 组合图形并应用自定义标题，可选调整padding让标题和图形间距更合理
grid.arrange(p1, p2, nrow = 1,
             top = custom_title,
             padding = unit(5, "mm"))

原理说明 #

当你给top传字符串时，gridExtra会自动生成一个居中对齐的textGrob。而我们手动创建textGrob时，通过x = unit(0, "npc")把文本锚点定位到整个绘图区域的最左侧，再配合hjust=0让文本本身靠左对齐，就能实现标题在左上角的效果。如果觉得标题太贴左边，还可以把x改成unit(0.02, "npc")来微调位置。

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