如何替换ggplot2中已弃用的aes_string函数：支持任意命名字符串美学映射

自ggplot2 3.4.0版本弃用aes_string()后，以下几种方案可以优雅替代，同时保留以字符串形式传递变量名的能力：

方法1：结合.data代词与动态参数展开 #

利用ggplot2内置的.data代词引用字符串变量名，配合rlang::list2()处理省略号参数，再通过!!!动态展开：

library(ggplot2)
library(rlang)

# 自定义绘图函数，接收任意命名字符串参数
my_plot <- function(data, ...) {
  # 捕获省略号中的参数
  aes_params <- list2(...)
  # 将每个字符串参数转换为.data[[变量名]]的引用形式
  aes_mapped <- lapply(aes_params, function(x) expr(.data[[!!x]]))
  # 构建绘图
  ggplot(data) +
    geom_point(aes(!!!aes_mapped))
}

# 使用示例：传入字符串形式的变量名
mtcars |> my_plot(x = "wt", y = "mpg", color = "cyl")

方法2：使用sym()转换字符串为符号 #

借助rlang::sym()将字符串转换为变量符号，再通过!!!展开到aes()中：

library(ggplot2)
library(rlang)

my_plot <- function(data, ...) {
  aes_params <- list2(...)
  # 把字符串转为变量符号
  aes_syms <- lapply(aes_params, sym)
  ggplot(data) +
    geom_point(aes(!!!aes_syms))
}

# 使用示例
mtcars |> my_plot(x = "wt", y = "mpg", color = "cyl")

方法3：简化版动态参数传递 #

如果不需要额外处理，可直接用list2()捕获参数后，结合.data代词一次性映射：

library(ggplot2)
library(rlang)

my_plot <- function(data, ...) {
  ggplot(data) +
    geom_point(aes(!!!imap(list2(...), ~ .data[[.y]])))
}

# 使用示例
mtcars |> my_plot(x = "wt", y = "mpg", color = "cyl")

以上方案均遵循ggplot2的现代编程规范，既规避了弃用函数，又保留了原有的灵活性。

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