data.table格式表中列存在却报Object not found错误问题咨询

错误根源 #

该报错由data.table的非标准评估（NSE）作用域逻辑导致：

• 调用counter(df, ip_address_ts)时，传入的ip_address_ts是不带引号的列名符号，data.table在[]语法内默认优先从数据集的列名列表中查找对象，不会自动识别该符号是外部传入的函数参数。
• 原函数中直接写is.na(varname)的写法，会让data.table先去数据集的列中找名为varname的列，找不到就会去全局环境搜索独立的ip_address_ts对象，全局环境未定义该对象就会触发报错。

修复方案 #

方案1：双大括号包裹（适配data.table v1.14.3及以上版本） #

这是最简单的兼容写法，直接用{{}}包裹传入的列名参数即可：

counter <- function(data, varname){
  data[is.na({{varname}}), .N]
}

调用方式无需修改，直接执行counter(df, ip_address_ts)即可正常返回结果。

方案2：get函数适配（兼容旧版本data.table） #

如果你的data.table版本较低不支持{{}}语法，可以用get()+substitute()明确解析传入的符号：

counter <- function(data, varname){
  data[is.na(get(deparse(substitute(varname)))), .N]
}

如果你可以接受传入带引号的列名，还可以进一步简化：

counter <- function(data, varname){
  data[is.na(get(varname)), .N]
}
# 调用时传入字符串格式的列名
counter(df, "ip_address_ts")

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