对 data.table 中的多列进行不同计数

Question

我在不同的times 和不同的situations 观察到users，我可能会多次看到它们，如下所示：

df <- data.table(time = c(1,1,1,2,2),
                 user = c(1,1,2,1,2),
                 situation = c(1,1,1,2,2),
                 observation = c(1,2,1,1,1))

我想做的是使用data.table计算每个时间段内user-situations的数量。预期输出：

result <- data.table(time = c(1,2),
                     user_situations = c(2,2))

我知道我可以通过连锁方式做到这一点：

 unique(df[, .(time, user, situation)])[, .(user_situations = .N), .(time)]

但想知道是否有一种简单的方法可以一次性完成。

Answer 1

dplyr解决方案：

library(dplyr)
df <- data.table(time = c(1,1,1,2,2),
             user = c(1,1,2,1,2),
             situation = c(1,1,1,2,2),
             observation = c(1,2,1,1,1))

df %>% group_by(time) %>%
  distinct(user, situation) %>%
  summarise(user_situations = n())

# tbl_dt [2 × 2]
   time user_situation
  <dbl>          <int>
1     1              2
2     2              2