分组然后计算独特的观察结果

Question

我的数据看起来像这样：

set.seed(3162016)
df1 <- data.frame(id=sample(letters, 10000, replace = T), 
                  group1=sample(1:2, 10000, replace = T), 
                  group2=sample(100:101, 10000, replace = T))

我想为id和group1的每个组合创建一个包含唯一group2个数的表格。

我能用这段代码计算：

df1 %>% group_by(group1, group2) %>% summarise(n=n())

或者我可以通过此

获得我想要的特定群体的唯一计数

df1 %>% filter(group1 == 1, group2 == 100) %>% distinct() %>% nrow()

唉，我不知道如何创建我想要的表格。我想我可以创建自己的功能，但我正在跳过更简单的方法。