如何利用tidy eval创建含交互项的ggplot绘图函数？

原代码问题分析 #

当.f2不为NULL时，你通过字符串拼接生成interaction表达式，但后续用expr(.expr)的方式错误地将变量名.expr作为了颜色映射对象，而非解析拼接出的交互项表达式，导致映射逻辑失效。

修正后的代码（推荐方案） #

直接使用rlang的表达式构造语法，无需字符串拼接，更安全直观：

library(tibble)
library(ggplot2)
library(rlang)

input = tibble(x=1:100,y=rnorm(100),f1=factor(rep(c("c",'d'),each=50)),f2=factor(rep(c("a",'b'),50)))

plot_interaction = function(.df, .x, .y, .f1, .f2=NULL) {
  
  if (!is.null(.f2)) {
    # 直接构造interaction表达式，用!!解引用符号
    .expr = expr(interaction(!!ensym(.f1), !!ensym(.f2)))
  } else {
    .expr = ensym(.f1)
  }
  
  ggplot(.df, aes(x = {{ .x }}, y = {{ .y }}, colour = {{ .expr }})) + 
    geom_point(size = 4, alpha = 0.5)
}

# 测试单因子映射
plot_interaction(input, x, y, f1)
# 测试交互项映射
plot_interaction(input, x, y, f1, f2)

另一种修复方式（基于字符串解析） #

如果坚持使用字符串拼接的思路，只需将expr(.expr)替换为parse_expr(.expr)，把字符串解析为真正的表达式：

plot_interaction = function(.df, .x, .y, .f1, .f2=NULL) {
  
  if (!is.null(.f2)) {
    .en1 = .f1 |> enexpr() |> as.character()
    .en2 = .f2 |> enexpr() |> as.character()
    .expr_str = paste0('interaction(',.en1,',',.en2,')')
    .expr = parse_expr(.expr_str) # 解析字符串为可执行表达式
  } else {
    .expr = ensym(.f1)
  }
  
  ggplot(.df, aes(x = {{ .x }}, y = {{ .y }}, colour = {{ .expr }})) + 
    geom_point(size = 4, alpha = 0.5)
}

关键说明 #

• ensym(.f1)将输入的参数名转换为符号对象，适配tidyeval语法
• !!用于在表达式中解引用符号，让interaction能正确识别数据框中的列
• 直接构造表达式比字符串拼接更可靠，能避免潜在的语法错误

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