使用`by`過濾data.table中的行

Question

我想按照以下標准篩選組。 DT帶來意想不到的結果。

輸入數據

library(data.table)
library(dplyr)

dt <- data.table(
    logic = c(TRUE, TRUE, FALSE, TRUE, TRUE, TRUE),
    group = c("A" , "A",  "A"  , "B" , "B" , "B")
)

我想過濾組， logic字段值all TRUE 。

預期的行為（通過dplyr ）

正如您所見， dplyr按預期工作，並僅返回group = B值

dt %>% 
  group_by(group) %>% 
  filter(all(logic))
# Source: local data table [3 x 2]
# Groups: group

#   logic group
# 1  TRUE     B
# 2  TRUE     B
# 3  TRUE     B

data.table意外行為

DT並不真正過濾行，無論是帶來所有表還是什么都沒有。

dt[all(logic), group, by = group]
# Empty data.table (0 rows) of 2 cols: group,group

dt[all(.SD$logic), group,by = group]
#    group group
# 1:     A     A
# 2:     B     B

Answer 1

你可以使用[ as in

dt[, .SD[all(logic)], by = group]
#   group logic
#1:     B  TRUE
#2:     B  TRUE
#3:     B  TRUE

Answer 2

我們需要使用if

dt[, if(all(logic)) .SD, by = group]
#    group logic
#1:     B  TRUE
#2:     B  TRUE
#3:     B  TRUE