Совокупная сумма уникальных событий за каждый год

#r Вопрос: У меня есть фрейм данных, подобный этому: id <- c("1", "1", "1", "1", "1", "1", "2", "2", "2", "3") year <- c(1900,1900,1900,1901,1902,1902,1900,1901,1901,1900) event <- c('A','B','C','A','D','E','A','B','C','A') df <- data.frame(id,…