长格式数据结构,通过分类变量计算出现次数

我有一个长格式的重复测量数据结构。下面是一个简化的例子。

df <- data.frame(ID =c("AA1", "AA2", "AA3", "AA4", "AA1", "AA2", "AA3", "AA4"),
                 Event = c(1, 1, 0, 1, 0, 0, 0, 1))

我想统计一个“ID”有一个“事件”的总次数。

由于AA3对这两个事件都有0,AA1和AA2有1个事件,AA4有两个事件,我想制作一个如下表:

我见过其他问题,但它们都有频率表。我对这个表中的“ID”不感兴趣,只是一个单行表,其中包含有0、1或2个“事件”的个人总数。