假设我读取了一些包含要在数据集中进行的操作的文件，例如
library(data.table)
dt = setDT(mtcars)
exp1 = "cyl == 8 & mpg > 16"
exp2 = "cyl == 6 & mpg < 20"
在这种情况下，exp1和exp2作为文本从文件中读取，有没有方法可以做到这样的事情
dt[eval(exp1)]
dt[eval(exp2)]
使用文本表达对数据进行子集化并进行其他数据转换？
EDIT:
如果我做这样的事情
exp1 = quote(cyl == 8 & mpg > 16)
dt[eval(exp1)]
它有效，但我如何 Select 存储到文本中的数据来使用这种引用方法呢？还有使用这种方法有什么问题吗？
要在不显式使用eval(这通常是不受欢迎的)的情况下做到这一点，请使用do.call，如以下示例所示:
1) [要使用[.data.table，请try 以下操作:
library(data.table)
dt <- as.data.table(mtcars)
exp1 <- "cyl == 8 & mpg > 16"
do.call("[", list(dt, str2lang(exp1)))
给
mpg cyl disp hp drat wt qsec vs am gear carb
<num> <num> <num> <num> <num> <num> <num> <num> <num> <num> <num>
1: 18.7 8 360.0 175 3.15 3.440 17.02 0 0 3 2
2: 16.4 8 275.8 180 3.07 4.070 17.40 0 0 3 3
3: 17.3 8 275.8 180 3.07 3.730 17.60 0 0 3 3
4: 19.2 8 400.0 175 3.08 3.845 17.05 0 0 3 2
2) subset使用subset也可以:
do.call(subset, list(dt, str2lang(exp1)))
3) lm/plot如果目标是随后将子集输入lm或plot，则可以通过将3个参数中的每个参数作为传递到do.call的列表的单独组成部分传递给lm，从而一次性完成子集和对lm的调用.同样，我们成功避免了任何明确的eval电话.(这将仅使用dt代替quote(dt)，但Call:行就会混乱.)
do.call("lm", list(mpg ~ ., quote(dt), subset = str2lang(exp1)))
## Call:
## lm(formula = mpg ~ ., data = dt, subset = cyl == 8 & mpg > 16)
...snip...
或与plot
do.call(plot, list(mpg ~ disp, dt, subset = str2lang(exp1)))
4) tidyverse使用tidyverse我们可以使用!!parse_expr(...)
library(dplyr)
library(rlang)
dt %>% filter(!!parse_expr(exp1))