ggplot2固定文本元素高度：解决grid.arrange图Y轴对齐偏差问题

我明白你遇到的问题——当两个ggplot的标题一个带有下伸字符（比如g、y、j），另一个没有时，用grid.arrange排版会出现Y轴不对齐的情况。这是因为默认情况下，ggplot会根据标题文本的实际高度调整标题区域的垂直空间，带下伸字符的标题会占据更多高度，导致下方的绘图区域被往上推。

下面给你两种简单的解决方法，比直接修改grobs要友好得多：

方法1：通过theme统一标题的行高和边距 #

你完全可以用theme()里的element_text()来固定标题区域的高度，核心是给标题设置固定的底部边距，同时统一行高，确保不管标题有没有下伸字符，标题下方留给绘图区域的起始位置一致。

先补全你的示例代码方便演示：

library(ggplot2)
library(gridExtra)

# 带下伸字符的标题图
p1 <- ggplot(mtcars, aes(wt, mpg)) +
  geom_point() +
  ggtitle("Plot with descenders (g, y)")

# 无下伸字符的标题图
p2 <- ggplot(mtcars, aes(wt, hp)) +
  geom_point() +
  ggtitle("Plot without descenders")

# 默认排版会有对齐偏差
grid.arrange(p1, p2, ncol = 2)

现在给两个图应用统一的标题样式：

# 定义统一的标题主题：固定行高 + 固定底部边距
uniform_title_theme <- theme(
  plot.title = element_text(
    lineheight = 1.2,  # 固定文本行高，避免文本自身高度差异
    margin = margin(b = 20)  # 强制标题下方留出20pt的固定空间，单位是pt
  )
)

# 应用到两个图
p1_fixed <- p1 + uniform_title_theme
p2_fixed <- p2 + uniform_title_theme

# 现在两张图的Y轴就能完美对齐了
grid.arrange(p1_fixed, p2_fixed, ncol = 2)

这里的关键是margin(b = 20)——它强制标题区域的底部到绘图区域顶部的距离固定，不管标题本身的高度，从而保证两个图的绘图区域起始位置一致。你可以根据自己的需求调整b的数值（比如15、25），找到最合适的间距。

方法2：用patchwork包替代gridExtra（更省心） #

如果你愿意换个排版工具，patchwork包是更好的选择——它默认会自动对齐所有子图的绘图区域，完全不用手动调整标题样式。

安装并使用的代码如下：

# 先安装包（如果没装过）
# install.packages("patchwork")
library(patchwork)

# 直接用+拼接两个图，自动对齐Y轴
p1 + p2

patchwork在处理多图排版时，会忽略标题、图例等元素的高度差异，优先对齐核心的绘图区域，这完全解决了你遇到的对齐问题，代码也更简洁。

不推荐的方法：直接修改grobs #

你提到的用ggplotGrob修改网格元素确实可行，但需要深入理解grid图形系统的结构，步骤繁琐，容易出错，除非你有特殊的定制需求，否则完全没必要用这种方法。

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