对具有两个连接条件的 data.table 进行子集[关闭]

Question

我想使用 data.table 从以下数据集中收集信息。

set.seed(1)
TDT <- data.table(nr= c(1:100),Group = c(rep("A",10),rep("B",10),rep("C",10),rep("D",10),rep("E",10),rep("F",10),rep("G",10),rep("H",10),rep("I",10),rep("J",10)),
                      id = c(rep(1,20),rep(2,20),rep(3,20),rep(4,20),rep(5,20)),
                      Time = rep(seq(as.Date("2010-01-03"), length=20, by="1 month") - 1,5),
                      norm = round(runif(100)/10,2),
                      y = sample(100,100),
                      x2 = round(rnorm(100,0.75,0.3),2),
                      x3 = round(rnorm(100,0.75,0.3),2),
                      x4 = round(rnorm(100,0.75,0.3),2),
                      x5 = round(rnorm(100,0.75,0.3),2))
vars <- c("B", "C", "D")

我想获取以下条件适用的行：

组是 A & y >= 50 并且 var（B、C 或 D）的任何值都有 y >= 50。

但我无法正确使用语法。任何想法如何实现这些双重条件？类似的东西

X <- TDT[(Group=="A" & y>=50)&(Group==vars & y>=50)]

编辑：我需要第二个条件来适用于 B OR C OR D。不是 AND。

Answer 1

你们很亲密：

TDT[(Group == "A" & y >= 50) & (Group %in% vars & y >= 50), ]

虽然更好的语法是：

TDT[Group %in% c("A", vars) & y >= 50, ]

考虑到条件y >= 50 在这两种情况下都必须保持。

编辑解释

让我解释一下为什么您的代码不起作用：

让我们调用(Group == "A" & y >= 50) 条件1。条件1 使得Group 必须与A 相同，并且y 必须大于或等于50。

条件2，(Group == vars & y >= 50)，要求Group等于所有的vars的值，即一个向量c("B", "C", "D")，并且y大于等于到 50。第一部分永远不会与您的示例匹配，这就是我引入 %in% 的原因，以检查 Group 是否等于 vars 中的任何值。

& 加入条件 1 和 2 要求 两个 条件都成立，并且 Group 不可能同时等于 A 和说 B。

您想检查Group 是否等于由"A" 和vars 组成的集合中的任何 个值。

更多详情请参阅?'%in%'。

Answer 2

%in% 允许您匹配多个参数，例如

TDT[Group %in% vars & y>=50]