R语言如何在基础函数中正确使用tidyeval实现无引号传参

实现列非重复值计数的基础逻辑没有问题，核心错误是对tidyeval运算符的适用场景理解有偏差：{{ }}（拥抱运算符）是tidyverse生态为数据掩码类函数设计的注入语法，不能直接搭配基础R的$提取符、with()这类不支持tidyeval的函数使用。

原有写法的错误原因 #

• my_fun1、my_fun2：$是基础R的惰性提取运算符，它的右侧只接受固定字面量列名，完全不支持动态变量、语法注入类的写法，动态按变量名取列应该用[[运算符。
• my_fun3：with()是基础R函数，本身没有集成tidyeval的解析逻辑，无法识别{{ }}语法，会直接在执行环境里查找名为var的对象，自然运行失败。

正确实现方式 #

方法1：纯tidyverse风格实现（最推荐）

用原生支持tidyeval的dplyr::pull()提取目标列，再按原有逻辑计算唯一值个数即可，用户调用时不需要给列名加引号：

library(dplyr)

count_unique <- function(data, var){
  data %>%
    pull({{ var }}) %>%
    unique() %>%
    length()
}

# 测试
df = data.frame(a = c(1, 1:3))
count_unique(df, a)
# > [1] 3

方法2：rlang + 基础R实现（无dplyr依赖）

如果不想加载dplyr，可以先用rlang::ensym()捕获用户传入的无引号列名，再用!!注入到基础R的[[提取位置，逻辑和原生写法完全一致：

library(rlang)

count_unique <- function(data, var){
  target_col <- ensym(var)
  length(unique(data[[!!target_col]]))
}

# 测试
count_unique(df, a)
# > [1] 3

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