在R/Tidyeval中如何在公式右侧使用类glue语法？

正确实现代码 #

以下是两种可行的实现方式，均能达到你的预期效果：

方法1：使用符号解析（sym/ensym）

library(dplyr)
library(glue)

meta <- function(x, var, suffix){
  # 构造第一个新列的名称
  new_col1 <- glue("{ensym(var)}_{suffix}")
  x <- x %>% mutate(!!new_col1 := 5)
  
  # 构造第二个新列的名称，并引用原变量和新生成的列
  new_col2 <- glue("{new_col1}_new")
  x <- x %>% mutate(!!new_col2 := {{var}} - !!sym(new_col1))
  
  return(x)
}

# 测试调用
x <- meta(mtcars, mpg, suf)

方法2：使用.data代词（更直观）

library(dplyr)
library(glue)

meta <- function(x, var, suffix){
  new_col1 <- glue("{ensym(var)}_{suffix}")
  x <- x %>% 
    mutate(!!new_col1 := 5) %>%
    mutate(!!glue("{new_col1}_new") := {{var}} - .data[[new_col1]])
  
  return(x)
}

错误原因分析 #

你遇到的promise already under evaluation错误，核心问题在于：

1. 右侧引用错误：原代码中右侧的"{{var}}_{suffix}"是字符串字面量，不是对新生成列的变量引用。dplyr无法将字符串解析为列名，尝试用数值型的{{var}}与字符串做减法，触发类型不匹配，同时因为R的延迟求值机制，导致递归引用错误。
2. 左侧语法的局限性：虽然dplyr支持在列名位置使用"{{var}}_{suffix}"解析列名，但这种语法仅适用于左侧列名定义，不能直接在右侧作为变量引用。

关键知识点说明 #

• ensym(var)：将传入的函数参数（符号形式）转换为字符串，方便拼接列名。
• !!（非标准求值运算符）：将字符串或符号转换为dplyr能识别的列名/变量。
• .data[[col_name]]：通过字符串直接引用数据框中的列，避免符号解析的复杂问题，代码可读性更高。

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