5.R

mobility %>%
 filter(country == 'Brazil') %>%
 select(-c('updated_at')) %>%
# Updating state names
 mutate(region = case_when(region == 'State of Acre' ~ 'AC',
                           region == 'State of Amapá' ~'AP',
                           region == 'State of Espírito Santo' ~ 'ES',
                           region == 'State of Maranhão' ~ 'MA',
                           region == 'State of Mato Grosso do Sul' ~ 'MS',
                           region == 'State of Paraná' ~ 'PR',
                           region == 'State of Pará' ~ 'PA',
                           region == 'State of Piauí' ~ 'PI',
                           region == 'State of Rio Grande do Sul' ~ 'RS',
                           region == 'State of Rondônia' ~ 'RO',
                           region == 'State of Santa Catarina' ~ 'SC',
                           region == 'State of São Paulo' ~ 'SP',
                           region == 'Federal District' ~ 'DF',
                           region == 'State of Alagoas' ~ 'AL',
                           region == 'State of Amazonas' ~ 'AM',
                           region == 'State of Ceará' ~ 'CE',
                           region == 'State of Goiás' ~ 'GO',
                           region == 'State of Mato Grosso' ~ 'MT',
                           region == 'State of Minas Gerais' ~ 'MG',
                           region == 'State of Paraíba' ~ 'PB',
                           region == 'State of Pernambuco' ~ 'PE',
                           region == 'State of Rio Grande do Norte' ~ 'RN',
                           region == 'State of Rio de Janeiro' ~ 'RJ',
                           region == 'State of Roraima' ~ 'RR',
                           region == 'State of Sergipe' ~ 'SE',
                           region == 'State of Bahia' ~ 'BA',
                           region == 'State of Tocantins' ~ 'TO')) -> mobility