r - 使用与列同名的对象过滤 data.table 中的行

Question

我有一个 data.table dt，其列名称为 x 和 y。我还需要使用对象 y 来使用 dt$y 中的值过滤 dt 中的某些行。不幸的是，由于其中一列与对象同名，我无法使其工作。我究竟做错了什么？非常感谢。

library(data.table)
dt <- data.table( x = c(1:4), 
                  y = letters[1:4])
y <- "c"

dt[y == y]
#>    x y
#> 1: 1 a
#> 2: 2 b
#> 3: 3 c
#> 4: 4 d
dt[y == (y)]
#>    x y
#> 1: 1 a
#> 2: 2 b
#> 3: 3 c
#> 4: 4 d
dt[y == ..y]
#> Error in eval(stub[[3L]], x, enclos): object '..y' not found
eval(quote(y))
#> [1] "c"
dt[y == eval(quote(y))]
#>    x y
#> 1: 1 a
#> 2: 2 b
#> 3: 3 c
#> 4: 4 d

^{由 reprex package 于 2021 年 4 月 12 日创建(v2.0.0)}

PS:如果有人在其他地方问过这个问题，我深表歉意。我寻找答案，但找不到。

Answer 1

您可以使用get()和env参数:

dt[y == get('y', env = -2)]
#    x y
# 1: 3 c

请注意，这会对您的设置做出某些假设。如果您的 y 是在全局环境中定义的(如您的示例所示)，那么更安全的解决方案(如 Ian Campell 建议的)将是:

dt[y == get('y', env = globalenv())]