在函数中封装ggplot调用时，如何延迟aes参数的求值？

问题原因 #

你写的函数报错是因为ggplot(aes(x, y))会在函数的全局环境中寻找Petal.Width和Petal.Length，而不是在传入的df数据框内查找对应的列。要让参数延迟到数据框环境中求值，需要用tidyverse的非标准求值工具处理。

推荐解决方案：使用{{ }}（Curly-Curly运算符） #

这是tidyverse官方推荐的简洁写法，它能捕获你传入的列名表达式，并在数据框的环境中求值：

library(tidyverse)

myplot <- function(df, x, y) {
  df |>
    ggplot(aes(x = {{x}}, y = {{y}})) +
    geom_point()
}

# 调用测试
iris |>
  myplot(Petal.Width, Petal.Length)

替代方案：使用enquo()和!! #

如果需要更精细的控制，可以用enquo()捕获参数表达式，再用!!（非引号运算符）在aes中展开：

myplot <- function(df, x, y) {
  # 捕获参数表达式
  x_var <- enquo(x)
  y_var <- enquo(y)
  
  df |>
    ggplot(aes(x = !!x_var, y = !!y_var)) +
    geom_point()
}

不推荐的旧方法：aes_string() #

早期版本的ggplot用aes_string()接受字符串形式的列名，但该函数已被弃用，仅作历史参考：

# 不推荐
myplot <- function(df, x, y) {
  df |>
    ggplot(aes_string(x = x, y = y)) +
    geom_point()
}

# 调用时需要传字符串
iris |>
  myplot("Petal.Width", "Petal.Length")

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