如何在自定义函数中为ggplot2动态设置图表标题？

错误原因 #

• ggtitle()函数没有title这个命名参数，你写ggtitle(title = !!col)属于传入了未定义的参数，因此触发unused argument错误。
• 即便去掉参数名直接传!!col也不行，因为col是quo()生成的符号对象，ggplot会将其视为变量而非字符串标题。

修正后的代码 #

需要把符号转换成对应的列名字符串，同时正确调用ggtitle()：

cola <- c(11, 13, 17, 12, 34)
colb <- c(23, 41, 32, 58, 26)
colc <- c(1, 2, 3, 4, 5)
dfb <- data.frame(cola, colb, colc)

library(ggplot2)
library(dplyr)

graph_func <- function(col) {
  dfb %>% ggplot(aes(x=colc, y=!!col)) +
    geom_point() +
    ggtitle(as_label(col))  # 用as_label提取符号对应的列名字符串
} 

graph_func(quo(colb))

批量生成多列图表的扩展 #

如果要为数据框中多列批量生成图表，可以遍历列名，用sym()将字符串转为符号：

# 指定需要绘图的列
cols_to_plot <- c("cola", "colb")

for (col_name in cols_to_plot) {
  plot <- graph_func(sym(col_name))
  print(plot)
  # 可选：保存图表到本地
  # ggsave(paste0(col_name, "_plot.png"), plot)
}

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