r - 如何使用R计算组数？

这可能是一个非常简单的问题，我有一个带键的data.table和1000多个行，其中两个可以设置为键。我想计算该数据集的组数。

例如，简单数据为(ID和Act为键)

ID  ValueDate Act Volume
1 2015-01-01 EUR     21
1 2015-02-01 EUR     22
1 2015-01-01 MAD     12
1 2015-02-01 MAD     11
2 2015-01-01 EUR      5
2 2015-02-01 EUR      7
3 2015-01-01 EUR      4
3 2015-02-01 EUR      2
3 2015-03-01 EUR      6

这是生成测试数据的代码:

dd <- data.table(ID = c(1,1,1,1,2,2,3,3,3),
                 ValueDate = c("2015-01-01", "2015-02-01", "2015-01-    01","2015-02-01", "2015-01-01","2015-02-01","2015-01-01","2015-02-01","2015-03-01"),
                 Act = c("EUR","EUR","MAD","MAD","EUR","EUR","EUR","EUR","EUR"),
                 Volume=c(21,22,12,11,5,7,4,2,6))

在这种情况下，我们可以看到总共有 4个子集。

我试图首先设置该表的密钥，

setkey(dd, ID, Act)

然后我认为 count 的功能可以用来计算组数。
使用 count 函数是否正确，或者有一种简单的方法？

非常感谢 !

最佳答案

nrow(dd[, .(cnt= sum(.N)), by= c("ID", "Act")])

# or using base R
{t <- table(interaction(dd$ID, dd$Act)); length(t[t>0])}

# or for the counts:
dd[, .(cnt= sum(.N)), by= c("ID", "Act")]
   ID Act cnt
1:  1 EUR   2
2:  1 MAD   2
3:  2 EUR   2
4:  3 EUR   3