r - 在函数内传递 ggplot2 标题

Question

我需要指定一个由为 ggplot 图表选择的列确定的标题。我需要能够为数据框中的几个列制作图表。

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)
graph_func <- function(col) {
  dfb %>% ggplot(aes(x=colc, y=!!col)) +
    geom_point() +
    ggtitle(title = !!col)
} 

graph_func(quo(colb))

我希望标题为“colb”，但收到错误消息:

> Error in ggtitle(caption = !!col) : unused argument (caption = !!col)

Answer 1

您不需要引用该参数。使用 !!enquo 括号 {{ }} 代替:

graph_func <- function(col) {
  dfb %>% ggplot(aes(x=colc, y= {{ col }})) +
    geom_point() +
    ggtitle(enquo(col))
} 

graph_func(colb)