R语言函数内参数报错‘object not found’：外部正常内部失效

问题背景 #

我是R语言新手，尝试编写函数对列向量按组执行计算，并将结果作为新列绑定到data.table中。先写了简化版本测试单列计算（后续会扩展到多列循环计算，完成后将数据缩减至唯一分组）。因为需要保留所有行直到多列计算完成，不想用aggregate函数；且数据量有数百万条，所以选择data.table。当前测试单列的代码在函数外可正常运行，但函数内执行时报错：Error in eval(bysub, xss, parent.frame()) : object 'id' not found，回溯信息指向同一问题。

数据示例 #

tests <- c("abc", "abc", "abc", "def", "def", "def", "abc", "abc", "abc", "abc", "def","abc", "abc","def", "abc", "abc", "abc", "abc")
vec1 <- c(101, 101, 101, 101, 102, 102, 102, 102, 102, 102, 103, 103, 103, 103, 104, 104, 104, 104)
vec2 <- c(0,0,0,1,0,0,1,1,0,0,1,1,0,0,0,1,1)
vec3 <- c(1,1,1,0,0,0,1,1,1,1,0,1,1,0,1,1,1,1)
vec4 <- c(0,0,0,1,1,1,0,0,0,0,1,0,0,1,0,0,0)
vec5 <- runif(18, min=3, max = 20)
mydata <- data.frame(cbind(vec1, vec2, tests, vec3, vec4, vec5))
colnames(x=mydata) <- c("id", "phase", "type", "ind_abc", "ind_def", "value")
mydataDT <- setDT(mydata)

报错的函数代码 #

critical_values <- function(dt, categ, result, id_var, time_var) {
  indicator <- paste("ind_", "categ", sep="")
  new <- paste("critical_", "categ", sep="")
  paste("dt", "2", sep="") <- dt[indicator ==1, new:= max(result), by=.(id_var, time_var)]
  return(paste("dt", 2, sep=""))
}
critical_values(mydataDT, type, value, id, phase)

函数逻辑的外部测试（可正常运行） #

temp2dt <- mydataDT
new <- paste("critical_", "categ", sep="")
temp2dt[ind_abc ==1, new:= max(value), by=.(id, phase)]

问题原因与解决方法 #

核心问题 #

1. 字符串拼接错误：函数里paste("ind_", "categ", sep="")会直接生成固定字符串"ind_categ"，而非根据传入的categ参数生成对应列名（比如ind_abc）。
2. 非标准求值问题：data.table中直接使用id_var、time_var这类参数名，函数内部无法正确解析为data.table的列名；新列名new也未正确转为data.table可识别的赋值格式。
3. 动态变量名赋值错误：paste("dt", "2", sep="") <- ...写法无效，不能直接用字符串作为变量名赋值。

修正后的函数 #

使用data.table的get()函数引用列值，结合字符串处理实现动态列名和分组：

critical_values <- function(dt, categ, result, id_var, time_var) {
  # 将传入的列名参数转为字符串
  categ_str <- deparse(substitute(categ))
  result_str <- deparse(substitute(result))
  id_var_str <- deparse(substitute(id_var))
  time_var_str <- deparse(substitute(time_var))
  
  # 生成指标列名和新列名
  indicator <- paste("ind_", categ_str, sep = "")
  new_col <- paste("critical_", categ_str, sep = "")
  
  # 复制原data.table，避免修改输入数据（data.table为引用类型）
  dt2 <- copy(dt)
  
  # 按条件分组计算并添加新列
  dt2[get(indicator) == 1, (new_col) := max(get(result_str)), by = c(id_var_str, time_var_str)]
  
  return(dt2)
}

# 调用函数
result_dt <- critical_values(mydataDT, type, value, id, phase)

关键修正点 #

• deparse(substitute())：将传入的列名参数转为字符串，实现动态列名拼接。
• get(colname)：在data.table中通过字符串引用对应列的值。
• (new_col)：让data.table识别字符串作为新列名完成赋值。
• copy(dt)：避免函数直接修改原data.table，保证数据安全。
• by = c(id_var_str, time_var_str)：用字符串向量指定分组列，解决函数内符号解析问题。

验证结果 #

调用修正后的函数后，会生成包含critical_type列的新data.table，按id和phase分组，仅在对应ind_*列值为1的行计算value的最大值，并将结果填充到分组内所有行，符合预期逻辑。

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