2.R

# Função para calcular a taxa de crescimento diária
growth_rate <- function(x) {
   (x/lag(x)-1)*100
}

# Transformando o campo data para uma data válida
brazil$data <- dmy(brazil$data)

# Calculando a taxa de cresc diária do número de casos
brazil %>%
 select(estado, data, casosAcumulados) %>%
 arrange(estado, data) %>%
 group_by(estado) %>%
 mutate(growth_rate_cases = growth_rate(casosAcumulados)) -> df

# Calculando a taxa de cresc diária do número de óbitos
brazil %>%
 select(estado, data, obitosAcumulados) %>%
 arrange(estado, data) %>%
 group_by(estado) %>%
 mutate(growth_rate_obitos = growth_rate(obitosAcumulados)) -> df2

# Juntando isso em um só dataframe
df <- merge(df, df2, by=c('estado', 'data'))