Check frequency of data.table value in other data.table

Question

 library(data.table)
 DT1 <- data.table(num = 1:6, group = c(\"A\", \"B\", \"B\", \"B\", \"A\", \"C\"))
 DT2 <- data.table(group = c(\"A\", \"B\", \"C\"))
<         


        

Answer 1

I'd just do it this way:

## 1.9.4+
setkey(DT1, group)
DT1[J(DT2$group), list(popular = .N >= 2L), by = .EACHI]
#    group popular
# 1:     A    TRUE
# 2:     B    TRUE
# 3:     C   FALSE
# 4:     D   FALSE ## on the updated example

data.table's join syntax is quite powerful, in that, while joining, you can also aggregate / select / update columns in j. Here we perform a join. For each row in DT2$group, on the corresponding matching rows in DT1, we compute the j-expression .N >= 2L; by specifying by = .EACHI (please check 1.9.4 NEWS), we compute the j-expression each time.

---

In 1.9.4, .() has been introduced as an alias in all i, j and by. So you could also do:

DT1[.(DT2$group), .(popular = .N >= 2L), by = .EACHI]

When you're joining by a single character column, you can drop the .() / J() syntax altogether (for convenience). So this can be also written as:

DT1[DT2$group, .(popular = .N >= 2L), by = .EACHI]