如何在ggplot2中将Y轴标题左对齐放置于绘图区域顶部边距？

默认情况下，ggplot2的Y轴标题为垂直方向（angle = 90），位于绘图区域左侧：

ggplot(iris, aes(x = Species, y = Sepal.Length, fill = Species)) + geom_boxplot()

需求是将Y轴标题改为水平方向（angle = 0），放置在绘图区域顶部边距，且左对齐至Y轴标签的左边缘。以下是两种规范的程序化实现方案，替代手动调参的临时方法：

方案1：ggplot2 3.5.0+ 原生参数（推荐） #

从ggplot2 3.5.0版本开始，新增了axis.title.y.position参数，可以直接指定Y轴标题的位置，配合文本属性设置即可实现需求：

ggplot(iris, aes(x = Species, y = Sepal.Length, fill = Species)) +
  geom_boxplot() +
  theme(
    axis.title.y = element_text(
      angle = 0,          # 设置水平方向
      hjust = 0,          # 左对齐
      vjust = 1,          # 与顶部边距对齐
      margin = margin(b = 10)  # 调整标题与绘图区域的间距
    ),
    axis.title.y.position = "top"  # 将Y轴标题移至顶部
  )

方案2：旧版本ggplot2 用gtable程序化调整 #

如果使用的是3.5.0之前的ggplot2版本，可以借助gtable包获取绘图布局信息，程序化调整Y轴标题的位置，无需手动硬编码边距数值：

library(ggplot2)
library(gtable)

# 先绘制基础图，设置Y轴标题为水平左对齐
p <- ggplot(iris, aes(x = Species, y = Sepal.Length, fill = Species)) +
  geom_boxplot() +
  theme(axis.title.y = element_text(angle = 0, hjust = 0))

# 转换为gtable对象
gt <- ggplotGrob(p)

# 定位Y轴标题的布局位置
title_y_idx <- which(gt$layout$name == "axis-title-y")
# 定位Y轴标签的列位置，保证标题左对齐到标签边缘
y_label_col <- gt$layout$col[which(gt$layout$name == "axis-l-y")]

# 调整Y轴标题的行（移到顶部）和列（与Y轴标签同列）
gt$layout$row[title_y_idx] <- 1
gt$layout$col[title_y_idx] <- y_label_col

# 调整标题与下方绘图区域的间距
gt$grobs[[title_y_idx]]$margin <- margin(b = 10)

# 绘制调整后的图形
grid::grid.draw(gt)

这两种方案都无需手动反复调整参数，完全程序化，符合ggplot2的设计逻辑，避免了临时方案的局限性。

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