如何在ggplot中将变量名设置为绘图副标题而非x轴标题

有两种适配不同场景的通用方案，不需要每次手动指定变量名：

• 方案1：封装自定义初始化函数，适用于新写绘图代码的场景
  直接用封装好的函数替代原生ggplot()调用，会自动提取x轴映射的变量名作为副标题并清空x轴标题，代码实现如下：

library(ggplot2)
library(rlang)

# 自定义封装函数
ggplot_x_subtitle <- function(data, mapping, ...) {
  # 提取x轴映射的变量名
  x_var_name <- rlang::as_name(mapping$x)
  # 生成带默认标签设置的ggplot对象
  p <- ggplot(data = data, mapping = mapping, ...) +
    labs(subtitle = x_var_name, x = NULL)
  return(p)
}

# 调用示例
ggplot_x_subtitle(mtcars, aes(cyl, wt)) +
  geom_point()

运行效果和手动写labs(x = NULL, subtitle = "cyl")完全一致。如果需要将y轴变量名转为副标题，仅需将函数中的mapping$x改为mapping$y，同时把x = NULL改为y = NULL即可。

• 方案2：针对已生成ggplot对象的修改函数，适用于不想调整原有绘图代码的场景
  如果绘图代码已经写完，只需要对已有绘图对象做标签调整，可以用下面的辅助函数：

# 已有绘图对象转换函数
convert_x_to_subtitle <- function(plot_obj) {
  # 读取原有x轴标签
  original_x_label <- plot_obj$labels$x
  # 更新标签配置
  plot_obj +
    labs(subtitle = original_x_label, x = NULL)
}

# 调用示例
# 原有常规绘图代码
p <- ggplot(mtcars, aes(cyl, wt)) +
  geom_point()
# 执行转换
p <- convert_x_to_subtitle(p)
# 输出查看效果
p

如果需要调整副标题的样式，可额外添加theme配置，例如修改副标题字号、加粗可以追加：
+ theme(plot.subtitle = element_text(size = 13, face = "bold"))

内容的提问来源于stack exchange，提问作者John-Henry