我们可以使用get

sel.col <- "cyl"
dt[get(sel.col) == 4, ..sel.col]
#    cyl gear
#1:   4    4

或eval(as.name)

dt[eval(as.name(sel.col)) == 4, ..sel.col]
#    cyl gear
#1:   4    4

前面，我们认为只有一个列需要计算。如果我们有多个列，在.SDcols中指定它，循环通过数据子集。table（.SD）将其与感兴趣的值（'4 '）进行比较，Reduce将其与|的逻辑向量进行比较，即每个行中的任何TRUE，并根据此

dt[dt[, Reduce(`|`, lapply(.SD, `==`, 4)),.SDcols = sel.col], ..sel.col]

我知道这是一个相当古老的线程，但我认为社区仍然会受益于一个更简单的解决方案。
我们可以使用data.table join来处理多列的情况

# create test data
sel.col <- c("cyl", "gear")
dt <- data.table(mtcars)

# create key / index
mykey <- setNames(list(4,4), sel.col)

# select rows with values specified in mykey
dt <- dt[mykey, on = sel.col]
dt[, ..sel.col]

或者在一行中：

dt[setNames(list(4,4), sel.col), ..sel.col, on = sel.col]

子集条件可以使用非等连接进一步推广，例如cyl >= 4。这种方法已经被描述为here。