如何使用tidy evaluation在ggplot2::aes()中传入字符型表达式？

当你需要替换已废弃的aes_string()，同时要处理字符串形式的数学表达式（比如xvar = 'x+100'）时，核心是先把字符串解析成R可识别的表达式，再通过tidy evaluation注入到aes()中，具体方法如下：

核心解决方案：解析表达式 + 注入操作 #

使用rlang::parse_expr()将字符串表达式转换为表达式对象，再通过!!（bang-bang注入操作符）把表达式注入到aes()参数里，就能实现和aes_string()完全一致的效果。

示例代码 #

library(ggplot2)
library(rlang)
set.seed(1)

dat <- data.frame(x=rnorm(100),y=rnorm(100))
xvar <- 'x+100'
yvar <- 'y'

# 替代aes_string的可行写法
ggplot(dat, aes(x = !!parse_expr(xvar), y = .data[[yvar]])) + geom_point()

为什么{{xvar}}不可行？ #

{{}}（curly-curly操作符）的作用是捕获函数的裸参数（比如直接传入x而非'x'），它无法解析字符串形式的表达式。当你传入字符串xvar时，{{xvar}}只会把字符串本身当作变量，而非解析成x+100的计算逻辑。

封装成自定义函数（适配批量场景） #

如果需要在函数中复用这个逻辑，可以封装成如下形式：

custom_plot <- function(data, x_expr_str, y_col_str) {
  # 解析字符串表达式
  x_expr <- parse_expr(x_expr_str)
  ggplot(data, aes(x = !!x_expr, y = .data[[y_col_str]])) + 
    geom_point()
}

# 调用函数
custom_plot(dat, xvar, yvar)

补充说明 #

• 对于单纯的列名字符串（比如yvar = 'y'），直接用.data[[yvar]]即可，无需解析；
• parse_expr()支持任意合法的R表达式字符串，比如'log(x) + sqrt(y)'这类复杂计算也能处理。

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