Skip to content

Instantly share code, notes, and snippets.

@mribeirodantas
Created April 5, 2020 21:08
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save mribeirodantas/9e7b8d3e4f9021029b3ae54804451458 to your computer and use it in GitHub Desktop.
Save mribeirodantas/9e7b8d3e4f9021029b3ae54804451458 to your computer and use it in GitHub Desktop.
ibge %>%
select(`UF [-]`, `População estimada - pessoas [2019]`,
`Densidade demográfica - hab/km² [2010]`) %>%
mutate(`UF [-]` = case_when(`UF [-]` == 'Acre' ~ 'AC',
`UF [-]` == 'Alagoas' ~ 'AL',
`UF [-]` == 'Amapá' ~ 'AP',
`UF [-]` == 'Amazonas' ~ 'AM',
`UF [-]` == 'Bahia' ~ 'BA',
`UF [-]` == 'Ceará' ~ 'CE',
`UF [-]` == 'Distrito Federal' ~ 'DF',
`UF [-]` == 'Espírito Santo' ~ 'ES',
`UF [-]` == 'Goiás' ~ 'GO',
`UF [-]` == 'Maranhão' ~ 'MA',
`UF [-]` == 'Mato Grosso' ~ 'MT',
`UF [-]` == 'Mato Grosso do Sul' ~ 'MS',
`UF [-]` == 'Minas Gerais' ~ 'MG',
`UF [-]` == 'Pará' ~ 'PA',
`UF [-]` == 'Paraíba' ~ 'PB',
`UF [-]` == 'Paraná' ~ 'PR',
`UF [-]` == 'Pernambuco' ~ 'PE',
`UF [-]` == 'Piauí' ~ 'PI',
`UF [-]` == 'Rio de Janeiro' ~ 'RJ',
`UF [-]` == 'Rio Grande do Norte' ~ 'RN',
`UF [-]` == 'Rio Grande do Sul' ~ 'RS',
`UF [-]` == 'Rondônia' ~ 'RO',
`UF [-]` == 'Roraima' ~ 'RR',
`UF [-]` == 'Santa Catarina' ~ 'SC',
`UF [-]` == 'São Paulo' ~ 'SP',
`UF [-]` == 'Sergipe' ~ 'SE',
`UF [-]` == 'Tocantins' ~ 'TO')) -> ibge
colnames(ibge) <- c('estado', 'pop', 'dens_demo')
# Ignorar a última linha que não tem informação relacionada aos estados
ibge <- slice(ibge, 1:27)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment