如何在data.table中结合lapply与列名实现循环筛选？

问题重现 #

核心问题是：直接用字符串类型的列名在data.table的i参数（筛选条件位）中做比较时，data.table会把字符串当成字面量而非对应列的值，导致代码报错。示例代码如下：

library(data.table)
dt <- data.table(one = c(1:4), two = c(5:8), three = c(10:13))

# 直接使用列名筛选可行
dt[one > 2]

# 用字符串变量调用则无法运行
col = "one"
dt[col > 2]

你期望实现的是遍历指定列名，对每一列单独执行筛选逻辑，类似：

lapply(colnames(dt)[1:2], function(x){
  dt[x > 2]
})

可行解决方案 #

方法1：用get()动态获取列值 #

这是最直接且推荐的方式，在i参数中通过get(x)引用字符串对应的列，就能实现动态筛选：

lapply(colnames(dt)[1:2], function(x){
  dt[get(x) > 2]
})

get()会根据传入的字符串，提取data.table中对应列的数值，再执行条件判断。

方法2：结合.SDcols批量处理（适合多列联动场景） #

如果需要筛选出至少满足某一列条件的行，可以用.SDcols指定目标列，配合rowSums实现：

target_cols <- colnames(dt)[1:2]
dt[rowSums(.SD > 2) > 0, .SDcols = target_cols]

但如果是要按每一列分别生成独立的筛选结果，方法1的lapply+get()更贴合你的需求。

不推荐的方法：eval(parse(text=...)) #

虽然通过解析字符串表达式也能实现，但这种方式存在安全风险（若列名来自外部输入），且代码可读性差，不建议使用：

# 不推荐使用
lapply(colnames(dt)[1:2], function(x){
  dt[eval(parse(text = paste0(x, " > 2")))]
})

补充说明 #

SDcols的核心作用是指定j参数（结果选择/计算位）中要操作的列，而在i参数中动态引用列，get()是更适配的工具。

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