Dentro do tidyverse é possui usarexiste a função tidyr::complete()
para realizar o desejado.
Os passos para isso são:
Contar a ocorrência de cada grupo em cada data com
count()
.Completar com 0 (zero) os casos em que não há observações
Fazer a soma acumulada desta contagem para cada grupo.
Isso pode ser feito com o código que segue:
library(tidyverse)
dados %>%
count(data, grupo) %>%
complete(data, grupo, fill = list(n = 0)) %>%
group_by(grupo) %>%
mutate(n = cumsum(n))