-
Notifications
You must be signed in to change notification settings - Fork 0
/
02-households-intercensal.R
57 lines (42 loc) · 2.11 KB
/
02-households-intercensal.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
######---- Carga DB de hogares por municipio en Mexico (Encuesta Intercensal INEGI, 2015) ----######
# Directorio donde se localizan los archivos a unir
left_path = "./data/Intercensal2015/12_hogares_"
right_path = ".xls"
states_list = c("ags","bc","bcs","cam","coah","col","chis","chih","cdmx",
"dgo","gto","gro","hgo","jal","mex","mich","mor","nay","nl",
"oax","pue","qro","qroo","slp","sin","son","tab","tamps",
"tlax","ver","yuc","zac")
# Funcion para extraer los datos de poblacion
cleaning_hog_state<-function(name_state){
# Carga el archivo con el path descrito
test <-read_excel(paste0(left_path,name_state,right_path), sheet = 3,
col_names = FALSE, col_types = NULL, na = "", skip = 10)
# Nombres temporales de las variables
colnames(test)<- c("X1","X2","X3","X4","X5","X6","X7","X8","X9","X10","X11",
"X12","X13","X14","X15")
# Filtrado para obtener datos de poblacion en municipios
test<-subset(test, X2 != "Total" & X3 == "Total" & X4 == "Hogares"& X5 == "Valor")
# seleccion de variables de estado, municipio y poblacion, para renombrarlas
test<- test %>% select(X1,X2,X6)
colnames(test)<- c("K_ENTIDAD","K_MUNICIPIO","HOGARES")
# Obtiene claves de identificacion de estado y municipio
test$K_ENTIDAD <- substr(test$K_ENTIDAD,1,2)
test$K_MUNICIPIO<- substr(test$K_MUNICIPIO,1,3)
# Crea nueva variable con clave y
test <- test %>% mutate(K_ENTIDAD_MUNICIPIO = paste(K_ENTIDAD,
K_MUNICIPIO, sep=""))
test <-test %>% select(K_ENTIDAD_MUNICIPIO, HOGARES)
return(test)
}
test_hogares = cleaning_hog_state("ags")
for (name_state in states_list ){
test_hogares <- rbind(test_hogares,cleaning_hog_state(name_state))
}
# Elimina duplicados
test_hogares<-unique(test_hogares)
hogares2015 <- test_hogares
# Escribe la base de hogares en el municipio
write_csv(test_hogares,"./data/processed/hogares2015.csv")
# Eliminamos objetos auxiliares
rm("cleaning_hog_state","hogares2015","left_path","name_state",
"right_path", "states_list", "test_hogares")