1 Variable CENSO

Necesitamos calcular las frecuencias a nivel censal de las respuestas correspondientes a la categoría: “tejas o tejuelas de arcilla, metálicas, de cemento, de madera, asfálticas o plásticas” del campo P03B del Censo de viviendas. Recordemos que ésta fué la más alta correlación en relación a los ingresos expandidos (ver punto 1.2 aquí).

1.1 Lectura y filtrado de la tabla censal de viviendas

Leemos la tabla Casen 2017 de viviendas que ya tiene integrada la clave zonal:

tabla_con_clave <- readRDS("censo_viviendas_con_clave_17.rds")
r3_100 <- tabla_con_clave[c(1:100),]
kbl(r3_100) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
REGION PROVINCIA COMUNA DC AREA ZC_LOC ID_ZONA_LOC NVIV P01 P02 P03A P03B P03C P04 P05 CANT_HOG CANT_PER REGION_15R PROVINCIA_15R COMUNA_15R clave
15 152 15202 1 2 6 13225 1 3 1 5 3 5 1 4 1 1 15 152 15202 15202012006
15 152 15202 1 2 6 13225 2 1 3 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 3 1 1 5 3 5 2 3 1 4 15 152 15202 15202012006
15 152 15202 1 2 6 13225 4 1 4 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 5 3 4 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 6 3 4 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 7 3 4 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 8 3 3 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 9 3 1 5 3 5 1 4 1 4 15 152 15202 15202012006
15 152 15202 1 2 6 13225 10 1 1 5 3 4 1 4 1 1 15 152 15202 15202012006
15 152 15202 1 2 6 13225 11 1 2 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 12 1 4 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 13 1 1 5 3 4 1 4 1 3 15 152 15202 15202012006
15 152 15202 1 2 6 13225 14 1 3 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 15 1 4 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 16 1 1 5 3 5 1 3 1 3 15 152 15202 15202012006
15 152 15202 1 2 6 13225 17 1 1 5 3 5 2 4 1 8 15 152 15202 15202012006
15 152 15202 1 2 6 13225 18 3 1 5 3 5 1 1 1 1 15 152 15202 15202012006
15 152 15202 1 2 6 13225 19 3 1 5 3 5 1 3 1 1 15 152 15202 15202012006
15 152 15202 1 2 6 13225 20 1 1 5 3 5 2 1 1 2 15 152 15202 15202012006
15 152 15202 1 2 6 13225 21 1 4 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 22 1 4 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 23 3 4 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 24 1 3 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 25 1 1 5 3 5 1 4 1 2 15 152 15202 15202012006
15 152 15202 1 2 6 13225 26 1 4 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 27 3 4 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 28 3 1 5 3 5 1 4 1 5 15 152 15202 15202012006
15 152 15202 1 2 6 13225 29 1 4 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 30 3 4 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 31 1 3 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 32 3 4 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 33 1 1 5 3 5 3 4 1 4 15 152 15202 15202012006
15 152 15202 1 2 6 13225 34 1 4 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 35 3 4 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 36 1 1 5 3 5 3 2 1 9 15 152 15202 15202012006
15 152 15202 1 2 6 13225 37 3 3 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 38 1 1 5 3 5 99 4 1 1 15 152 15202 15202012006
15 152 15202 1 2 6 13225 39 1 1 5 3 5 1 4 1 2 15 152 15202 15202012006
15 152 15202 1 2 6 13225 40 1 3 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 41 1 3 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 42 3 3 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 43 3 1 5 3 5 2 1 1 5 15 152 15202 15202012006
15 152 15202 1 2 6 13225 44 1 4 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 45 1 4 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 8 13910 1 1 2 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 2 1 3 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 3 1 3 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 4 3 3 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 5 3 1 5 3 5 2 3 1 3 15 152 15202 15202012008
15 152 15202 1 2 8 13910 6 1 2 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 7 1 1 5 99 5 2 4 1 2 15 152 15202 15202012008
15 152 15202 1 2 8 13910 8 3 1 5 3 5 3 3 1 2 15 152 15202 15202012008
15 152 15202 1 2 8 13910 9 3 3 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 10 3 3 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 11 1 4 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 12 1 2 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 13 1 4 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 14 3 3 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 15 1 4 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 16 1 4 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 17 3 2 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 18 1 2 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 19 3 1 99 99 99 99 99 1 1 15 152 15202 15202012008
15 152 15202 1 2 8 13910 20 1 2 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 21 1 1 5 3 5 1 4 1 2 15 152 15202 15202012008
15 152 15202 1 2 8 13910 22 3 1 5 3 5 2 4 1 1 15 152 15202 15202012008
15 152 15202 1 2 8 13910 23 1 4 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 24 3 4 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 25 3 3 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 26 1 2 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 27 1 4 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 28 3 2 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 29 1 3 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 30 1 1 5 1 4 2 4 1 1 15 152 15202 15202012008
15 152 15202 1 2 12 8394 1 3 4 98 98 98 98 98 0 0 15 152 15202 15202012012
15 152 15202 1 2 12 8394 2 3 4 98 98 98 98 98 0 0 15 152 15202 15202012012
15 152 15202 1 2 12 8394 3 3 1 5 3 5 2 3 1 4 15 152 15202 15202012012
15 152 15202 1 2 12 8394 4 3 2 98 98 98 98 98 0 0 15 152 15202 15202012012
15 152 15202 1 2 12 8394 5 3 3 98 98 98 98 98 0 0 15 152 15202 15202012012
15 152 15202 1 2 12 8394 6 3 3 98 98 98 98 98 0 0 15 152 15202 15202012012
15 152 15202 1 2 12 8394 7 3 4 98 98 98 98 98 0 0 15 152 15202 15202012012
15 152 15202 1 2 12 8394 8 3 2 98 98 98 98 98 0 0 15 152 15202 15202012012
15 152 15202 1 2 12 8394 9 3 1 5 3 5 1 4 1 1 15 152 15202 15202012012
15 152 15202 1 2 12 8394 10 3 4 98 98 98 98 98 0 0 15 152 15202 15202012012
15 152 15202 1 2 12 8394 11 3 2 98 98 98 98 98 0 0 15 152 15202 15202012012
15 152 15202 1 2 12 8394 12 3 4 98 98 98 98 98 0 0 15 152 15202 15202012012
15 152 15202 1 2 12 8394 13 3 4 98 98 98 98 98 0 0 15 152 15202 15202012012
15 152 15202 1 2 12 8394 14 3 2 98 98 98 98 98 0 0 15 152 15202 15202012012
15 152 15202 1 2 12 8394 15 3 2 98 98 98 98 98 0 0 15 152 15202 15202012012
15 152 15202 1 2 12 8394 16 3 4 98 98 98 98 98 0 0 15 152 15202 15202012012
15 152 15202 1 2 12 8394 17 3 2 98 98 98 98 98 0 0 15 152 15202 15202012012
15 152 15202 1 2 12 8394 18 3 2 98 98 98 98 98 0 0 15 152 15202 15202012012
15 152 15202 1 2 12 8394 19 3 1 99 99 99 99 99 1 1 15 152 15202 15202012012
15 152 15202 1 2 12 8394 20 3 1 5 3 5 3 99 1 1 15 152 15202 15202012012
15 152 15202 1 2 12 8394 21 3 1 5 99 5 1 4 1 2 15 152 15202 15202012012
15 152 15202 1 2 12 8394 22 3 2 98 98 98 98 98 0 0 15 152 15202 15202012012
15 152 15202 1 2 12 8394 23 3 4 98 98 98 98 98 0 0 15 152 15202 15202012012
15 152 15202 1 2 12 8394 24 3 1 5 3 5 1 2 1 2 15 152 15202 15202012012
15 152 15202 1 2 12 8394 25 3 4 98 98 98 98 98 0 0 15 152 15202 15202012012

Despleguemos los códigos de regiones de nuestra tabla:

regiones <- unique(tabla_con_clave$REGION)
regiones
##  [1] 15 14 13 12 11 10  9 16  8  7  6  5  4  3  2  1

Hagamos un subset con la 1:

tabla_con_clave <- filter(tabla_con_clave, tabla_con_clave$REGION == 8)

1.2 Cálculo de frecuencias

tabla_con_clave_f <- tabla_con_clave[,-c(1,2,4,5,6,7,8,9,10,11,13,14,15,16,17,18,19,20),drop=FALSE] 
names(tabla_con_clave_f)[2] <- "Tipo de techo" 
# Ahora filtramos por Tipo de techo = 1.
tabla_con_clave_ff <- filter(tabla_con_clave_f, tabla_con_clave_f$`Tipo de techo` == 1)
# Determinamos las frecuencias por zona:
b <- tabla_con_clave_ff$clave
c <- tabla_con_clave_ff$`Tipo de techo`
d <- tabla_con_clave_ff$COMUNA
cross_tab =  xtabs( ~ unlist(b) + unlist(c)+ unlist(d))
tabla <- as.data.frame(cross_tab)
d <-tabla[!(tabla$Freq == 0),]
names(d)[1] <- "zona" 
d$anio <- "2017"

Veamos los primeros 100 registros:

r3_100 <- d[c(1:100),]
kbl(r3_100) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
zona unlist.c. unlist.d. Freq anio
1 8101011001 1 8101 132 2017
2 8101021001 1 8101 120 2017
3 8101021002 1 8101 337 2017
4 8101021003 1 8101 137 2017
5 8101031001 1 8101 221 2017
6 8101041001 1 8101 86 2017
7 8101051001 1 8101 46 2017
8 8101051002 1 8101 79 2017
9 8101051003 1 8101 115 2017
10 8101061001 1 8101 217 2017
11 8101071001 1 8101 68 2017
12 8101071002 1 8101 111 2017
13 8101081001 1 8101 49 2017
14 8101081002 1 8101 8 2017
15 8101081003 1 8101 85 2017
16 8101081004 1 8101 81 2017
17 8101081005 1 8101 52 2017
18 8101091001 1 8101 318 2017
19 8101101001 1 8101 187 2017
20 8101101002 1 8101 322 2017
21 8101101003 1 8101 71 2017
22 8101101004 1 8101 48 2017
23 8101111001 1 8101 222 2017
24 8101121001 1 8101 218 2017
25 8101131001 1 8101 360 2017
26 8101141001 1 8101 98 2017
27 8101151001 1 8101 47 2017
28 8101151002 1 8101 32 2017
29 8101151003 1 8101 70 2017
30 8101151004 1 8101 36 2017
31 8101151005 1 8101 49 2017
32 8101151006 1 8101 43 2017
33 8101161001 1 8101 508 2017
34 8101161002 1 8101 97 2017
35 8101161003 1 8101 57 2017
36 8101161004 1 8101 148 2017
37 8101161005 1 8101 173 2017
38 8101161006 1 8101 448 2017
39 8101161007 1 8101 47 2017
40 8101161008 1 8101 483 2017
41 8101161009 1 8101 475 2017
42 8101161010 1 8101 531 2017
43 8101161011 1 8101 57 2017
44 8101161012 1 8101 820 2017
45 8101161013 1 8101 406 2017
46 8101161014 1 8101 554 2017
47 8101171001 1 8101 210 2017
48 8101171002 1 8101 121 2017
49 8101171003 1 8101 57 2017
50 8101181001 1 8101 229 2017
51 8101191001 1 8101 208 2017
52 8101191002 1 8101 157 2017
53 8101201001 1 8101 286 2017
54 8101211001 1 8101 383 2017
55 8101221001 1 8101 197 2017
56 8101221002 1 8101 122 2017
57 8101231001 1 8101 185 2017
58 8101241001 1 8101 97 2017
59 8101241002 1 8101 156 2017
60 8101241003 1 8101 252 2017
61 8101251001 1 8101 520 2017
62 8101251002 1 8101 43 2017
63 8101251003 1 8101 131 2017
64 8101251004 1 8101 45 2017
65 8101251005 1 8101 166 2017
66 8101252025 1 8101 6 2017
67 8101261001 1 8101 53 2017
68 8101261002 1 8101 67 2017
69 8101261003 1 8101 29 2017
70 8101271001 1 8101 84 2017
71 8101281001 1 8101 233 2017
72 8101281002 1 8101 142 2017
73 8101282901 1 8101 3 2017
74 8101292012 1 8101 4 2017
75 8101292020 1 8101 3 2017
76 8101292901 1 8101 2 2017
77 8101302001 1 8101 8 2017
78 8101302005 1 8101 10 2017
79 8101302008 1 8101 3 2017
80 8101302011 1 8101 3 2017
81 8101302019 1 8101 1 2017
82 8101302021 1 8101 12 2017
83 8101302024 1 8101 1 2017
84 8101302901 1 8101 2 2017
85 8101312004 1 8101 6 2017
86 8101312013 1 8101 16 2017
87 8101312014 1 8101 30 2017
88 8101312017 1 8101 2 2017
89 8101321001 1 8101 375 2017
90 8101321002 1 8101 226 2017
91 8101321003 1 8101 142 2017
92 8101321004 1 8101 180 2017
93 8101321005 1 8101 171 2017
94 8101322025 1 8101 2 2017
95 8101991999 1 8101 21 2017
1322 8102011001 1 8102 21 2017
1323 8102011002 1 8102 60 2017
1324 8102021001 1 8102 187 2017
1325 8102021002 1 8102 96 2017
1326 8102021003 1 8102 192 2017

Agregamos un cero a los códigos comunales de cuatro dígitos:

codigos <- d$unlist.d.
rango <- seq(1:nrow(d))
cadena <- paste("0",codigos[rango], sep = "")
cadena <- substr(cadena,(nchar(cadena)[rango])-(4),6)
codigos <- as.data.frame(codigos)
cadena <- as.data.frame(cadena)
comuna_corr <- cbind(d,cadena)
comuna_corr <- comuna_corr[,-c(2,3),drop=FALSE]
names(comuna_corr)[4] <- "código" 
r3_100 <- comuna_corr[c(1:100),]
kbl(r3_100) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
zona Freq anio código
1 8101011001 132 2017 08101
2 8101021001 120 2017 08101
3 8101021002 337 2017 08101
4 8101021003 137 2017 08101
5 8101031001 221 2017 08101
6 8101041001 86 2017 08101
7 8101051001 46 2017 08101
8 8101051002 79 2017 08101
9 8101051003 115 2017 08101
10 8101061001 217 2017 08101
11 8101071001 68 2017 08101
12 8101071002 111 2017 08101
13 8101081001 49 2017 08101
14 8101081002 8 2017 08101
15 8101081003 85 2017 08101
16 8101081004 81 2017 08101
17 8101081005 52 2017 08101
18 8101091001 318 2017 08101
19 8101101001 187 2017 08101
20 8101101002 322 2017 08101
21 8101101003 71 2017 08101
22 8101101004 48 2017 08101
23 8101111001 222 2017 08101
24 8101121001 218 2017 08101
25 8101131001 360 2017 08101
26 8101141001 98 2017 08101
27 8101151001 47 2017 08101
28 8101151002 32 2017 08101
29 8101151003 70 2017 08101
30 8101151004 36 2017 08101
31 8101151005 49 2017 08101
32 8101151006 43 2017 08101
33 8101161001 508 2017 08101
34 8101161002 97 2017 08101
35 8101161003 57 2017 08101
36 8101161004 148 2017 08101
37 8101161005 173 2017 08101
38 8101161006 448 2017 08101
39 8101161007 47 2017 08101
40 8101161008 483 2017 08101
41 8101161009 475 2017 08101
42 8101161010 531 2017 08101
43 8101161011 57 2017 08101
44 8101161012 820 2017 08101
45 8101161013 406 2017 08101
46 8101161014 554 2017 08101
47 8101171001 210 2017 08101
48 8101171002 121 2017 08101
49 8101171003 57 2017 08101
50 8101181001 229 2017 08101
51 8101191001 208 2017 08101
52 8101191002 157 2017 08101
53 8101201001 286 2017 08101
54 8101211001 383 2017 08101
55 8101221001 197 2017 08101
56 8101221002 122 2017 08101
57 8101231001 185 2017 08101
58 8101241001 97 2017 08101
59 8101241002 156 2017 08101
60 8101241003 252 2017 08101
61 8101251001 520 2017 08101
62 8101251002 43 2017 08101
63 8101251003 131 2017 08101
64 8101251004 45 2017 08101
65 8101251005 166 2017 08101
66 8101252025 6 2017 08101
67 8101261001 53 2017 08101
68 8101261002 67 2017 08101
69 8101261003 29 2017 08101
70 8101271001 84 2017 08101
71 8101281001 233 2017 08101
72 8101281002 142 2017 08101
73 8101282901 3 2017 08101
74 8101292012 4 2017 08101
75 8101292020 3 2017 08101
76 8101292901 2 2017 08101
77 8101302001 8 2017 08101
78 8101302005 10 2017 08101
79 8101302008 3 2017 08101
80 8101302011 3 2017 08101
81 8101302019 1 2017 08101
82 8101302021 12 2017 08101
83 8101302024 1 2017 08101
84 8101302901 2 2017 08101
85 8101312004 6 2017 08101
86 8101312013 16 2017 08101
87 8101312014 30 2017 08101
88 8101312017 2 2017 08101
89 8101321001 375 2017 08101
90 8101321002 226 2017 08101
91 8101321003 142 2017 08101
92 8101321004 180 2017 08101
93 8101321005 171 2017 08101
94 8101322025 2 2017 08101
95 8101991999 21 2017 08101
1322 8102011001 21 2017 08102
1323 8102011002 60 2017 08102
1324 8102021001 187 2017 08102
1325 8102021002 96 2017 08102
1326 8102021003 192 2017 08102


2 Variable CASEN

2.1 Tabla de ingresos expandidos

Hemos calculado ya éste valor como conclusión del punto 1.1 de aquí

h_y_m_2017_censo <- readRDS("ingresos_expandidos_17.rds")
tablamadre <- head(h_y_m_2017_censo,50)
kbl(tablamadre) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
código comuna.x promedio_i año comuna.y personas Ingresos_expandidos
01101 Iquique 354820.7 2017 1101 191468 67936815240
01107 Alto Hospicio 301933.4 2017 1107 108375 32722034397
01401 Pozo Almonte 285981.8 2017 1401 15711 4493059532
01402 Camiña 262850.3 2017 1402 1250 328562901
01404 Huara 253968.5 2017 1404 2730 693334131
01405 Pica 313007.5 2017 1405 9296 2909717399
02101 Antofagasta 347580.2 2017 2101 361873 125779893517
02102 Mejillones 369770.7 2017 2102 13467 4979702302
02103 Sierra Gorda 403458.5 2017 2103 10186 4109628188
02104 Taltal 364539.1 2017 2104 13317 4854566842
02201 Calama 409671.3 2017 2201 165731 67895226712
02203 San Pedro de Atacama 426592.0 2017 2203 10996 4690805471
02301 Tocopilla 246615.3 2017 2301 25186 6211253937
02302 María Elena 466266.9 2017 2302 6457 3010685220
03101 Copiapó 330075.2 2017 3101 153937 50810778473
03102 Caldera 299314.8 2017 3102 17662 5286498241
03103 Tierra Amarilla 314643.9 2017 3103 14019 4410992711
03201 Chañaral 286389.3 2017 3201 12219 3499391196
03202 Diego de Almagro 336256.8 2017 3202 13925 4682376047
03301 Vallenar 304336.7 2017 3301 51917 15800246795
03302 Alto del Carmen 227130.4 2017 3302 5299 1203563833
03303 Freirina 253086.7 2017 3303 7041 1781983257
03304 Huasco 287406.6 2017 3304 10149 2916889629
04101 La Serena 270221.9 2017 4101 221054 59733627577
04102 Coquimbo 261852.6 2017 4102 227730 59631700074
04103 Andacollo 248209.3 2017 4103 11044 2741223967
04104 La Higuera 228356.8 2017 4104 4241 968461330
04105 Paiguano 205942.1 2017 4105 4497 926121774
04106 Vicuña 211431.9 2017 4106 27771 5871675449
04201 Illapel 238674.4 2017 4201 30848 7362627007
04202 Canela 207933.6 2017 4202 9093 1890740321
04203 Los Vilos 255200.4 2017 4203 21382 5456695139
04204 Salamanca 242879.5 2017 4204 29347 7127783272
04301 Ovalle 266522.9 2017 4301 111272 29656533187
04302 Combarbalá 210409.7 2017 4302 13322 2803077721
04303 Monte Patria 211907.9 2017 4303 30751 6516380780
04304 Punitaqui 194997.8 2017 4304 10956 2136395349
04305 Río Hurtado 182027.2 2017 4305 4278 778712384
05101 Valparaíso 298720.7 2017 5101 296655 88616992249
05102 Casablanca 312802.7 2017 5102 26867 8404070481
05103 Concón 318496.3 2017 5103 42152 13425257057
05105 Puchuncaví 288737.2 2017 5105 18546 5354920887
05107 Quintero 316659.1 2017 5107 31923 10108709691
05109 Viña del Mar 337006.1 2017 5109 334248 112643604611
05301 Los Andes 338182.5 2017 5301 66708 22559476922
05302 Calle Larga 245165.4 2017 5302 14832 3636293159
05303 Rinconada 281633.2 2017 5303 10207 2874630315
05304 San Esteban 220958.4 2017 5304 18855 4166170587
05401 La Ligua 229623.7 2017 5401 35390 8126381563
05402 Cabildo 249717.7 2017 5402 19388 4841527150

3 Unión Censo-Casen

Integramos a la tabla censal de frecuencias la tabla de ingresos expandidos de la Casen.

comunas_con_ing_exp = merge( x = comuna_corr, y = h_y_m_2017_censo, by = "código", all.x = TRUE)
r3_100 <- comunas_con_ing_exp[c(1:100),]
kbl(r3_100) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
código zona Freq anio comuna.x promedio_i año comuna.y personas Ingresos_expandidos
08101 8101011001 132 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101021001 120 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101021002 337 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101021003 137 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101031001 221 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101041001 86 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101051001 46 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101051002 79 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101051003 115 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101061001 217 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101071001 68 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101071002 111 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101081001 49 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101081002 8 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101081003 85 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101081004 81 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101081005 52 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101091001 318 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101101001 187 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101101002 322 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101101003 71 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101101004 48 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101111001 222 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101121001 218 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101131001 360 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101141001 98 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101151001 47 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101151002 32 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101151003 70 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101151004 36 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101151005 49 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101151006 43 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101161001 508 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101161002 97 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101161003 57 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101161004 148 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101161005 173 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101161006 448 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101161007 47 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101161008 483 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101161009 475 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101161010 531 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101161011 57 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101161012 820 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101161013 406 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101161014 554 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101171001 210 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101171002 121 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101171003 57 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101181001 229 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101191001 208 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101191002 157 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101201001 286 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101211001 383 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101221001 197 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101221002 122 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101231001 185 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101241001 97 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101241002 156 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101241003 252 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101251001 520 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101251002 43 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101251003 131 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101251004 45 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101251005 166 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101252025 6 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101261001 53 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101261002 67 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101261003 29 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101271001 84 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101281001 233 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101281002 142 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101282901 3 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101292012 4 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101292020 3 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101292901 2 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101302001 8 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101302005 10 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101302008 3 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101302011 3 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101302019 1 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101302021 12 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101302024 1 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101302901 2 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101312004 6 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101312013 16 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101312014 30 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101312017 2 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101321001 375 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101321002 226 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101321003 142 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101321004 180 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101321005 171 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101322025 2 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101991999 21 2017 Concepción 300580.8 2017 8101 223574 67202053112
08102 8102011001 21 2017 Coronel 267083.0 2017 8102 116262 31051609340
08102 8102011002 60 2017 Coronel 267083.0 2017 8102 116262 31051609340
08102 8102021001 187 2017 Coronel 267083.0 2017 8102 116262 31051609340
08102 8102021002 96 2017 Coronel 267083.0 2017 8102 116262 31051609340
08102 8102021003 192 2017 Coronel 267083.0 2017 8102 116262 31051609340


4 Proporción poblacional zonal respecto a la comunal

Del censo obtenemos la cantidad de población a nivel de zona y estimamos su proporción a nivel comunal. Ya hemos calculado ésta proporción aquí.

prop_pob <- readRDS("tabla_de_prop_pob.rds")
names(prop_pob)[1] <- "zona"
names(prop_pob)[3] <- "p_poblacional"

Veamos los 100 primeros registros:

r3_100 <- prop_pob[c(1:100),]
kbl(r3_100) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
zona Freq p_poblacional código
1101011001 2491 0.0130100 01101
1101011002 1475 0.0077036 01101
1101021001 1003 0.0052385 01101
1101021002 54 0.0002820 01101
1101021003 2895 0.0151200 01101
1101021004 2398 0.0125243 01101
1101021005 4525 0.0236332 01101
1101031001 2725 0.0142321 01101
1101031002 3554 0.0185618 01101
1101031003 5246 0.0273988 01101
1101031004 3389 0.0177001 01101
1101041001 1800 0.0094010 01101
1101041002 2538 0.0132555 01101
1101041003 3855 0.0201339 01101
1101041004 5663 0.0295767 01101
1101041005 4162 0.0217373 01101
1101041006 2689 0.0140441 01101
1101051001 3296 0.0172144 01101
1101051002 4465 0.0233198 01101
1101051003 4656 0.0243174 01101
1101051004 2097 0.0109522 01101
1101051005 3569 0.0186402 01101
1101051006 2741 0.0143157 01101
1101061001 1625 0.0084871 01101
1101061002 4767 0.0248971 01101
1101061003 4826 0.0252053 01101
1101061004 4077 0.0212934 01101
1101061005 2166 0.0113126 01101
1101071001 2324 0.0121378 01101
1101071002 2801 0.0146291 01101
1101071003 3829 0.0199981 01101
1101071004 1987 0.0103777 01101
1101081001 5133 0.0268087 01101
1101081002 3233 0.0168853 01101
1101081003 2122 0.0110828 01101
1101081004 2392 0.0124929 01101
1101092001 57 0.0002977 01101
1101092004 247 0.0012900 01101
1101092005 76 0.0003969 01101
1101092006 603 0.0031494 01101
1101092007 84 0.0004387 01101
1101092010 398 0.0020787 01101
1101092012 58 0.0003029 01101
1101092014 23 0.0001201 01101
1101092016 20 0.0001045 01101
1101092017 8 0.0000418 01101
1101092018 74 0.0003865 01101
1101092019 25 0.0001306 01101
1101092021 177 0.0009244 01101
1101092022 23 0.0001201 01101
1101092023 288 0.0015042 01101
1101092024 14 0.0000731 01101
1101092901 30 0.0001567 01101
1101101001 2672 0.0139553 01101
1101101002 4398 0.0229699 01101
1101101003 4524 0.0236280 01101
1101101004 3544 0.0185096 01101
1101101005 4911 0.0256492 01101
1101101006 3688 0.0192617 01101
1101111001 3886 0.0202958 01101
1101111002 2312 0.0120751 01101
1101111003 4874 0.0254560 01101
1101111004 4543 0.0237272 01101
1101111005 4331 0.0226200 01101
1101111006 3253 0.0169898 01101
1101111007 4639 0.0242286 01101
1101111008 4881 0.0254925 01101
1101111009 5006 0.0261454 01101
1101111010 366 0.0019115 01101
1101111011 4351 0.0227244 01101
1101111012 2926 0.0152819 01101
1101111013 3390 0.0177053 01101
1101111014 2940 0.0153550 01101
1101112003 33 0.0001724 01101
1101112013 104 0.0005432 01101
1101112019 34 0.0001776 01101
1101112025 21 0.0001097 01101
1101112901 6 0.0000313 01101
1101991999 1062 0.0055466 01101
1107011001 4104 0.0378685 01107
1107011002 4360 0.0402307 01107
1107011003 8549 0.0788835 01107
1107012003 3 0.0000277 01107
1107012901 17 0.0001569 01107
1107021001 6701 0.0618316 01107
1107021002 3971 0.0366413 01107
1107021003 6349 0.0585836 01107
1107021004 5125 0.0472895 01107
1107021005 4451 0.0410704 01107
1107021006 3864 0.0356540 01107
1107021007 5235 0.0483045 01107
1107021008 4566 0.0421315 01107
1107031001 4195 0.0387082 01107
1107031002 7099 0.0655040 01107
1107031003 4720 0.0435525 01107
1107032005 38 0.0003506 01107
1107032006 2399 0.0221361 01107
1107032008 4 0.0000369 01107
1107041001 3630 0.0334948 01107
1107041002 5358 0.0494394 01107


5 Ingreso medio

Deseamos el valor del ingreso promedio a nivel comunal, pero expandido a nivel zonal. Ésta información está contenida en el campo promedio_i de la tabla obtenida en el punto 3.

r3_100 <- comunas_con_ing_exp[c(1:100),]
kbl(r3_100) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
código zona Freq anio comuna.x promedio_i año comuna.y personas Ingresos_expandidos
08101 8101011001 132 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101021001 120 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101021002 337 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101021003 137 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101031001 221 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101041001 86 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101051001 46 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101051002 79 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101051003 115 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101061001 217 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101071001 68 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101071002 111 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101081001 49 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101081002 8 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101081003 85 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101081004 81 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101081005 52 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101091001 318 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101101001 187 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101101002 322 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101101003 71 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101101004 48 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101111001 222 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101121001 218 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101131001 360 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101141001 98 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101151001 47 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101151002 32 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101151003 70 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101151004 36 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101151005 49 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101151006 43 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101161001 508 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101161002 97 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101161003 57 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101161004 148 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101161005 173 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101161006 448 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101161007 47 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101161008 483 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101161009 475 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101161010 531 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101161011 57 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101161012 820 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101161013 406 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101161014 554 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101171001 210 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101171002 121 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101171003 57 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101181001 229 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101191001 208 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101191002 157 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101201001 286 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101211001 383 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101221001 197 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101221002 122 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101231001 185 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101241001 97 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101241002 156 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101241003 252 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101251001 520 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101251002 43 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101251003 131 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101251004 45 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101251005 166 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101252025 6 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101261001 53 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101261002 67 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101261003 29 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101271001 84 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101281001 233 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101281002 142 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101282901 3 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101292012 4 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101292020 3 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101292901 2 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101302001 8 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101302005 10 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101302008 3 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101302011 3 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101302019 1 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101302021 12 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101302024 1 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101302901 2 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101312004 6 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101312013 16 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101312014 30 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101312017 2 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101321001 375 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101321002 226 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101321003 142 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101321004 180 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101321005 171 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101322025 2 2017 Concepción 300580.8 2017 8101 223574 67202053112
08101 8101991999 21 2017 Concepción 300580.8 2017 8101 223574 67202053112
08102 8102011001 21 2017 Coronel 267083.0 2017 8102 116262 31051609340
08102 8102011002 60 2017 Coronel 267083.0 2017 8102 116262 31051609340
08102 8102021001 187 2017 Coronel 267083.0 2017 8102 116262 31051609340
08102 8102021002 96 2017 Coronel 267083.0 2017 8102 116262 31051609340
08102 8102021003 192 2017 Coronel 267083.0 2017 8102 116262 31051609340


6 Ingreso promedio expandido por zona (multi_pob)

En éste momento vamos a construir nuestra variable dependiente de regresión aplicando la siguiente fórmula:

\[ multi\_pob = promedio\_i \cdot personas \cdot p\_poblacional \]

Para ello integramos a la tabla de ingresos expandidos a nivel zonal (punto 3) la tabla de proporciones poblacionales zonales respecto al total comunal (punto 4) :

h_y_m_comuna_corr_01 = merge( x = comunas_con_ing_exp, y = prop_pob, by = "zona", all.x = TRUE)
tablamadre <- head(h_y_m_comuna_corr_01,100)
kbl(tablamadre) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
zona código.x Freq.x anio comuna.x promedio_i año comuna.y personas Ingresos_expandidos Freq.y p_poblacional código.y
8101011001 08101 132 2017 Concepción 300580.8 2017 8101 223574 67202053112 1455 0.0065079 08101
8101021001 08101 120 2017 Concepción 300580.8 2017 8101 223574 67202053112 1516 0.0067808 08101
8101021002 08101 337 2017 Concepción 300580.8 2017 8101 223574 67202053112 1874 0.0083820 08101
8101021003 08101 137 2017 Concepción 300580.8 2017 8101 223574 67202053112 1349 0.0060338 08101
8101031001 08101 221 2017 Concepción 300580.8 2017 8101 223574 67202053112 2590 0.0115845 08101
8101041001 08101 86 2017 Concepción 300580.8 2017 8101 223574 67202053112 1373 0.0061411 08101
8101051001 08101 46 2017 Concepción 300580.8 2017 8101 223574 67202053112 1825 0.0081628 08101
8101051002 08101 79 2017 Concepción 300580.8 2017 8101 223574 67202053112 2383 0.0106587 08101
8101051003 08101 115 2017 Concepción 300580.8 2017 8101 223574 67202053112 2945 0.0131724 08101
8101061001 08101 217 2017 Concepción 300580.8 2017 8101 223574 67202053112 2976 0.0133110 08101
8101071001 08101 68 2017 Concepción 300580.8 2017 8101 223574 67202053112 1523 0.0068121 08101
8101071002 08101 111 2017 Concepción 300580.8 2017 8101 223574 67202053112 2187 0.0097820 08101
8101081001 08101 49 2017 Concepción 300580.8 2017 8101 223574 67202053112 1852 0.0082836 08101
8101081002 08101 8 2017 Concepción 300580.8 2017 8101 223574 67202053112 836 0.0037393 08101
8101081003 08101 85 2017 Concepción 300580.8 2017 8101 223574 67202053112 2570 0.0114951 08101
8101081004 08101 81 2017 Concepción 300580.8 2017 8101 223574 67202053112 1420 0.0063514 08101
8101081005 08101 52 2017 Concepción 300580.8 2017 8101 223574 67202053112 3105 0.0138880 08101
8101091001 08101 318 2017 Concepción 300580.8 2017 8101 223574 67202053112 3351 0.0149883 08101
8101101001 08101 187 2017 Concepción 300580.8 2017 8101 223574 67202053112 1345 0.0060159 08101
8101101002 08101 322 2017 Concepción 300580.8 2017 8101 223574 67202053112 4045 0.0180924 08101
8101101003 08101 71 2017 Concepción 300580.8 2017 8101 223574 67202053112 2968 0.0132752 08101
8101101004 08101 48 2017 Concepción 300580.8 2017 8101 223574 67202053112 2134 0.0095449 08101
8101111001 08101 222 2017 Concepción 300580.8 2017 8101 223574 67202053112 3916 0.0175155 08101
8101121001 08101 218 2017 Concepción 300580.8 2017 8101 223574 67202053112 2733 0.0122241 08101
8101131001 08101 360 2017 Concepción 300580.8 2017 8101 223574 67202053112 3498 0.0156458 08101
8101141001 08101 98 2017 Concepción 300580.8 2017 8101 223574 67202053112 2701 0.0120810 08101
8101151001 08101 47 2017 Concepción 300580.8 2017 8101 223574 67202053112 2271 0.0101577 08101
8101151002 08101 32 2017 Concepción 300580.8 2017 8101 223574 67202053112 2231 0.0099788 08101
8101151003 08101 70 2017 Concepción 300580.8 2017 8101 223574 67202053112 3075 0.0137538 08101
8101151004 08101 36 2017 Concepción 300580.8 2017 8101 223574 67202053112 1854 0.0082926 08101
8101151005 08101 49 2017 Concepción 300580.8 2017 8101 223574 67202053112 2355 0.0105334 08101
8101151006 08101 43 2017 Concepción 300580.8 2017 8101 223574 67202053112 2089 0.0093437 08101
8101161001 08101 508 2017 Concepción 300580.8 2017 8101 223574 67202053112 3863 0.0172784 08101
8101161002 08101 97 2017 Concepción 300580.8 2017 8101 223574 67202053112 3464 0.0154938 08101
8101161003 08101 57 2017 Concepción 300580.8 2017 8101 223574 67202053112 3640 0.0162810 08101
8101161004 08101 148 2017 Concepción 300580.8 2017 8101 223574 67202053112 3612 0.0161557 08101
8101161005 08101 173 2017 Concepción 300580.8 2017 8101 223574 67202053112 4756 0.0212726 08101
8101161006 08101 448 2017 Concepción 300580.8 2017 8101 223574 67202053112 3401 0.0152120 08101
8101161007 08101 47 2017 Concepción 300580.8 2017 8101 223574 67202053112 2944 0.0131679 08101
8101161008 08101 483 2017 Concepción 300580.8 2017 8101 223574 67202053112 5013 0.0224221 08101
8101161009 08101 475 2017 Concepción 300580.8 2017 8101 223574 67202053112 3072 0.0137404 08101
8101161010 08101 531 2017 Concepción 300580.8 2017 8101 223574 67202053112 2380 0.0106452 08101
8101161011 08101 57 2017 Concepción 300580.8 2017 8101 223574 67202053112 2320 0.0103769 08101
8101161012 08101 820 2017 Concepción 300580.8 2017 8101 223574 67202053112 3886 0.0173813 08101
8101161013 08101 406 2017 Concepción 300580.8 2017 8101 223574 67202053112 2922 0.0130695 08101
8101161014 08101 554 2017 Concepción 300580.8 2017 8101 223574 67202053112 3814 0.0170592 08101
8101171001 08101 210 2017 Concepción 300580.8 2017 8101 223574 67202053112 3284 0.0146886 08101
8101171002 08101 121 2017 Concepción 300580.8 2017 8101 223574 67202053112 3682 0.0164688 08101
8101171003 08101 57 2017 Concepción 300580.8 2017 8101 223574 67202053112 1315 0.0058817 08101
8101181001 08101 229 2017 Concepción 300580.8 2017 8101 223574 67202053112 4508 0.0201633 08101
8101191001 08101 208 2017 Concepción 300580.8 2017 8101 223574 67202053112 1629 0.0072862 08101
8101191002 08101 157 2017 Concepción 300580.8 2017 8101 223574 67202053112 3336 0.0149212 08101
8101201001 08101 286 2017 Concepción 300580.8 2017 8101 223574 67202053112 3154 0.0141072 08101
8101211001 08101 383 2017 Concepción 300580.8 2017 8101 223574 67202053112 4901 0.0219212 08101
8101221001 08101 197 2017 Concepción 300580.8 2017 8101 223574 67202053112 2688 0.0120229 08101
8101221002 08101 122 2017 Concepción 300580.8 2017 8101 223574 67202053112 1855 0.0082970 08101
8101231001 08101 185 2017 Concepción 300580.8 2017 8101 223574 67202053112 2503 0.0111954 08101
8101241001 08101 97 2017 Concepción 300580.8 2017 8101 223574 67202053112 2763 0.0123583 08101
8101241002 08101 156 2017 Concepción 300580.8 2017 8101 223574 67202053112 1864 0.0083373 08101
8101241003 08101 252 2017 Concepción 300580.8 2017 8101 223574 67202053112 1888 0.0084446 08101
8101251001 08101 520 2017 Concepción 300580.8 2017 8101 223574 67202053112 3790 0.0169519 08101
8101251002 08101 43 2017 Concepción 300580.8 2017 8101 223574 67202053112 3121 0.0139596 08101
8101251003 08101 131 2017 Concepción 300580.8 2017 8101 223574 67202053112 4587 0.0205167 08101
8101251004 08101 45 2017 Concepción 300580.8 2017 8101 223574 67202053112 2288 0.0102337 08101
8101251005 08101 166 2017 Concepción 300580.8 2017 8101 223574 67202053112 4334 0.0193851 08101
8101252025 08101 6 2017 Concepción 300580.8 2017 8101 223574 67202053112 60 0.0002684 08101
8101261001 08101 53 2017 Concepción 300580.8 2017 8101 223574 67202053112 1200 0.0053674 08101
8101261002 08101 67 2017 Concepción 300580.8 2017 8101 223574 67202053112 2084 0.0093213 08101
8101261003 08101 29 2017 Concepción 300580.8 2017 8101 223574 67202053112 2696 0.0120586 08101
8101271001 08101 84 2017 Concepción 300580.8 2017 8101 223574 67202053112 2727 0.0121973 08101
8101281001 08101 233 2017 Concepción 300580.8 2017 8101 223574 67202053112 3513 0.0157129 08101
8101281002 08101 142 2017 Concepción 300580.8 2017 8101 223574 67202053112 3737 0.0167148 08101
8101282901 08101 3 2017 Concepción 300580.8 2017 8101 223574 67202053112 31 0.0001387 08101
8101292012 08101 4 2017 Concepción 300580.8 2017 8101 223574 67202053112 86 0.0003847 08101
8101292020 08101 3 2017 Concepción 300580.8 2017 8101 223574 67202053112 61 0.0002728 08101
8101292901 08101 2 2017 Concepción 300580.8 2017 8101 223574 67202053112 21 0.0000939 08101
8101302001 08101 8 2017 Concepción 300580.8 2017 8101 223574 67202053112 280 0.0012524 08101
8101302005 08101 10 2017 Concepción 300580.8 2017 8101 223574 67202053112 688 0.0030773 08101
8101302008 08101 3 2017 Concepción 300580.8 2017 8101 223574 67202053112 98 0.0004383 08101
8101302011 08101 3 2017 Concepción 300580.8 2017 8101 223574 67202053112 469 0.0020977 08101
8101302019 08101 1 2017 Concepción 300580.8 2017 8101 223574 67202053112 198 0.0008856 08101
8101302021 08101 12 2017 Concepción 300580.8 2017 8101 223574 67202053112 401 0.0017936 08101
8101302024 08101 1 2017 Concepción 300580.8 2017 8101 223574 67202053112 88 0.0003936 08101
8101302901 08101 2 2017 Concepción 300580.8 2017 8101 223574 67202053112 16 0.0000716 08101
8101312004 08101 6 2017 Concepción 300580.8 2017 8101 223574 67202053112 63 0.0002818 08101
8101312013 08101 16 2017 Concepción 300580.8 2017 8101 223574 67202053112 1045 0.0046741 08101
8101312014 08101 30 2017 Concepción 300580.8 2017 8101 223574 67202053112 534 0.0023885 08101
8101312017 08101 2 2017 Concepción 300580.8 2017 8101 223574 67202053112 47 0.0002102 08101
8101321001 08101 375 2017 Concepción 300580.8 2017 8101 223574 67202053112 4131 0.0184771 08101
8101321002 08101 226 2017 Concepción 300580.8 2017 8101 223574 67202053112 4089 0.0182892 08101
8101321003 08101 142 2017 Concepción 300580.8 2017 8101 223574 67202053112 2991 0.0133781 08101
8101321004 08101 180 2017 Concepción 300580.8 2017 8101 223574 67202053112 5956 0.0266399 08101
8101321005 08101 171 2017 Concepción 300580.8 2017 8101 223574 67202053112 3491 0.0156145 08101
8101322025 08101 2 2017 Concepción 300580.8 2017 8101 223574 67202053112 100 0.0004473 08101
8101991999 08101 21 2017 Concepción 300580.8 2017 8101 223574 67202053112 1520 0.0067986 08101
8102011001 08102 21 2017 Coronel 267083.0 2017 8102 116262 31051609340 231 0.0019869 08102
8102011002 08102 60 2017 Coronel 267083.0 2017 8102 116262 31051609340 2650 0.0227933 08102
8102021001 08102 187 2017 Coronel 267083.0 2017 8102 116262 31051609340 4404 0.0378800 08102
8102021002 08102 96 2017 Coronel 267083.0 2017 8102 116262 31051609340 2895 0.0249007 08102
8102021003 08102 192 2017 Coronel 267083.0 2017 8102 116262 31051609340 4041 0.0347577 08102


Hacemos la multiplicación que queda almacenada en la variable multi_pob:

h_y_m_comuna_corr_01$multi_pob <- h_y_m_comuna_corr_01$promedio_i * h_y_m_comuna_corr_01$personas * h_y_m_comuna_corr_01$p_poblacional
tablamadre <- head(h_y_m_comuna_corr_01,100)
kbl(tablamadre) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
zona código.x Freq.x anio comuna.x promedio_i año comuna.y personas Ingresos_expandidos Freq.y p_poblacional código.y multi_pob
8101011001 08101 132 2017 Concepción 300580.8 2017 8101 223574 67202053112 1455 0.0065079 08101 437345073
8101021001 08101 120 2017 Concepción 300580.8 2017 8101 223574 67202053112 1516 0.0067808 08101 455680502
8101021002 08101 337 2017 Concepción 300580.8 2017 8101 223574 67202053112 1874 0.0083820 08101 563288430
8101021003 08101 137 2017 Concepción 300580.8 2017 8101 223574 67202053112 1349 0.0060338 08101 405483507
8101031001 08101 221 2017 Concepción 300580.8 2017 8101 223574 67202053112 2590 0.0115845 08101 778504287
8101041001 08101 86 2017 Concepción 300580.8 2017 8101 223574 67202053112 1373 0.0061411 08101 412697447
8101051001 08101 46 2017 Concepción 300580.8 2017 8101 223574 67202053112 1825 0.0081628 08101 548559971
8101051002 08101 79 2017 Concepción 300580.8 2017 8101 223574 67202053112 2383 0.0106587 08101 716284061
8101051003 08101 115 2017 Concepción 300580.8 2017 8101 223574 67202053112 2945 0.0131724 08101 885210474
8101061001 08101 217 2017 Concepción 300580.8 2017 8101 223574 67202053112 2976 0.0133110 08101 894528479
8101071001 08101 68 2017 Concepción 300580.8 2017 8101 223574 67202053112 1523 0.0068121 08101 457784567
8101071002 08101 111 2017 Concepción 300580.8 2017 8101 223574 67202053112 2187 0.0097820 08101 657370223
8101081001 08101 49 2017 Concepción 300580.8 2017 8101 223574 67202053112 1852 0.0082836 08101 556675653
8101081002 08101 8 2017 Concepción 300580.8 2017 8101 223574 67202053112 836 0.0037393 08101 251285554
8101081003 08101 85 2017 Concepción 300580.8 2017 8101 223574 67202053112 2570 0.0114951 08101 772492671
8101081004 08101 81 2017 Concepción 300580.8 2017 8101 223574 67202053112 1420 0.0063514 08101 426824744
8101081005 08101 52 2017 Concepción 300580.8 2017 8101 223574 67202053112 3105 0.0138880 08101 933303403
8101091001 08101 318 2017 Concepción 300580.8 2017 8101 223574 67202053112 3351 0.0149883 08101 1007246281
8101101001 08101 187 2017 Concepción 300580.8 2017 8101 223574 67202053112 1345 0.0060159 08101 404281184
8101101002 08101 322 2017 Concepción 300580.8 2017 8101 223574 67202053112 4045 0.0180924 08101 1215849360
8101101003 08101 71 2017 Concepción 300580.8 2017 8101 223574 67202053112 2968 0.0132752 08101 892123832
8101101004 08101 48 2017 Concepción 300580.8 2017 8101 223574 67202053112 2134 0.0095449 08101 641439440
8101111001 08101 222 2017 Concepción 300580.8 2017 8101 223574 67202053112 3916 0.0175155 08101 1177074436
8101121001 08101 218 2017 Concepción 300580.8 2017 8101 223574 67202053112 2733 0.0122241 08101 821487343
8101131001 08101 360 2017 Concepción 300580.8 2017 8101 223574 67202053112 3498 0.0156458 08101 1051431659
8101141001 08101 98 2017 Concepción 300580.8 2017 8101 223574 67202053112 2701 0.0120810 08101 811868757
8101151001 08101 47 2017 Concepción 300580.8 2017 8101 223574 67202053112 2271 0.0101577 08101 682619010
8101151002 08101 32 2017 Concepción 300580.8 2017 8101 223574 67202053112 2231 0.0099788 08101 670595778
8101151003 08101 70 2017 Concepción 300580.8 2017 8101 223574 67202053112 3075 0.0137538 08101 924285978
8101151004 08101 36 2017 Concepción 300580.8 2017 8101 223574 67202053112 1854 0.0082926 08101 557276814
8101151005 08101 49 2017 Concepción 300580.8 2017 8101 223574 67202053112 2355 0.0105334 08101 707867798
8101151006 08101 43 2017 Concepción 300580.8 2017 8101 223574 67202053112 2089 0.0093437 08101 627913304
8101161001 08101 508 2017 Concepción 300580.8 2017 8101 223574 67202053112 3863 0.0172784 08101 1161143653
8101161002 08101 97 2017 Concepción 300580.8 2017 8101 223574 67202053112 3464 0.0154938 08101 1041211912
8101161003 08101 57 2017 Concepción 300580.8 2017 8101 223574 67202053112 3640 0.0162810 08101 1094114134
8101161004 08101 148 2017 Concepción 300580.8 2017 8101 223574 67202053112 3612 0.0161557 08101 1085697871
8101161005 08101 173 2017 Concepción 300580.8 2017 8101 223574 67202053112 4756 0.0212726 08101 1429562313
8101161006 08101 448 2017 Concepción 300580.8 2017 8101 223574 67202053112 3401 0.0152120 08101 1022275321
8101161007 08101 47 2017 Concepción 300580.8 2017 8101 223574 67202053112 2944 0.0131679 08101 884909893
8101161008 08101 483 2017 Concepción 300580.8 2017 8101 223574 67202053112 5013 0.0224221 08101 1506811580
8101161009 08101 475 2017 Concepción 300580.8 2017 8101 223574 67202053112 3072 0.0137404 08101 923384236
8101161010 08101 531 2017 Concepción 300580.8 2017 8101 223574 67202053112 2380 0.0106452 08101 715382318
8101161011 08101 57 2017 Concepción 300580.8 2017 8101 223574 67202053112 2320 0.0103769 08101 697347470
8101161012 08101 820 2017 Concepción 300580.8 2017 8101 223574 67202053112 3886 0.0173813 08101 1168057012
8101161013 08101 406 2017 Concepción 300580.8 2017 8101 223574 67202053112 2922 0.0130695 08101 878297115
8101161014 08101 554 2017 Concepción 300580.8 2017 8101 223574 67202053112 3814 0.0170592 08101 1146415194
8101171001 08101 210 2017 Concepción 300580.8 2017 8101 223574 67202053112 3284 0.0146886 08101 987107367
8101171002 08101 121 2017 Concepción 300580.8 2017 8101 223574 67202053112 3682 0.0164688 08101 1106738528
8101171003 08101 57 2017 Concepción 300580.8 2017 8101 223574 67202053112 1315 0.0058817 08101 395263760
8101181001 08101 229 2017 Concepción 300580.8 2017 8101 223574 67202053112 4508 0.0201633 08101 1355018273
8101191001 08101 208 2017 Concepción 300580.8 2017 8101 223574 67202053112 1629 0.0072862 08101 489646133
8101191002 08101 157 2017 Concepción 300580.8 2017 8101 223574 67202053112 3336 0.0149212 08101 1002737569
8101201001 08101 286 2017 Concepción 300580.8 2017 8101 223574 67202053112 3154 0.0141072 08101 948031862
8101211001 08101 383 2017 Concepción 300580.8 2017 8101 223574 67202053112 4901 0.0219212 08101 1473146530
8101221001 08101 197 2017 Concepción 300580.8 2017 8101 223574 67202053112 2688 0.0120229 08101 807961206
8101221002 08101 122 2017 Concepción 300580.8 2017 8101 223574 67202053112 1855 0.0082970 08101 557577395
8101231001 08101 185 2017 Concepción 300580.8 2017 8101 223574 67202053112 2503 0.0111954 08101 752353757
8101241001 08101 97 2017 Concepción 300580.8 2017 8101 223574 67202053112 2763 0.0123583 08101 830504767
8101241002 08101 156 2017 Concepción 300580.8 2017 8101 223574 67202053112 1864 0.0083373 08101 560282622
8101241003 08101 252 2017 Concepción 300580.8 2017 8101 223574 67202053112 1888 0.0084446 08101 567496562
8101251001 08101 520 2017 Concepción 300580.8 2017 8101 223574 67202053112 3790 0.0169519 08101 1139201255
8101251002 08101 43 2017 Concepción 300580.8 2017 8101 223574 67202053112 3121 0.0139596 08101 938112695
8101251003 08101 131 2017 Concepción 300580.8 2017 8101 223574 67202053112 4587 0.0205167 08101 1378764157
8101251004 08101 45 2017 Concepción 300580.8 2017 8101 223574 67202053112 2288 0.0102337 08101 687728884
8101251005 08101 166 2017 Concepción 300580.8 2017 8101 223574 67202053112 4334 0.0193851 08101 1302717213
8101252025 08101 6 2017 Concepción 300580.8 2017 8101 223574 67202053112 60 0.0002684 08101 18034848
8101261001 08101 53 2017 Concepción 300580.8 2017 8101 223574 67202053112 1200 0.0053674 08101 360696967
8101261002 08101 67 2017 Concepción 300580.8 2017 8101 223574 67202053112 2084 0.0093213 08101 626410400
8101261003 08101 29 2017 Concepción 300580.8 2017 8101 223574 67202053112 2696 0.0120586 08101 810365853
8101271001 08101 84 2017 Concepción 300580.8 2017 8101 223574 67202053112 2727 0.0121973 08101 819683858
8101281001 08101 233 2017 Concepción 300580.8 2017 8101 223574 67202053112 3513 0.0157129 08101 1055940371
8101281002 08101 142 2017 Concepción 300580.8 2017 8101 223574 67202053112 3737 0.0167148 08101 1123270472
8101282901 08101 3 2017 Concepción 300580.8 2017 8101 223574 67202053112 31 0.0001387 08101 9318005
8101292012 08101 4 2017 Concepción 300580.8 2017 8101 223574 67202053112 86 0.0003847 08101 25849949
8101292020 08101 3 2017 Concepción 300580.8 2017 8101 223574 67202053112 61 0.0002728 08101 18335429
8101292901 08101 2 2017 Concepción 300580.8 2017 8101 223574 67202053112 21 0.0000939 08101 6312197
8101302001 08101 8 2017 Concepción 300580.8 2017 8101 223574 67202053112 280 0.0012524 08101 84162626
8101302005 08101 10 2017 Concepción 300580.8 2017 8101 223574 67202053112 688 0.0030773 08101 206799595
8101302008 08101 3 2017 Concepción 300580.8 2017 8101 223574 67202053112 98 0.0004383 08101 29456919
8101302011 08101 3 2017 Concepción 300580.8 2017 8101 223574 67202053112 469 0.0020977 08101 140972398
8101302019 08101 1 2017 Concepción 300580.8 2017 8101 223574 67202053112 198 0.0008856 08101 59515000
8101302021 08101 12 2017 Concepción 300580.8 2017 8101 223574 67202053112 401 0.0017936 08101 120532903
8101302024 08101 1 2017 Concepción 300580.8 2017 8101 223574 67202053112 88 0.0003936 08101 26451111
8101302901 08101 2 2017 Concepción 300580.8 2017 8101 223574 67202053112 16 0.0000716 08101 4809293
8101312004 08101 6 2017 Concepción 300580.8 2017 8101 223574 67202053112 63 0.0002818 08101 18936591
8101312013 08101 16 2017 Concepción 300580.8 2017 8101 223574 67202053112 1045 0.0046741 08101 314106942
8101312014 08101 30 2017 Concepción 300580.8 2017 8101 223574 67202053112 534 0.0023885 08101 160510150
8101312017 08101 2 2017 Concepción 300580.8 2017 8101 223574 67202053112 47 0.0002102 08101 14127298
8101321001 08101 375 2017 Concepción 300580.8 2017 8101 223574 67202053112 4131 0.0184771 08101 1241699309
8101321002 08101 226 2017 Concepción 300580.8 2017 8101 223574 67202053112 4089 0.0182892 08101 1229074916
8101321003 08101 142 2017 Concepción 300580.8 2017 8101 223574 67202053112 2991 0.0133781 08101 899037191
8101321004 08101 180 2017 Concepción 300580.8 2017 8101 223574 67202053112 5956 0.0266399 08101 1790259280
8101321005 08101 171 2017 Concepción 300580.8 2017 8101 223574 67202053112 3491 0.0156145 08101 1049327594
8101322025 08101 2 2017 Concepción 300580.8 2017 8101 223574 67202053112 100 0.0004473 08101 30058081
8101991999 08101 21 2017 Concepción 300580.8 2017 8101 223574 67202053112 1520 0.0067986 08101 456882825
8102011001 08102 21 2017 Coronel 267083.0 2017 8102 116262 31051609340 231 0.0019869 08102 61696184
8102011002 08102 60 2017 Coronel 267083.0 2017 8102 116262 31051609340 2650 0.0227933 08102 707770078
8102021001 08102 187 2017 Coronel 267083.0 2017 8102 116262 31051609340 4404 0.0378800 08102 1176233744
8102021002 08102 96 2017 Coronel 267083.0 2017 8102 116262 31051609340 2895 0.0249007 08102 773205424
8102021003 08102 192 2017 Coronel 267083.0 2017 8102 116262 31051609340 4041 0.0347577 08102 1079282597

7 Análisis de regresión

Aplicaremos un análisis de regresión donde:

\[ Y(dependiente) = ingreso \ expandido \ por \ zona \ (multi\_pob)\]

\[ X(independiente) = frecuencia \ de \ población \ que \ posee \ la \ variable \ Censal \ respecto \ a \ la \ zona \ (Freq.x) \]

7.1 Diagrama de dispersión

scatter.smooth(x=h_y_m_comuna_corr_01$Freq.x, y=h_y_m_comuna_corr_01$multi_pob, main="multi_pob ~ Freq.x",
     xlab = "Freq.x",
     ylab = "multi_pob",
           col = 2)

7.2 Outliers

Hemos demostrado en el punto 5.7.2 de aquí que la exclusión de ouliers no genera ninguna mejora en el modelo de regresión.

7.3 Modelo lineal

Aplicaremos un análisis de regresión lineal del ingreso expandido por zona sobre las frecuencias de respuestas zonales.

linearMod <- lm( multi_pob~(Freq.x) , data=h_y_m_comuna_corr_01)
summary(linearMod) 
## 
## Call:
## lm(formula = multi_pob ~ (Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.448e+09 -1.942e+08 -1.681e+08  1.747e+08  1.514e+09 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 200037865   10397682   19.24   <2e-16 ***
## Freq.x        2378905      79158   30.05   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 329100000 on 1224 degrees of freedom
## Multiple R-squared:  0.4246, Adjusted R-squared:  0.4241 
## F-statistic: 903.2 on 1 and 1224 DF,  p-value: < 2.2e-16

7.4 Gráfica de la recta de regresión lineal

ggplot(h_y_m_comuna_corr_01, aes(x = Freq.x , y = multi_pob)) + 
  geom_point() +
  stat_smooth(method = "lm", col = "red")

Si bien obtenemos nuestro modelo lineal da cuenta del 0.8214 de la variabilidad de los datos de respuesta en torno a su media, modelos alternativos pueden ofrecernos una explicación de la variable dependiente aún mayor.

8 Modelos alternativos

8.1 Modelo cuadrático

\[ \hat Y = \beta_0 + \beta_1 X^2 \]

linearMod <- lm( multi_pob~(Freq.x^2) , data=h_y_m_comuna_corr_01)
summary(linearMod) 
## 
## Call:
## lm(formula = multi_pob ~ (Freq.x^2), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.448e+09 -1.942e+08 -1.681e+08  1.747e+08  1.514e+09 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 200037865   10397682   19.24   <2e-16 ***
## Freq.x        2378905      79158   30.05   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 329100000 on 1224 degrees of freedom
## Multiple R-squared:  0.4246, Adjusted R-squared:  0.4241 
## F-statistic: 903.2 on 1 and 1224 DF,  p-value: < 2.2e-16

8.2 Modelo cúbico

\[ \hat Y = \beta_0 + \beta_1 X^3 \]

linearMod <- lm( multi_pob~(Freq.x^3) , data=h_y_m_comuna_corr_01)
summary(linearMod) 
## 
## Call:
## lm(formula = multi_pob ~ (Freq.x^3), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.448e+09 -1.942e+08 -1.681e+08  1.747e+08  1.514e+09 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 200037865   10397682   19.24   <2e-16 ***
## Freq.x        2378905      79158   30.05   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 329100000 on 1224 degrees of freedom
## Multiple R-squared:  0.4246, Adjusted R-squared:  0.4241 
## F-statistic: 903.2 on 1 and 1224 DF,  p-value: < 2.2e-16

8.3 Modelo logarítmico

\[ \hat Y = \beta_0 + \beta_1 ln X \]

linearMod <- lm( multi_pob~log(Freq.x) , data=h_y_m_comuna_corr_01)
summary(linearMod) 
## 
## Call:
## lm(formula = multi_pob ~ log(Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -630708687 -153082404   -7923092  158508660 1191281925 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)    
## (Intercept) -154912326   11022999  -14.05   <2e-16 ***
## log(Freq.x)  198072702    3574589   55.41   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 231600000 on 1224 degrees of freedom
## Multiple R-squared:  0.715,  Adjusted R-squared:  0.7147 
## F-statistic:  3070 on 1 and 1224 DF,  p-value: < 2.2e-16

8.4 Modelo exponencial

\[ \hat Y = \beta_0 + \beta_1 e^X \]

No es aplicable sin una transformación pues los valores elevados a \(e\) de Freq.x tienden a infinito.

8.5 Modelo con raíz cuadrada

\[ \hat Y = \beta_0 + \beta_1 \sqrt {X} \]

linearMod <- lm( multi_pob~sqrt(Freq.x) , data=h_y_m_comuna_corr_01)
summary(linearMod) 
## 
## Call:
## lm(formula = multi_pob ~ sqrt(Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.137e+09 -9.994e+07 -5.135e+07  4.639e+07  1.322e+09 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  -25018553    9817243  -2.548   0.0109 *  
## sqrt(Freq.x)  67706286    1309768  51.693   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 243200000 on 1224 degrees of freedom
## Multiple R-squared:  0.6858, Adjusted R-squared:  0.6856 
## F-statistic:  2672 on 1 and 1224 DF,  p-value: < 2.2e-16

8.6 Modelo raíz-raíz

\[ \hat Y = {\beta_0}^2 + 2 \beta_0 \beta_1 \sqrt{X}+ \beta_1^2 X \]

linearMod <- lm( sqrt(multi_pob)~sqrt(Freq.x) , data=h_y_m_comuna_corr_01)
summary(linearMod) 
## 
## Call:
## lm(formula = sqrt(multi_pob) ~ sqrt(Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -29960  -3860  -1917   3915  22839 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept)   4135.33     262.05   15.78   <2e-16 ***
## sqrt(Freq.x)  1854.70      34.96   53.05   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 6491 on 1224 degrees of freedom
## Multiple R-squared:  0.6969, Adjusted R-squared:  0.6967 
## F-statistic:  2814 on 1 and 1224 DF,  p-value: < 2.2e-16

8.7 Modelo log-raíz

\[ \hat Y = e^{\beta_0 + \beta_1 \sqrt{X}} \]

linearMod <- lm( log(multi_pob)~sqrt(Freq.x) , data=h_y_m_comuna_corr_01)
summary(linearMod) 
## 
## Call:
## lm(formula = log(multi_pob) ~ sqrt(Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -5.3206 -0.8239  0.0698  0.9817  2.8752 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  16.702745   0.051152  326.53   <2e-16 ***
## sqrt(Freq.x)  0.286156   0.006824   41.93   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.267 on 1224 degrees of freedom
## Multiple R-squared:  0.5896, Adjusted R-squared:  0.5892 
## F-statistic:  1758 on 1 and 1224 DF,  p-value: < 2.2e-16

8.8 Modelo raíz-log

\[ \hat Y = {\beta_0}^2 + 2 \beta_0 \beta_1 \ln{X}+ \beta_1^2 ln^2X \]

linearMod <- lm( sqrt(multi_pob)~log(Freq.x) , data=h_y_m_comuna_corr_01)
summary(linearMod) 
## 
## Call:
## lm(formula = sqrt(multi_pob) ~ log(Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -14019.8  -3476.6   -112.3   3321.9  18593.0 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  -258.53     238.02  -1.086    0.278    
## log(Freq.x)  5764.63      77.19  74.685   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 5001 on 1224 degrees of freedom
## Multiple R-squared:   0.82,  Adjusted R-squared:  0.8199 
## F-statistic:  5578 on 1 and 1224 DF,  p-value: < 2.2e-16

8.9 Modelo log-log

\[ \hat Y = e^{\beta_0+\beta_1 ln{X}} \]

linearMod <- lm( log(multi_pob)~log(Freq.x) , data=h_y_m_comuna_corr_01)
summary(linearMod) 
## 
## Call:
## lm(formula = log(multi_pob) ~ log(Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -2.62580 -0.59510  0.03644  0.59261  2.96969 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 15.84389    0.04071  389.17   <2e-16 ***
## log(Freq.x)  0.96276    0.01320   72.92   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.8554 on 1224 degrees of freedom
## Multiple R-squared:  0.8129, Adjusted R-squared:  0.8127 
## F-statistic:  5318 on 1 and 1224 DF,  p-value: < 2.2e-16

9 Modelo raíz-log (log-log)

El modelo que nos entrega el mayor coeficiente de determinación de todos (0,8199) es el raíz-log, sin embargo, el coeficiente de intersección no resulta estadísticamente significativo (su Pr es 0,278). Es por ésta razón que preferimos el modelo log-log cuyos coeficientes sí son significativos poseyendo un coeficiente de determinación de 0,8127.

9.1 Diagrama de dispersión sobre log-log

Desplegamos una curva suavizada por loess en el diagrama de dispersión.

scatter.smooth(x=log(h_y_m_comuna_corr_01$Freq.x), y=log(h_y_m_comuna_corr_01$multi_pob), lpars = list(col = "red", lwd = 2, lty = 1), main="multi_pob ~ Freq.x")

9.2 Modelo log-log

Observemos nuevamente el resultado sobre log-log.

linearMod <- lm(log( multi_pob)~log(Freq.x) , data=h_y_m_comuna_corr_01)
summary(linearMod) 
## 
## Call:
## lm(formula = log(multi_pob) ~ log(Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -2.62580 -0.59510  0.03644  0.59261  2.96969 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 15.84389    0.04071  389.17   <2e-16 ***
## log(Freq.x)  0.96276    0.01320   72.92   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.8554 on 1224 degrees of freedom
## Multiple R-squared:  0.8129, Adjusted R-squared:  0.8127 
## F-statistic:  5318 on 1 and 1224 DF,  p-value: < 2.2e-16
ggplot(h_y_m_comuna_corr_01, aes(x = log(Freq.x) , y = log(multi_pob))) + 
  geom_point() +
  stat_smooth(method = "lm", col = "red")

9.3 Análisis de residuos

par(mfrow = c (2,2))
plot(linearMod)

9.4 Ecuación del modelo


\[ \hat Y = e^{15.84389+0.96276 \cdot ln{X}} \]


10 Aplicación la regresión a los valores de la variable a nivel de zona

Esta nueva variable se llamará: est_ing

h_y_m_comuna_corr_01$est_ing <- exp(15.84389+0.96276 * log(h_y_m_comuna_corr_01$Freq.x))




r3_100 <- h_y_m_comuna_corr_01[c(1:100),]
kbl(r3_100) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
zona código.x Freq.x anio comuna.x promedio_i año comuna.y personas Ingresos_expandidos Freq.y p_poblacional código.y multi_pob est_ing
8101011001 08101 132 2017 Concepción 300580.8 2017 8101 223574 67202053112 1455 0.0065079 08101 437345073 836599801
8101021001 08101 120 2017 Concepción 300580.8 2017 8101 223574 67202053112 1516 0.0067808 08101 455680502 763249512
8101021002 08101 337 2017 Concepción 300580.8 2017 8101 223574 67202053112 1874 0.0083820 08101 563288430 2062599757
8101021003 08101 137 2017 Concepción 300580.8 2017 8101 223574 67202053112 1349 0.0060338 08101 405483507 867087833
8101031001 08101 221 2017 Concepción 300580.8 2017 8101 223574 67202053112 2590 0.0115845 08101 778504287 1374045469
8101041001 08101 86 2017 Concepción 300580.8 2017 8101 223574 67202053112 1373 0.0061411 08101 412697447 553823944
8101051001 08101 46 2017 Concepción 300580.8 2017 8101 223574 67202053112 1825 0.0081628 08101 548559971 303215033
8101051002 08101 79 2017 Concepción 300580.8 2017 8101 223574 67202053112 2383 0.0106587 08101 716284061 510356273
8101051003 08101 115 2017 Concepción 300580.8 2017 8101 223574 67202053112 2945 0.0131724 08101 885210474 732607654
8101061001 08101 217 2017 Concepción 300580.8 2017 8101 223574 67202053112 2976 0.0133110 08101 894528479 1350093891
8101071001 08101 68 2017 Concepción 300580.8 2017 8101 223574 67202053112 1523 0.0068121 08101 457784567 441753785
8101071002 08101 111 2017 Concepción 300580.8 2017 8101 223574 67202053112 2187 0.0097820 08101 657370223 708058515
8101081001 08101 49 2017 Concepción 300580.8 2017 8101 223574 67202053112 1852 0.0082836 08101 556675653 322230895
8101081002 08101 8 2017 Concepción 300580.8 2017 8101 223574 67202053112 836 0.0037393 08101 251285554 56282440
8101081003 08101 85 2017 Concepción 300580.8 2017 8101 223574 67202053112 2570 0.0114951 08101 772492671 547622601
8101081004 08101 81 2017 Concepción 300580.8 2017 8101 223574 67202053112 1420 0.0063514 08101 426824744 522789716
8101081005 08101 52 2017 Concepción 300580.8 2017 8101 223574 67202053112 3105 0.0138880 08101 933303403 341203422
8101091001 08101 318 2017 Concepción 300580.8 2017 8101 223574 67202053112 3351 0.0149883 08101 1007246281 1950521460
8101101001 08101 187 2017 Concepción 300580.8 2017 8101 223574 67202053112 1345 0.0060159 08101 404281184 1169909383
8101101002 08101 322 2017 Concepción 300580.8 2017 8101 223574 67202053112 4045 0.0180924 08101 1215849360 1974137135
8101101003 08101 71 2017 Concepción 300580.8 2017 8101 223574 67202053112 2968 0.0132752 08101 892123832 460501964
8101101004 08101 48 2017 Concepción 300580.8 2017 8101 223574 67202053112 2134 0.0095449 08101 641439440 315897226
8101111001 08101 222 2017 Concepción 300580.8 2017 8101 223574 67202053112 3916 0.0175155 08101 1177074436 1380030830
8101121001 08101 218 2017 Concepción 300580.8 2017 8101 223574 67202053112 2733 0.0122241 08101 821487343 1356083315
8101131001 08101 360 2017 Concepción 300580.8 2017 8101 223574 67202053112 3498 0.0156458 08101 1051431659 2197960050
8101141001 08101 98 2017 Concepción 300580.8 2017 8101 223574 67202053112 2701 0.0120810 08101 811868757 628039292
8101151001 08101 47 2017 Concepción 300580.8 2017 8101 223574 67202053112 2271 0.0101577 08101 682619010 309558642
8101151002 08101 32 2017 Concepción 300580.8 2017 8101 223574 67202053112 2231 0.0099788 08101 670595778 213802211
8101151003 08101 70 2017 Concepción 300580.8 2017 8101 223574 67202053112 3075 0.0137538 08101 924285978 454255912
8101151004 08101 36 2017 Concepción 300580.8 2017 8101 223574 67202053112 1854 0.0082926 08101 557276814 239474786
8101151005 08101 49 2017 Concepción 300580.8 2017 8101 223574 67202053112 2355 0.0105334 08101 707867798 322230895
8101151006 08101 43 2017 Concepción 300580.8 2017 8101 223574 67202053112 2089 0.0093437 08101 627913304 284152898
8101161001 08101 508 2017 Concepción 300580.8 2017 8101 223574 67202053112 3863 0.0172784 08101 1161143653 3062043433
8101161002 08101 97 2017 Concepción 300580.8 2017 8101 223574 67202053112 3464 0.0154938 08101 1041211912 621868207
8101161003 08101 57 2017 Concepción 300580.8 2017 8101 223574 67202053112 3640 0.0162810 08101 1094114134 372734914
8101161004 08101 148 2017 Concepción 300580.8 2017 8101 223574 67202053112 3612 0.0161557 08101 1085697871 934017833
8101161005 08101 173 2017 Concepción 300580.8 2017 8101 223574 67202053112 4756 0.0212726 08101 1429562313 1085463602
8101161006 08101 448 2017 Concepción 300580.8 2017 8101 223574 67202053112 3401 0.0152120 08101 1022275321 2713053886
8101161007 08101 47 2017 Concepción 300580.8 2017 8101 223574 67202053112 2944 0.0131679 08101 884909893 309558642
8101161008 08101 483 2017 Concepción 300580.8 2017 8101 223574 67202053112 5013 0.0224221 08101 1506811580 2916828794
8101161009 08101 475 2017 Concepción 300580.8 2017 8101 223574 67202053112 3072 0.0137404 08101 923384236 2870301636
8101161010 08101 531 2017 Concepción 300580.8 2017 8101 223574 67202053112 2380 0.0106452 08101 715382318 3195405659
8101161011 08101 57 2017 Concepción 300580.8 2017 8101 223574 67202053112 2320 0.0103769 08101 697347470 372734914
8101161012 08101 820 2017 Concepción 300580.8 2017 8101 223574 67202053112 3886 0.0173813 08101 1168057012 4855315138
8101161013 08101 406 2017 Concepción 300580.8 2017 8101 223574 67202053112 2922 0.0130695 08101 878297115 2467735013
8101161014 08101 554 2017 Concepción 300580.8 2017 8101 223574 67202053112 3814 0.0170592 08101 1146415194 3328552873
8101171001 08101 210 2017 Concepción 300580.8 2017 8101 223574 67202053112 3284 0.0146886 08101 987107367 1308138860
8101171002 08101 121 2017 Concepción 300580.8 2017 8101 223574 67202053112 3682 0.0164688 08101 1106738528 769372115
8101171003 08101 57 2017 Concepción 300580.8 2017 8101 223574 67202053112 1315 0.0058817 08101 395263760 372734914
8101181001 08101 229 2017 Concepción 300580.8 2017 8101 223574 67202053112 4508 0.0201633 08101 1355018273 1421900503
8101191001 08101 208 2017 Concepción 300580.8 2017 8101 223574 67202053112 1629 0.0072862 08101 489646133 1296142214
8101191002 08101 157 2017 Concepción 300580.8 2017 8101 223574 67202053112 3336 0.0149212 08101 1002737569 988640388
8101201001 08101 286 2017 Concepción 300580.8 2017 8101 223574 67202053112 3154 0.0141072 08101 948031862 1761184931
8101211001 08101 383 2017 Concepción 300580.8 2017 8101 223574 67202053112 4901 0.0219212 08101 1473146530 2332998451
8101221001 08101 197 2017 Concepción 300580.8 2017 8101 223574 67202053112 2688 0.0120229 08101 807961206 1230082678
8101221002 08101 122 2017 Concepción 300580.8 2017 8101 223574 67202053112 1855 0.0082970 08101 557577395 775492835
8101231001 08101 185 2017 Concepción 300580.8 2017 8101 223574 67202053112 2503 0.0111954 08101 752353757 1157860537
8101241001 08101 97 2017 Concepción 300580.8 2017 8101 223574 67202053112 2763 0.0123583 08101 830504767 621868207
8101241002 08101 156 2017 Concepción 300580.8 2017 8101 223574 67202053112 1864 0.0083373 08101 560282622 982577098
8101241003 08101 252 2017 Concepción 300580.8 2017 8101 223574 67202053112 1888 0.0084446 08101 567496562 1559144559
8101251001 08101 520 2017 Concepción 300580.8 2017 8101 223574 67202053112 3790 0.0169519 08101 1139201255 3131651151
8101251002 08101 43 2017 Concepción 300580.8 2017 8101 223574 67202053112 3121 0.0139596 08101 938112695 284152898
8101251003 08101 131 2017 Concepción 300580.8 2017 8101 223574 67202053112 4587 0.0205167 08101 1378764157 830497083
8101251004 08101 45 2017 Concepción 300580.8 2017 8101 223574 67202053112 2288 0.0102337 08101 687728884 296866286
8101251005 08101 166 2017 Concepción 300580.8 2017 8101 223574 67202053112 4334 0.0193851 08101 1302717213 1043146395
8101252025 08101 6 2017 Concepción 300580.8 2017 8101 223574 67202053112 60 0.0002684 08101 18034848 42666488
8101261001 08101 53 2017 Concepción 300580.8 2017 8101 223574 67202053112 1200 0.0053674 08101 360696967 347518425
8101261002 08101 67 2017 Concepción 300580.8 2017 8101 223574 67202053112 2084 0.0093213 08101 626410400 435497610
8101261003 08101 29 2017 Concepción 300580.8 2017 8101 223574 67202053112 2696 0.0120586 08101 810365853 194469857
8101271001 08101 84 2017 Concepción 300580.8 2017 8101 223574 67202053112 2727 0.0121973 08101 819683858 541418541
8101281001 08101 233 2017 Concepción 300580.8 2017 8101 223574 67202053112 3513 0.0157129 08101 1055940371 1445804544
8101281002 08101 142 2017 Concepción 300580.8 2017 8101 223574 67202053112 3737 0.0167148 08101 1123270472 897534446
8101282901 08101 3 2017 Concepción 300580.8 2017 8101 223574 67202053112 31 0.0001387 08101 9318005 21891084
8101292012 08101 4 2017 Concepción 300580.8 2017 8101 223574 67202053112 86 0.0003847 08101 25849949 28877080
8101292020 08101 3 2017 Concepción 300580.8 2017 8101 223574 67202053112 61 0.0002728 08101 18335429 21891084
8101292901 08101 2 2017 Concepción 300580.8 2017 8101 223574 67202053112 21 0.0000939 08101 6312197 14816091
8101302001 08101 8 2017 Concepción 300580.8 2017 8101 223574 67202053112 280 0.0012524 08101 84162626 56282440
8101302005 08101 10 2017 Concepción 300580.8 2017 8101 223574 67202053112 688 0.0030773 08101 206799595 69770848
8101302008 08101 3 2017 Concepción 300580.8 2017 8101 223574 67202053112 98 0.0004383 08101 29456919 21891084
8101302011 08101 3 2017 Concepción 300580.8 2017 8101 223574 67202053112 469 0.0020977 08101 140972398 21891084
8101302019 08101 1 2017 Concepción 300580.8 2017 8101 223574 67202053112 198 0.0008856 08101 59515000 7601757
8101302021 08101 12 2017 Concepción 300580.8 2017 8101 223574 67202053112 401 0.0017936 08101 120532903 83158479
8101302024 08101 1 2017 Concepción 300580.8 2017 8101 223574 67202053112 88 0.0003936 08101 26451111 7601757
8101302901 08101 2 2017 Concepción 300580.8 2017 8101 223574 67202053112 16 0.0000716 08101 4809293 14816091
8101312004 08101 6 2017 Concepción 300580.8 2017 8101 223574 67202053112 63 0.0002818 08101 18936591 42666488
8101312013 08101 16 2017 Concepción 300580.8 2017 8101 223574 67202053112 1045 0.0046741 08101 314106942 109696445
8101312014 08101 30 2017 Concepción 300580.8 2017 8101 223574 67202053112 534 0.0023885 08101 160510150 200921892
8101312017 08101 2 2017 Concepción 300580.8 2017 8101 223574 67202053112 47 0.0002102 08101 14127298 14816091
8101321001 08101 375 2017 Concepción 300580.8 2017 8101 223574 67202053112 4131 0.0184771 08101 1241699309 2286063777
8101321002 08101 226 2017 Concepción 300580.8 2017 8101 223574 67202053112 4089 0.0182892 08101 1229074916 1403962280
8101321003 08101 142 2017 Concepción 300580.8 2017 8101 223574 67202053112 2991 0.0133781 08101 899037191 897534446
8101321004 08101 180 2017 Concepción 300580.8 2017 8101 223574 67202053112 5956 0.0266399 08101 1790259280 1127717074
8101321005 08101 171 2017 Concepción 300580.8 2017 8101 223574 67202053112 3491 0.0156145 08101 1049327594 1073379593
8101322025 08101 2 2017 Concepción 300580.8 2017 8101 223574 67202053112 100 0.0004473 08101 30058081 14816091
8101991999 08101 21 2017 Concepción 300580.8 2017 8101 223574 67202053112 1520 0.0067986 08101 456882825 142525918
8102011001 08102 21 2017 Coronel 267083.0 2017 8102 116262 31051609340 231 0.0019869 08102 61696184 142525918
8102011002 08102 60 2017 Coronel 267083.0 2017 8102 116262 31051609340 2650 0.0227933 08102 707770078 391603799
8102021001 08102 187 2017 Coronel 267083.0 2017 8102 116262 31051609340 4404 0.0378800 08102 1176233744 1169909383
8102021002 08102 96 2017 Coronel 267083.0 2017 8102 116262 31051609340 2895 0.0249007 08102 773205424 615694751
8102021003 08102 192 2017 Coronel 267083.0 2017 8102 116262 31051609340 4041 0.0347577 08102 1079282597 1200010621


11 División del valor estimado entre la población total de la zona para obtener el ingreso medio por zona


\[ Ingreso \_ Medio\_zona = est\_ing / (personas * p\_poblacional) \]


h_y_m_comuna_corr_01$ing_medio_zona <- h_y_m_comuna_corr_01$est_ing  /( h_y_m_comuna_corr_01$personas  * h_y_m_comuna_corr_01$p_poblacional)

r3_100 <- h_y_m_comuna_corr_01[c(1:100),]
kbl(r3_100) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
zona código.x Freq.x anio comuna.x promedio_i año comuna.y personas Ingresos_expandidos Freq.y p_poblacional código.y multi_pob est_ing ing_medio_zona
8101011001 08101 132 2017 Concepción 300580.8 2017 8101 223574 67202053112 1455 0.0065079 08101 437345073 836599801 574982.68
8101021001 08101 120 2017 Concepción 300580.8 2017 8101 223574 67202053112 1516 0.0067808 08101 455680502 763249512 503462.74
8101021002 08101 337 2017 Concepción 300580.8 2017 8101 223574 67202053112 1874 0.0083820 08101 563288430 2062599757 1100640.21
8101021003 08101 137 2017 Concepción 300580.8 2017 8101 223574 67202053112 1349 0.0060338 08101 405483507 867087833 642763.40
8101031001 08101 221 2017 Concepción 300580.8 2017 8101 223574 67202053112 2590 0.0115845 08101 778504287 1374045469 530519.49
8101041001 08101 86 2017 Concepción 300580.8 2017 8101 223574 67202053112 1373 0.0061411 08101 412697447 553823944 403367.77
8101051001 08101 46 2017 Concepción 300580.8 2017 8101 223574 67202053112 1825 0.0081628 08101 548559971 303215033 166145.22
8101051002 08101 79 2017 Concepción 300580.8 2017 8101 223574 67202053112 2383 0.0106587 08101 716284061 510356273 214165.45
8101051003 08101 115 2017 Concepción 300580.8 2017 8101 223574 67202053112 2945 0.0131724 08101 885210474 732607654 248763.21
8101061001 08101 217 2017 Concepción 300580.8 2017 8101 223574 67202053112 2976 0.0133110 08101 894528479 1350093891 453660.58
8101071001 08101 68 2017 Concepción 300580.8 2017 8101 223574 67202053112 1523 0.0068121 08101 457784567 441753785 290055.01
8101071002 08101 111 2017 Concepción 300580.8 2017 8101 223574 67202053112 2187 0.0097820 08101 657370223 708058515 323757.89
8101081001 08101 49 2017 Concepción 300580.8 2017 8101 223574 67202053112 1852 0.0082836 08101 556675653 322230895 173990.76
8101081002 08101 8 2017 Concepción 300580.8 2017 8101 223574 67202053112 836 0.0037393 08101 251285554 56282440 67323.49
8101081003 08101 85 2017 Concepción 300580.8 2017 8101 223574 67202053112 2570 0.0114951 08101 772492671 547622601 213082.72
8101081004 08101 81 2017 Concepción 300580.8 2017 8101 223574 67202053112 1420 0.0063514 08101 426824744 522789716 368161.77
8101081005 08101 52 2017 Concepción 300580.8 2017 8101 223574 67202053112 3105 0.0138880 08101 933303403 341203422 109888.38
8101091001 08101 318 2017 Concepción 300580.8 2017 8101 223574 67202053112 3351 0.0149883 08101 1007246281 1950521460 582071.46
8101101001 08101 187 2017 Concepción 300580.8 2017 8101 223574 67202053112 1345 0.0060159 08101 404281184 1169909383 869821.10
8101101002 08101 322 2017 Concepción 300580.8 2017 8101 223574 67202053112 4045 0.0180924 08101 1215849360 1974137135 488043.79
8101101003 08101 71 2017 Concepción 300580.8 2017 8101 223574 67202053112 2968 0.0132752 08101 892123832 460501964 155155.65
8101101004 08101 48 2017 Concepción 300580.8 2017 8101 223574 67202053112 2134 0.0095449 08101 641439440 315897226 148030.57
8101111001 08101 222 2017 Concepción 300580.8 2017 8101 223574 67202053112 3916 0.0175155 08101 1177074436 1380030830 352408.28
8101121001 08101 218 2017 Concepción 300580.8 2017 8101 223574 67202053112 2733 0.0122241 08101 821487343 1356083315 496188.55
8101131001 08101 360 2017 Concepción 300580.8 2017 8101 223574 67202053112 3498 0.0156458 08101 1051431659 2197960050 628347.64
8101141001 08101 98 2017 Concepción 300580.8 2017 8101 223574 67202053112 2701 0.0120810 08101 811868757 628039292 232521.03
8101151001 08101 47 2017 Concepción 300580.8 2017 8101 223574 67202053112 2271 0.0101577 08101 682619010 309558642 136309.40
8101151002 08101 32 2017 Concepción 300580.8 2017 8101 223574 67202053112 2231 0.0099788 08101 670595778 213802211 95832.46
8101151003 08101 70 2017 Concepción 300580.8 2017 8101 223574 67202053112 3075 0.0137538 08101 924285978 454255912 147725.50
8101151004 08101 36 2017 Concepción 300580.8 2017 8101 223574 67202053112 1854 0.0082926 08101 557276814 239474786 129166.55
8101151005 08101 49 2017 Concepción 300580.8 2017 8101 223574 67202053112 2355 0.0105334 08101 707867798 322230895 136828.41
8101151006 08101 43 2017 Concepción 300580.8 2017 8101 223574 67202053112 2089 0.0093437 08101 627913304 284152898 136023.41
8101161001 08101 508 2017 Concepción 300580.8 2017 8101 223574 67202053112 3863 0.0172784 08101 1161143653 3062043433 792659.44
8101161002 08101 97 2017 Concepción 300580.8 2017 8101 223574 67202053112 3464 0.0154938 08101 1041211912 621868207 179523.15
8101161003 08101 57 2017 Concepción 300580.8 2017 8101 223574 67202053112 3640 0.0162810 08101 1094114134 372734914 102399.70
8101161004 08101 148 2017 Concepción 300580.8 2017 8101 223574 67202053112 3612 0.0161557 08101 1085697871 934017833 258587.44
8101161005 08101 173 2017 Concepción 300580.8 2017 8101 223574 67202053112 4756 0.0212726 08101 1429562313 1085463602 228230.36
8101161006 08101 448 2017 Concepción 300580.8 2017 8101 223574 67202053112 3401 0.0152120 08101 1022275321 2713053886 797722.40
8101161007 08101 47 2017 Concepción 300580.8 2017 8101 223574 67202053112 2944 0.0131679 08101 884909893 309558642 105149.00
8101161008 08101 483 2017 Concepción 300580.8 2017 8101 223574 67202053112 5013 0.0224221 08101 1506811580 2916828794 581852.94
8101161009 08101 475 2017 Concepción 300580.8 2017 8101 223574 67202053112 3072 0.0137404 08101 923384236 2870301636 934342.98
8101161010 08101 531 2017 Concepción 300580.8 2017 8101 223574 67202053112 2380 0.0106452 08101 715382318 3195405659 1342607.42
8101161011 08101 57 2017 Concepción 300580.8 2017 8101 223574 67202053112 2320 0.0103769 08101 697347470 372734914 160661.60
8101161012 08101 820 2017 Concepción 300580.8 2017 8101 223574 67202053112 3886 0.0173813 08101 1168057012 4855315138 1249437.76
8101161013 08101 406 2017 Concepción 300580.8 2017 8101 223574 67202053112 2922 0.0130695 08101 878297115 2467735013 844536.28
8101161014 08101 554 2017 Concepción 300580.8 2017 8101 223574 67202053112 3814 0.0170592 08101 1146415194 3328552873 872719.68
8101171001 08101 210 2017 Concepción 300580.8 2017 8101 223574 67202053112 3284 0.0146886 08101 987107367 1308138860 398337.05
8101171002 08101 121 2017 Concepción 300580.8 2017 8101 223574 67202053112 3682 0.0164688 08101 1106738528 769372115 208954.95
8101171003 08101 57 2017 Concepción 300580.8 2017 8101 223574 67202053112 1315 0.0058817 08101 395263760 372734914 283448.60
8101181001 08101 229 2017 Concepción 300580.8 2017 8101 223574 67202053112 4508 0.0201633 08101 1355018273 1421900503 315417.15
8101191001 08101 208 2017 Concepción 300580.8 2017 8101 223574 67202053112 1629 0.0072862 08101 489646133 1296142214 795667.41
8101191002 08101 157 2017 Concepción 300580.8 2017 8101 223574 67202053112 3336 0.0149212 08101 1002737569 988640388 296355.03
8101201001 08101 286 2017 Concepción 300580.8 2017 8101 223574 67202053112 3154 0.0141072 08101 948031862 1761184931 558397.25
8101211001 08101 383 2017 Concepción 300580.8 2017 8101 223574 67202053112 4901 0.0219212 08101 1473146530 2332998451 476024.98
8101221001 08101 197 2017 Concepción 300580.8 2017 8101 223574 67202053112 2688 0.0120229 08101 807961206 1230082678 457620.04
8101221002 08101 122 2017 Concepción 300580.8 2017 8101 223574 67202053112 1855 0.0082970 08101 557577395 775492835 418055.44
8101231001 08101 185 2017 Concepción 300580.8 2017 8101 223574 67202053112 2503 0.0111954 08101 752353757 1157860537 462589.11
8101241001 08101 97 2017 Concepción 300580.8 2017 8101 223574 67202053112 2763 0.0123583 08101 830504767 621868207 225069.93
8101241002 08101 156 2017 Concepción 300580.8 2017 8101 223574 67202053112 1864 0.0083373 08101 560282622 982577098 527133.64
8101241003 08101 252 2017 Concepción 300580.8 2017 8101 223574 67202053112 1888 0.0084446 08101 567496562 1559144559 825818.09
8101251001 08101 520 2017 Concepción 300580.8 2017 8101 223574 67202053112 3790 0.0169519 08101 1139201255 3131651151 826293.18
8101251002 08101 43 2017 Concepción 300580.8 2017 8101 223574 67202053112 3121 0.0139596 08101 938112695 284152898 91045.47
8101251003 08101 131 2017 Concepción 300580.8 2017 8101 223574 67202053112 4587 0.0205167 08101 1378764157 830497083 181054.52
8101251004 08101 45 2017 Concepción 300580.8 2017 8101 223574 67202053112 2288 0.0102337 08101 687728884 296866286 129749.25
8101251005 08101 166 2017 Concepción 300580.8 2017 8101 223574 67202053112 4334 0.0193851 08101 1302717213 1043146395 240689.06
8101252025 08101 6 2017 Concepción 300580.8 2017 8101 223574 67202053112 60 0.0002684 08101 18034848 42666488 711108.13
8101261001 08101 53 2017 Concepción 300580.8 2017 8101 223574 67202053112 1200 0.0053674 08101 360696967 347518425 289598.69
8101261002 08101 67 2017 Concepción 300580.8 2017 8101 223574 67202053112 2084 0.0093213 08101 626410400 435497610 208971.98
8101261003 08101 29 2017 Concepción 300580.8 2017 8101 223574 67202053112 2696 0.0120586 08101 810365853 194469857 72132.74
8101271001 08101 84 2017 Concepción 300580.8 2017 8101 223574 67202053112 2727 0.0121973 08101 819683858 541418541 198539.99
8101281001 08101 233 2017 Concepción 300580.8 2017 8101 223574 67202053112 3513 0.0157129 08101 1055940371 1445804544 411558.37
8101281002 08101 142 2017 Concepción 300580.8 2017 8101 223574 67202053112 3737 0.0167148 08101 1123270472 897534446 240175.13
8101282901 08101 3 2017 Concepción 300580.8 2017 8101 223574 67202053112 31 0.0001387 08101 9318005 21891084 706163.98
8101292012 08101 4 2017 Concepción 300580.8 2017 8101 223574 67202053112 86 0.0003847 08101 25849949 28877080 335780.00
8101292020 08101 3 2017 Concepción 300580.8 2017 8101 223574 67202053112 61 0.0002728 08101 18335429 21891084 358870.22
8101292901 08101 2 2017 Concepción 300580.8 2017 8101 223574 67202053112 21 0.0000939 08101 6312197 14816091 705528.14
8101302001 08101 8 2017 Concepción 300580.8 2017 8101 223574 67202053112 280 0.0012524 08101 84162626 56282440 201008.71
8101302005 08101 10 2017 Concepción 300580.8 2017 8101 223574 67202053112 688 0.0030773 08101 206799595 69770848 101411.12
8101302008 08101 3 2017 Concepción 300580.8 2017 8101 223574 67202053112 98 0.0004383 08101 29456919 21891084 223378.40
8101302011 08101 3 2017 Concepción 300580.8 2017 8101 223574 67202053112 469 0.0020977 08101 140972398 21891084 46676.08
8101302019 08101 1 2017 Concepción 300580.8 2017 8101 223574 67202053112 198 0.0008856 08101 59515000 7601757 38392.71
8101302021 08101 12 2017 Concepción 300580.8 2017 8101 223574 67202053112 401 0.0017936 08101 120532903 83158479 207377.75
8101302024 08101 1 2017 Concepción 300580.8 2017 8101 223574 67202053112 88 0.0003936 08101 26451111 7601757 86383.61
8101302901 08101 2 2017 Concepción 300580.8 2017 8101 223574 67202053112 16 0.0000716 08101 4809293 14816091 926005.69
8101312004 08101 6 2017 Concepción 300580.8 2017 8101 223574 67202053112 63 0.0002818 08101 18936591 42666488 677245.84
8101312013 08101 16 2017 Concepción 300580.8 2017 8101 223574 67202053112 1045 0.0046741 08101 314106942 109696445 104972.67
8101312014 08101 30 2017 Concepción 300580.8 2017 8101 223574 67202053112 534 0.0023885 08101 160510150 200921892 376258.22
8101312017 08101 2 2017 Concepción 300580.8 2017 8101 223574 67202053112 47 0.0002102 08101 14127298 14816091 315235.98
8101321001 08101 375 2017 Concepción 300580.8 2017 8101 223574 67202053112 4131 0.0184771 08101 1241699309 2286063777 553392.34
8101321002 08101 226 2017 Concepción 300580.8 2017 8101 223574 67202053112 4089 0.0182892 08101 1229074916 1403962280 343351.01
8101321003 08101 142 2017 Concepción 300580.8 2017 8101 223574 67202053112 2991 0.0133781 08101 899037191 897534446 300078.38
8101321004 08101 180 2017 Concepción 300580.8 2017 8101 223574 67202053112 5956 0.0266399 08101 1790259280 1127717074 189341.35
8101321005 08101 171 2017 Concepción 300580.8 2017 8101 223574 67202053112 3491 0.0156145 08101 1049327594 1073379593 307470.52
8101322025 08101 2 2017 Concepción 300580.8 2017 8101 223574 67202053112 100 0.0004473 08101 30058081 14816091 148160.91
8101991999 08101 21 2017 Concepción 300580.8 2017 8101 223574 67202053112 1520 0.0067986 08101 456882825 142525918 93767.05
8102011001 08102 21 2017 Coronel 267083.0 2017 8102 116262 31051609340 231 0.0019869 08102 61696184 142525918 616995.32
8102011002 08102 60 2017 Coronel 267083.0 2017 8102 116262 31051609340 2650 0.0227933 08102 707770078 391603799 147775.02
8102021001 08102 187 2017 Coronel 267083.0 2017 8102 116262 31051609340 4404 0.0378800 08102 1176233744 1169909383 265647.00
8102021002 08102 96 2017 Coronel 267083.0 2017 8102 116262 31051609340 2895 0.0249007 08102 773205424 615694751 212675.22
8102021003 08102 192 2017 Coronel 267083.0 2017 8102 116262 31051609340 4041 0.0347577 08102 1079282597 1200010621 296958.83


Guardamos:

saveRDS(h_y_m_comuna_corr_01, "casen_censo_region_08.rds")