ggplot实现y轴标题水平置于轴上方的健壮主题开发及问题

我正在开发一个健壮的ggplot主题，目标是让y轴标题水平显示在y轴文本的上方，且希望这是通用自动的解决方案，而非手动适配。当前实现存在三个核心问题：

• 使用theme_set设置默认主题时，无法触发ggplot_add.test_theme来完成y轴标题与副标题的切换
• 绘制分面图时，y轴标题会被移到分面区域之外，尝试过添加辅助轴等方法，未找到通用坐标定位方式
• 依赖切换y轴标题与副标题的实现逻辑，要求主题必须在labs()等修改y轴标题的代码之后添加

附当前实现代码：

library(ggplot2)

test_theme <- \(){
  tmp <- theme_grey() + theme(
    plot.title.position = "plot",
    axis.title.x = element_text(hjust = 1)
  )
  class(tmp) <- c("test_theme", c("theme", "gg"))
  return(tmp)
}

# Make changes to the plot when test_theme is added to a ggplot (e.g. p + test_theme())
ggplot_add.test_theme <- function(object, plot, object_name) {
  # Move the y-axis to the subtitle
  plot$labels$subtitle <- plot$labels$y
  plot$labels$y <- ""
  plot
}

# Set the new theme as the default
theme_set(test_theme())

# Problem 1
# x-axis moved, y-axis in default position
ggplot(mpg, aes(cyl, displ)) + 
  geom_point()

# both axis have moved - this is what the plot should look like.
ggplot(mpg, aes(cyl, displ)) + 
  geom_point() +
  test_theme()

# Problem 2
# Facetting moves the y-axis outside the facet.
ggplot(mpg, aes(cyl, displ)) + 
  geom_point() +
  facet_wrap(fl ~ .) +
  test_theme()

# Problem 3
# Breaks if labs is after the theme
ggplot(mpg, aes(cyl, displ)) + 
  geom_point() +
  test_theme() +
  labs(y = "Y test")

放弃将y轴标题转为副标题的思路，直接通过theme()参数调整axis.title.y的方向、位置与边距，同时预留绘图空间避免遮挡。该方案天然支持默认主题设置、分面布局，且不受labs()调用顺序影响。

实现代码：

library(ggplot2)

# 自定义主题：将y轴标题水平显示在y轴文本上方
theme_y_title_top <- function(base_size = 11, base_family = "") {
  theme_grey(base_size = base_size, base_family = base_family) +
    theme(
      # 设置y轴标题为水平方向，左对齐并定位到y轴上方
      axis.title.y = element_text(angle = 0, hjust = 0, vjust = 1, margin = margin(b = 10)),
      # 调整y轴刻度标签的右边距，避免与标题重叠
      axis.text.y = element_text(margin = margin(r = 15)),
      # 扩大绘图区域左侧边距，确保标题完整显示
      plot.margin = margin(t = 5, r = 20, b = 5, l = 50),
      # 保留原主题的x轴标题右对齐设置
      axis.title.x = element_text(hjust = 1),
      plot.title.position = "plot"
    )
}

# 设置为默认主题
theme_set(theme_y_title_top())

# 测试问题1：默认主题生效，y轴标题水平显示在上方
ggplot(mpg, aes(cyl, displ)) + 
  geom_point()

# 测试问题2：分面图中y轴标题正常显示在分面内
ggplot(mpg, aes(cyl, displ)) + 
  geom_point() +
  facet_wrap(fl ~ .)

# 测试问题3：labs在任意位置调用都能正确修改y轴标题
ggplot(mpg, aes(cyl, displ)) + 
  geom_point() +
  labs(y = "Y test")

• 核心逻辑：直接修改axis.title.y的显示角度为0（水平），通过hjust、vjust和margin参数将其定位到y轴刻度的正上方；同时调整刻度标签和绘图边距，避免元素重叠
• 解决原问题：
  1. 无需自定义ggplot_add钩子，theme_set可直接将主题设为默认并生效
  2. y轴标题属于轴元素，分面布局时会自动跟随分面区域，不会跑到分面外
  3. labs()修改y轴标题的逻辑不受主题调用顺序影响，因为本质是修改轴标题对应的标签内容

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