dados_uberlandia.R

library(readr)
library(dplyr)

setwd('workspace/Vis/lab3/')

# Rendimento -> V007
basico <- read_csv2("Basico_MG.csv", locale = locale(encoding = "latin1")) %>% 
  filter(Nome_do_municipio == "UBERLÂNDIA") %>% 
  select(Cod_setor, Nome_do_distrito, Nome_do_subdistrito, V007) %>% 
  na.omit()

# Homens -> V062, V063, V064, V065, V066, V067, V068
# Mulheres -> V081, V082, V083, V084, V085, V086, V087
domicilio <- read_csv2("Domicilio01_MG.csv", locale = locale(encoding = "latin1")) %>% 
  select(Cod_setor, Situacao_setor, V062, V063, V064, V065, V066, V067, V068, V081, V082, V083, V084, V085, V086, V087) %>% 
  mutate(V062 = as.numeric(V062), V063 = as.numeric(V063), V064 = as.numeric(V064),
         V065 = as.numeric(V065), V066 = as.numeric(V066), V067 = as.numeric(V067),
         V068 = as.numeric(V068), 
         V081 = as.numeric(V081), V082 = as.numeric(V082), V083 = as.numeric(V083),
         V084 = as.numeric(V084), V085 = as.numeric(V085), V086 = as.numeric(V086),
         V087 = as.numeric(V087)) %>% 
  na.omit()

dados_setor <- basico %>% 
  left_join(domicilio, by = "Cod_setor") %>% 
  rename(Renda_media = V007) %>% 
  mutate(Dom_h_resp = V062 + V063 + V064 + V065 + V066 + V067 + V068,
         Dom_m_resp = V081 + V082 + V083 + V084 + V085 + V086 + V087)

dados_setor_f <- dados_setor %>%
  mutate(Sexo_predominante = if_else(Dom_h_resp > Dom_m_resp, 'H', 'M')) %>% 
  select(Cod_setor, Nome_do_distrito, Nome_do_subdistrito, Renda_media, Sexo_predominante)

dados_setor_f %>% write_csv("dados_uberlandia.csv")