1 Variable CENSO

Necesitamos calcular las frecuencias a nivel censal de las respuestas correspondientes a la categoría: “Parquet, piso flotante, cerámico, madera, alfombra, flexit, cubrepiso u otro similar, sobre radier o vigas de madera” del campo P03C 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 Censo 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)

Hagamos un subset con la 1:

tabla_con_clave <- filter(tabla_con_clave, tabla_con_clave$REGION == 2) 
tabla_con_clave <- filter(tabla_con_clave, tabla_con_clave$AREA== 1)

1.2 Cálculo de frecuencias

tabla_con_clave_f <- tabla_con_clave[,-c(1,2,4,5,6,7,8,9,10,11,12,14,15,16,17,18,19,20),drop=FALSE]

aterial de construcción del piso

names(tabla_con_clave_f)[2] <- "Tipo de piso"
# Ahora filtramos por Tipo de techo = 1.
tabla_con_clave_ff <- filter(tabla_con_clave_f, tabla_con_clave_f$`Tipo de piso` == 1)
# Determinamos las frecuencias por zona:
b <- tabla_con_clave_ff$clave
c <- tabla_con_clave_ff$`Tipo de piso`
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 2101011001 1 2101 1120 2017
2 2101011002 1 2101 1012 2017
3 2101011003 1 2101 1613 2017
4 2101011004 1 2101 1380 2017
5 2101011005 1 2101 654 2017
6 2101011006 1 2101 304 2017
7 2101011008 1 2101 1502 2017
8 2101011009 1 2101 1496 2017
9 2101011010 1 2101 996 2017
10 2101011011 1 2101 659 2017
11 2101011012 1 2101 1126 2017
12 2101011013 1 2101 862 2017
13 2101011014 1 2101 1714 2017
14 2101011015 1 2101 806 2017
15 2101011016 1 2101 268 2017
16 2101011017 1 2101 1387 2017
17 2101011018 1 2101 1265 2017
18 2101011019 1 2101 400 2017
19 2101011020 1 2101 809 2017
20 2101011021 1 2101 811 2017
21 2101011022 1 2101 616 2017
22 2101021001 1 2101 840 2017
23 2101021002 1 2101 956 2017
24 2101021003 1 2101 512 2017
25 2101021004 1 2101 992 2017
26 2101021005 1 2101 1009 2017
27 2101031001 1 2101 1153 2017
28 2101031002 1 2101 751 2017
29 2101031003 1 2101 576 2017
30 2101031004 1 2101 842 2017
31 2101031005 1 2101 871 2017
32 2101031006 1 2101 956 2017
33 2101041001 1 2101 1039 2017
34 2101041002 1 2101 938 2017
35 2101041003 1 2101 508 2017
36 2101041004 1 2101 540 2017
37 2101041005 1 2101 885 2017
38 2101051001 1 2101 932 2017
39 2101051002 1 2101 882 2017
40 2101051003 1 2101 944 2017
41 2101061001 1 2101 1201 2017
42 2101061002 1 2101 948 2017
43 2101061003 1 2101 906 2017
44 2101071001 1 2101 1135 2017
45 2101071002 1 2101 594 2017
46 2101071003 1 2101 1428 2017
47 2101071004 1 2101 1031 2017
48 2101071005 1 2101 635 2017
49 2101081001 1 2101 1013 2017
50 2101081002 1 2101 1216 2017
51 2101081003 1 2101 1249 2017
52 2101081004 1 2101 918 2017
53 2101091001 1 2101 850 2017
54 2101091002 1 2101 1180 2017
55 2101091003 1 2101 1117 2017
56 2101091004 1 2101 1293 2017
57 2101091005 1 2101 967 2017
58 2101091006 1 2101 1667 2017
59 2101091007 1 2101 597 2017
60 2101091008 1 2101 895 2017
61 2101091009 1 2101 589 2017
62 2101091010 1 2101 765 2017
63 2101101001 1 2101 1092 2017
64 2101101002 1 2101 483 2017
65 2101101003 1 2101 840 2017
66 2101141001 1 2101 1666 2017
67 2101141002 1 2101 1344 2017
68 2101141003 1 2101 694 2017
69 2101141004 1 2101 1178 2017
70 2101141005 1 2101 919 2017
71 2101141006 1 2101 1447 2017
72 2101141007 1 2101 621 2017
73 2101141008 1 2101 775 2017
74 2101141009 1 2101 934 2017
75 2101151001 1 2101 734 2017
76 2101151002 1 2101 826 2017
77 2101151003 1 2101 716 2017
78 2101151004 1 2101 1693 2017
79 2101161001 1 2101 874 2017
80 2101161002 1 2101 682 2017
81 2101161003 1 2101 373 2017
82 2101161004 1 2101 596 2017
83 2101161005 1 2101 1199 2017
84 2101171001 1 2101 440 2017
85 2101171002 1 2101 885 2017
86 2101171003 1 2101 972 2017
87 2101171004 1 2101 1059 2017
88 2101181001 1 2101 1374 2017
89 2101181002 1 2101 1309 2017
90 2101181003 1 2101 898 2017
91 2101181004 1 2101 810 2017
92 2101991999 1 2101 623 2017
248 2102011001 1 2102 882 2017
249 2102011002 1 2102 1517 2017
250 2102991999 1 2102 21 2017
406 2104011001 1 2104 559 2017
407 2104021001 1 2104 543 2017
408 2104031001 1 2104 1460 2017
409 2104991999 1 2104 41 2017
565 2201011001 1 2201 959 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 2101011001 1120 2017 02101
2 2101011002 1012 2017 02101
3 2101011003 1613 2017 02101
4 2101011004 1380 2017 02101
5 2101011005 654 2017 02101
6 2101011006 304 2017 02101
7 2101011008 1502 2017 02101
8 2101011009 1496 2017 02101
9 2101011010 996 2017 02101
10 2101011011 659 2017 02101
11 2101011012 1126 2017 02101
12 2101011013 862 2017 02101
13 2101011014 1714 2017 02101
14 2101011015 806 2017 02101
15 2101011016 268 2017 02101
16 2101011017 1387 2017 02101
17 2101011018 1265 2017 02101
18 2101011019 400 2017 02101
19 2101011020 809 2017 02101
20 2101011021 811 2017 02101
21 2101011022 616 2017 02101
22 2101021001 840 2017 02101
23 2101021002 956 2017 02101
24 2101021003 512 2017 02101
25 2101021004 992 2017 02101
26 2101021005 1009 2017 02101
27 2101031001 1153 2017 02101
28 2101031002 751 2017 02101
29 2101031003 576 2017 02101
30 2101031004 842 2017 02101
31 2101031005 871 2017 02101
32 2101031006 956 2017 02101
33 2101041001 1039 2017 02101
34 2101041002 938 2017 02101
35 2101041003 508 2017 02101
36 2101041004 540 2017 02101
37 2101041005 885 2017 02101
38 2101051001 932 2017 02101
39 2101051002 882 2017 02101
40 2101051003 944 2017 02101
41 2101061001 1201 2017 02101
42 2101061002 948 2017 02101
43 2101061003 906 2017 02101
44 2101071001 1135 2017 02101
45 2101071002 594 2017 02101
46 2101071003 1428 2017 02101
47 2101071004 1031 2017 02101
48 2101071005 635 2017 02101
49 2101081001 1013 2017 02101
50 2101081002 1216 2017 02101
51 2101081003 1249 2017 02101
52 2101081004 918 2017 02101
53 2101091001 850 2017 02101
54 2101091002 1180 2017 02101
55 2101091003 1117 2017 02101
56 2101091004 1293 2017 02101
57 2101091005 967 2017 02101
58 2101091006 1667 2017 02101
59 2101091007 597 2017 02101
60 2101091008 895 2017 02101
61 2101091009 589 2017 02101
62 2101091010 765 2017 02101
63 2101101001 1092 2017 02101
64 2101101002 483 2017 02101
65 2101101003 840 2017 02101
66 2101141001 1666 2017 02101
67 2101141002 1344 2017 02101
68 2101141003 694 2017 02101
69 2101141004 1178 2017 02101
70 2101141005 919 2017 02101
71 2101141006 1447 2017 02101
72 2101141007 621 2017 02101
73 2101141008 775 2017 02101
74 2101141009 934 2017 02101
75 2101151001 734 2017 02101
76 2101151002 826 2017 02101
77 2101151003 716 2017 02101
78 2101151004 1693 2017 02101
79 2101161001 874 2017 02101
80 2101161002 682 2017 02101
81 2101161003 373 2017 02101
82 2101161004 596 2017 02101
83 2101161005 1199 2017 02101
84 2101171001 440 2017 02101
85 2101171002 885 2017 02101
86 2101171003 972 2017 02101
87 2101171004 1059 2017 02101
88 2101181001 1374 2017 02101
89 2101181002 1309 2017 02101
90 2101181003 898 2017 02101
91 2101181004 810 2017 02101
92 2101991999 623 2017 02101
248 2102011001 882 2017 02102
249 2102011002 1517 2017 02102
250 2102991999 21 2017 02102
406 2104011001 559 2017 02104
407 2104021001 543 2017 02104
408 2104031001 1460 2017 02104
409 2104991999 41 2017 02104
565 2201011001 959 2017 02201


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_urbano_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 375676.9 2017 1101 191468 71930106513
01107 Alto Hospicio 311571.7 2017 1107 108375 33766585496
01401 Pozo Almonte 316138.5 2017 1401 15711 4966851883
01405 Pica 330061.1 2017 1405 9296 3068247619
02101 Antofagasta 368221.4 2017 2101 361873 133249367039
02102 Mejillones 369770.7 2017 2102 13467 4979702302
02104 Taltal 383666.2 2017 2104 13317 5109282942
02201 Calama 434325.1 2017 2201 165731 71981127235
02203 San Pedro de Atacama 442861.0 2017 2203 10996 4869699464
02301 Tocopilla 286187.2 2017 2301 25186 7207910819
02302 María Elena 477748.0 2017 2302 6457 3084818966
03101 Copiapó 343121.0 2017 3101 153937 52819016037
03102 Caldera 318653.2 2017 3102 17662 5628052276
03103 Tierra Amarilla 333194.9 2017 3103 14019 4671058718
03201 Chañaral 286389.3 2017 3201 12219 3499391196
03202 Diego de Almagro 351583.9 2017 3202 13925 4895805596
03301 Vallenar 315981.5 2017 3301 51917 16404810756
03303 Freirina 289049.9 2017 3303 7041 2035200054
03304 Huasco 337414.8 2017 3304 10149 3424422750
04101 La Serena 279340.1 2017 4101 221054 61749247282
04102 Coquimbo 269078.6 2017 4102 227730 61277269093
04103 Andacollo 258539.7 2017 4103 11044 2855312920
04104 La Higuera 214257.0 2017 4104 4241 908664019
04106 Vicuña 254177.0 2017 4106 27771 7058750373
04201 Illapel 282139.3 2017 4201 30848 8703433491
04202 Canela 233397.3 2017 4202 9093 2122281844
04203 Los Vilos 285214.0 2017 4203 21382 6098444926
04204 Salamanca 262056.9 2017 4204 29347 7690585032
04301 Ovalle 280373.5 2017 4301 111272 31197719080
04302 Combarbalá 234537.3 2017 4302 13322 3124505460
04303 Monte Patria 225369.1 2017 4303 30751 6930326684
04304 Punitaqui 212496.1 2017 4304 10956 2328107498
05101 Valparaíso 306572.5 2017 5101 296655 90946261553
05102 Casablanca 348088.6 2017 5102 26867 9352095757
05103 Concón 333932.4 2017 5103 42152 14075920021
05105 Puchuncaví 296035.5 2017 5105 18546 5490274928
05107 Quintero 308224.7 2017 5107 31923 9839456903
05109 Viña del Mar 354715.9 2017 5109 334248 118563074323
05301 Los Andes 355446.2 2017 5301 66708 23711104774
05302 Calle Larga 246387.3 2017 5302 14832 3654416747
05303 Rinconada 279807.9 2017 5303 10207 2855998928
05304 San Esteban 219571.6 2017 5304 18855 4140022481
05401 La Ligua 259482.3 2017 5401 35390 9183080280
05402 Cabildo 262745.9 2017 5402 19388 5094117762
05403 Papudo 302317.1 2017 5403 6356 1921527704
05404 Petorca 237510.8 2017 5404 9826 2333781007
05405 Zapallar 294389.2 2017 5405 7339 2160521991
05501 Quillota 288694.2 2017 5501 90517 26131733924
05502 Calera 282823.6 2017 5502 50554 14297866792
05503 Hijuelas 268449.7 2017 5503 17988 4828872604

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)
comunas_con_ing_exp <-comunas_con_ing_exp[!(is.na(comunas_con_ing_exp$Ingresos_expandidos)),]
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
02101 2101011001 1120 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011002 1012 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011003 1613 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011004 1380 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011005 654 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011006 304 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011008 1502 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011009 1496 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011010 996 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011011 659 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011012 1126 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011013 862 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011014 1714 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011015 806 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011016 268 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011017 1387 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011018 1265 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011019 400 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011020 809 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011021 811 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011022 616 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101021001 840 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101021002 956 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101021003 512 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101021004 992 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101021005 1009 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101031001 1153 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101031002 751 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101031003 576 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101031004 842 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101031005 871 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101031006 956 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101041001 1039 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101041002 938 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101041003 508 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101041004 540 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101041005 885 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101051001 932 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101051002 882 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101051003 944 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101061001 1201 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101061002 948 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101061003 906 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101071001 1135 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101071002 594 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101071003 1428 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101071004 1031 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101071005 635 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101081001 1013 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101081002 1216 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101081003 1249 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101081004 918 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101091001 850 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101091002 1180 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101091003 1117 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101091004 1293 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101091005 967 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101091006 1667 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101091007 597 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101091008 895 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101091009 589 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101091010 765 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101101001 1092 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101101002 483 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101101003 840 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101141001 1666 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101141002 1344 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101141003 694 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101141004 1178 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101141005 919 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101141006 1447 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101141007 621 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101141008 775 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101141009 934 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101151001 734 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101151002 826 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101151003 716 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101151004 1693 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101161001 874 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101161002 682 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101161003 373 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101161004 596 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101161005 1199 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101171001 440 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101171002 885 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101171003 972 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101171004 1059 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101181001 1374 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101181002 1309 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101181003 898 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101181004 810 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101991999 623 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02102 2102011001 882 2017 Mejillones 369770.7 2017 2102 13467 4979702302
02102 2102011002 1517 2017 Mejillones 369770.7 2017 2102 13467 4979702302
02102 2102991999 21 2017 Mejillones 369770.7 2017 2102 13467 4979702302
02104 2104011001 559 2017 Taltal 383666.2 2017 2104 13317 5109282942
02104 2104021001 543 2017 Taltal 383666.2 2017 2104 13317 5109282942
02104 2104031001 1460 2017 Taltal 383666.2 2017 2104 13317 5109282942
02104 2104991999 41 2017 Taltal 383666.2 2017 2104 13317 5109282942
02201 2201011001 959 2017 Calama 434325.1 2017 2201 165731 71981127235


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
02101 2101011001 1120 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011002 1012 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011003 1613 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011004 1380 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011005 654 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011006 304 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011008 1502 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011009 1496 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011010 996 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011011 659 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011012 1126 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011013 862 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011014 1714 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011015 806 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011016 268 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011017 1387 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011018 1265 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011019 400 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011020 809 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011021 811 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101011022 616 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101021001 840 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101021002 956 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101021003 512 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101021004 992 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101021005 1009 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101031001 1153 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101031002 751 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101031003 576 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101031004 842 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101031005 871 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101031006 956 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101041001 1039 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101041002 938 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101041003 508 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101041004 540 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101041005 885 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101051001 932 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101051002 882 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101051003 944 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101061001 1201 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101061002 948 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101061003 906 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101071001 1135 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101071002 594 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101071003 1428 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101071004 1031 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101071005 635 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101081001 1013 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101081002 1216 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101081003 1249 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101081004 918 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101091001 850 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101091002 1180 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101091003 1117 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101091004 1293 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101091005 967 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101091006 1667 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101091007 597 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101091008 895 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101091009 589 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101091010 765 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101101001 1092 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101101002 483 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101101003 840 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101141001 1666 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101141002 1344 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101141003 694 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101141004 1178 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101141005 919 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101141006 1447 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101141007 621 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101141008 775 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101141009 934 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101151001 734 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101151002 826 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101151003 716 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101151004 1693 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101161001 874 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101161002 682 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101161003 373 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101161004 596 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101161005 1199 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101171001 440 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101171002 885 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101171003 972 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101171004 1059 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101181001 1374 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101181002 1309 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101181003 898 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101181004 810 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02101 2101991999 623 2017 Antofagasta 368221.4 2017 2101 361873 133249367039
02102 2102011001 882 2017 Mejillones 369770.7 2017 2102 13467 4979702302
02102 2102011002 1517 2017 Mejillones 369770.7 2017 2102 13467 4979702302
02102 2102991999 21 2017 Mejillones 369770.7 2017 2102 13467 4979702302
02104 2104011001 559 2017 Taltal 383666.2 2017 2104 13317 5109282942
02104 2104021001 543 2017 Taltal 383666.2 2017 2104 13317 5109282942
02104 2104031001 1460 2017 Taltal 383666.2 2017 2104 13317 5109282942
02104 2104991999 41 2017 Taltal 383666.2 2017 2104 13317 5109282942
02201 2201011001 959 2017 Calama 434325.1 2017 2201 165731 71981127235


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
2101011001 02101 1120 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4618 0.0127614 02101
2101011002 02101 1012 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3644 0.0100698 02101
2101011003 02101 1613 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 5645 0.0155994 02101
2101011004 02101 1380 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4385 0.0121175 02101
2101011005 02101 654 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2383 0.0065852 02101
2101011006 02101 304 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 1466 0.0040511 02101
2101011008 02101 1502 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 6487 0.0179262 02101
2101011009 02101 1496 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 6152 0.0170004 02101
2101011010 02101 996 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4495 0.0124215 02101
2101011011 02101 659 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2445 0.0067565 02101
2101011012 02101 1126 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4275 0.0118135 02101
2101011013 02101 862 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2947 0.0081437 02101
2101011014 02101 1714 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 6247 0.0172630 02101
2101011015 02101 806 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2887 0.0079779 02101
2101011016 02101 268 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 1643 0.0045403 02101
2101011017 02101 1387 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4126 0.0114018 02101
2101011018 02101 1265 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4567 0.0126204 02101
2101011019 02101 400 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 1843 0.0050929 02101
2101011020 02101 809 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2874 0.0079420 02101
2101011021 02101 811 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2753 0.0076076 02101
2101011022 02101 616 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2805 0.0077513 02101
2101021001 02101 840 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3642 0.0100643 02101
2101021002 02101 956 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4658 0.0128719 02101
2101021003 02101 512 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2620 0.0072401 02101
2101021004 02101 992 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4532 0.0125237 02101
2101021005 02101 1009 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 5748 0.0158840 02101
2101031001 02101 1153 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3779 0.0104429 02101
2101031002 02101 751 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2511 0.0069389 02101
2101031003 02101 576 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2087 0.0057672 02101
2101031004 02101 842 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3200 0.0088429 02101
2101031005 02101 871 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3138 0.0086716 02101
2101031006 02101 956 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3335 0.0092159 02101
2101041001 02101 1039 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4379 0.0121009 02101
2101041002 02101 938 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4125 0.0113990 02101
2101041003 02101 508 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2518 0.0069582 02101
2101041004 02101 540 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2923 0.0080774 02101
2101041005 02101 885 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4618 0.0127614 02101
2101051001 02101 932 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4321 0.0119407 02101
2101051002 02101 882 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 5027 0.0138916 02101
2101051003 02101 944 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 5139 0.0142011 02101
2101061001 02101 1201 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3741 0.0103379 02101
2101061002 02101 948 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2750 0.0075994 02101
2101061003 02101 906 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3370 0.0093127 02101
2101071001 02101 1135 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4201 0.0116090 02101
2101071002 02101 594 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2844 0.0078591 02101
2101071003 02101 1428 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 7624 0.0210682 02101
2101071004 02101 1031 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3724 0.0102909 02101
2101071005 02101 635 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3220 0.0088981 02101
2101081001 02101 1013 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2981 0.0082377 02101
2101081002 02101 1216 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4598 0.0127061 02101
2101081003 02101 1249 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3327 0.0091938 02101
2101081004 02101 918 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2616 0.0072291 02101
2101091001 02101 850 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2670 0.0073783 02101
2101091002 02101 1180 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3682 0.0101748 02101
2101091003 02101 1117 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3061 0.0084588 02101
2101091004 02101 1293 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4034 0.0111476 02101
2101091005 02101 967 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3472 0.0095945 02101
2101091006 02101 1667 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4565 0.0126149 02101
2101091007 02101 597 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 1884 0.0052062 02101
2101091008 02101 895 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2451 0.0067731 02101
2101091009 02101 589 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2064 0.0057037 02101
2101091010 02101 765 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2643 0.0073037 02101
2101101001 02101 1092 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3814 0.0105396 02101
2101101002 02101 483 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 1578 0.0043606 02101
2101101003 02101 840 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2526 0.0069803 02101
2101141001 02101 1666 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 7735 0.0213749 02101
2101141002 02101 1344 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 6365 0.0175890 02101
2101141003 02101 694 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3005 0.0083040 02101
2101141004 02101 1178 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4535 0.0125320 02101
2101141005 02101 919 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4116 0.0113742 02101
2101141006 02101 1447 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 7236 0.0199960 02101
2101141007 02101 621 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2982 0.0082405 02101
2101141008 02101 775 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2989 0.0082598 02101
2101141009 02101 934 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 6367 0.0175946 02101
2101151001 02101 734 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2879 0.0079558 02101
2101151002 02101 826 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3675 0.0101555 02101
2101151003 02101 716 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3768 0.0104125 02101
2101151004 02101 1693 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 8961 0.0247628 02101
2101161001 02101 874 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2974 0.0082184 02101
2101161002 02101 682 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3413 0.0094315 02101
2101161003 02101 373 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 1805 0.0049879 02101
2101161004 02101 596 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2437 0.0067344 02101
2101161005 02101 1199 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3265 0.0090225 02101
2101171001 02101 440 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2503 0.0069168 02101
2101171002 02101 885 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4463 0.0123331 02101
2101171003 02101 972 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4570 0.0126287 02101
2101171004 02101 1059 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 5586 0.0154364 02101
2101181001 02101 1374 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 5341 0.0147593 02101
2101181002 02101 1309 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 5876 0.0162377 02101
2101181003 02101 898 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4235 0.0117030 02101
2101181004 02101 810 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4475 0.0123662 02101
2101991999 02101 623 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4121 0.0113880 02101
2102011001 02102 882 2017 Mejillones 369770.7 2017 2102 13467 4979702302 5020 0.3727631 02102
2102011002 02102 1517 2017 Mejillones 369770.7 2017 2102 13467 4979702302 7764 0.5765204 02102
2102991999 02102 21 2017 Mejillones 369770.7 2017 2102 13467 4979702302 170 0.0126234 02102
2104011001 02104 559 2017 Taltal 383666.2 2017 2104 13317 5109282942 2174 0.1632500 02104
2104021001 02104 543 2017 Taltal 383666.2 2017 2104 13317 5109282942 2812 0.2111587 02104
2104031001 02104 1460 2017 Taltal 383666.2 2017 2104 13317 5109282942 5947 0.4465721 02104
2104991999 02104 41 2017 Taltal 383666.2 2017 2104 13317 5109282942 190 0.0142675 02104
2201011001 02201 959 2017 Calama 434325.1 2017 2201 165731 71981127235 3387 0.0204367 02201


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
2101011001 02101 1120 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4618 0.0127614 02101 1700446226
2101011002 02101 1012 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3644 0.0100698 02101 1341798624
2101011003 02101 1613 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 5645 0.0155994 02101 2078609559
2101011004 02101 1380 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4385 0.0121175 02101 1614650649
2101011005 02101 654 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2383 0.0065852 02101 877471493
2101011006 02101 304 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 1466 0.0040511 02101 539812509
2101011008 02101 1502 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 6487 0.0179262 02101 2388651941
2101011009 02101 1496 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 6152 0.0170004 02101 2265297787
2101011010 02101 996 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4495 0.0124215 02101 1655154999
2101011011 02101 659 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2445 0.0067565 02101 900301217
2101011012 02101 1126 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4275 0.0118135 02101 1574146300
2101011013 02101 862 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2947 0.0081437 02101 1085148338
2101011014 02101 1714 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 6247 0.0172630 02101 2300278816
2101011015 02101 806 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2887 0.0079779 02101 1063055057
2101011016 02101 268 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 1643 0.0045403 02101 604987689
2101011017 02101 1387 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4126 0.0114018 02101 1519281318
2101011018 02101 1265 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4567 0.0126204 02101 1681666936
2101011019 02101 400 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 1843 0.0050929 02101 678631961
2101011020 02101 809 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2874 0.0079420 02101 1058268179
2101011021 02101 811 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2753 0.0076076 02101 1013713395
2101011022 02101 616 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2805 0.0077513 02101 1032860906
2101021001 02101 840 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3642 0.0100643 02101 1341062181
2101021002 02101 956 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4658 0.0128719 02101 1715175080
2101021003 02101 512 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2620 0.0072401 02101 964739955
2101021004 02101 992 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4532 0.0125237 02101 1668779189
2101021005 02101 1009 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 5748 0.0158840 02101 2116536359
2101031001 02101 1153 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3779 0.0104429 02101 1391508507
2101031002 02101 751 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2511 0.0069389 02101 924603827
2101031003 02101 576 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2087 0.0057672 02101 768477972
2101031004 02101 842 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3200 0.0088429 02101 1178308342
2101031005 02101 871 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3138 0.0086716 02101 1155478618
2101031006 02101 956 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3335 0.0092159 02101 1228018225
2101041001 02101 1039 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4379 0.0121009 02101 1612441321
2101041002 02101 938 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4125 0.0113990 02101 1518913097
2101041003 02101 508 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2518 0.0069582 02101 927181376
2101041004 02101 540 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2923 0.0080774 02101 1076311026
2101041005 02101 885 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4618 0.0127614 02101 1700446226
2101051001 02101 932 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4321 0.0119407 02101 1591084483
2101051002 02101 882 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 5027 0.0138916 02101 1851048760
2101051003 02101 944 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 5139 0.0142011 02101 1892289552
2101061001 02101 1201 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3741 0.0103379 02101 1377516096
2101061002 02101 948 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2750 0.0075994 02101 1012608731
2101061003 02101 906 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3370 0.0093127 02101 1240905972
2101071001 02101 1135 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4201 0.0116090 02101 1546897920
2101071002 02101 594 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2844 0.0078591 02101 1047221539
2101071003 02101 1428 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 7624 0.0210682 02101 2807319624
2101071004 02101 1031 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3724 0.0102909 02101 1371256333
2101071005 02101 635 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3220 0.0088981 02101 1185672769
2101081001 02101 1013 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2981 0.0082377 02101 1097667865
2101081002 02101 1216 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4598 0.0127061 02101 1693081798
2101081003 02101 1249 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3327 0.0091938 02101 1225072454
2101081004 02101 918 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2616 0.0072291 02101 963267069
2101091001 02101 850 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2670 0.0073783 02101 983151023
2101091002 02101 1180 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3682 0.0101748 02101 1355791036
2101091003 02101 1117 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3061 0.0084588 02101 1127125573
2101091004 02101 1293 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4034 0.0111476 02101 1485404953
2101091005 02101 967 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3472 0.0095945 02101 1278464551
2101091006 02101 1667 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4565 0.0126149 02101 1680930494
2101091007 02101 597 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 1884 0.0052062 02101 693729036
2101091008 02101 895 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2451 0.0067731 02101 902510545
2101091009 02101 589 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2064 0.0057037 02101 760008880
2101091010 02101 765 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2643 0.0073037 02101 973209046
2101101001 02101 1092 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3814 0.0105396 02101 1404396255
2101101002 02101 483 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 1578 0.0043606 02101 581053301
2101101003 02101 840 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2526 0.0069803 02101 930127147
2101141001 02101 1666 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 7735 0.0213749 02101 2848192195
2101141002 02101 1344 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 6365 0.0175890 02101 2343728936
2101141003 02101 694 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3005 0.0083040 02101 1106505177
2101141004 02101 1178 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4535 0.0125320 02101 1669883853
2101141005 02101 919 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4116 0.0113742 02101 1515599104
2101141006 02101 1447 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 7236 0.0199960 02101 2664449738
2101141007 02101 621 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2982 0.0082405 02101 1098036086
2101141008 02101 775 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2989 0.0082598 02101 1100613635
2101141009 02101 934 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 6367 0.0175946 02101 2344465379
2101151001 02101 734 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2879 0.0079558 02101 1060109286
2101151002 02101 826 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3675 0.0101555 02101 1353213486
2101151003 02101 716 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3768 0.0104125 02101 1387458072
2101151004 02101 1693 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 8961 0.0247628 02101 3299631578
2101161001 02101 874 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2974 0.0082184 02101 1095090315
2101161002 02101 682 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3413 0.0094315 02101 1256739491
2101161003 02101 373 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 1805 0.0049879 02101 664639549
2101161004 02101 596 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2437 0.0067344 02101 897355446
2101161005 02101 1199 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3265 0.0090225 02101 1202242730
2101171001 02101 440 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2503 0.0069168 02101 921658056
2101171002 02101 885 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4463 0.0123331 02101 1643371915
2101171003 02101 972 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4570 0.0126287 02101 1682771600
2101171004 02101 1059 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 5586 0.0154364 02101 2056884499
2101181001 02101 1374 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 5341 0.0147593 02101 1966670267
2101181002 02101 1309 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 5876 0.0162377 02101 2163668692
2101181003 02101 898 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4235 0.0117030 02101 1559417446
2101181004 02101 810 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4475 0.0123662 02101 1647790572
2101991999 02101 623 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4121 0.0113880 02101 1517440211
2102011001 02102 882 2017 Mejillones 369770.7 2017 2102 13467 4979702302 5020 0.3727631 02102 1856249020
2102011002 02102 1517 2017 Mejillones 369770.7 2017 2102 13467 4979702302 7764 0.5765204 02102 2870899879
2102991999 02102 21 2017 Mejillones 369770.7 2017 2102 13467 4979702302 170 0.0126234 02102 62861023
2104011001 02104 559 2017 Taltal 383666.2 2017 2104 13317 5109282942 2174 0.1632500 02104 834090344
2104021001 02104 543 2017 Taltal 383666.2 2017 2104 13317 5109282942 2812 0.2111587 02104 1078869387
2104031001 02104 1460 2017 Taltal 383666.2 2017 2104 13317 5109282942 5947 0.4465721 02104 2281662961
2104991999 02104 41 2017 Taltal 383666.2 2017 2104 13317 5109282942 190 0.0142675 02104 72896580
2201011001 02201 959 2017 Calama 434325.1 2017 2201 165731 71981127235 3387 0.0204367 02201 1471058993

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 loess

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 
## -901879436 -213991053   16422551  176763166  906633102 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 25378095   67436157   0.376    0.707    
## Freq.x       1534152      68101  22.528   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 332700000 on 153 degrees of freedom
## Multiple R-squared:  0.7684, Adjusted R-squared:  0.7668 
## F-statistic: 507.5 on 1 and 153 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

linearMod <- lm( multi_pob~(Freq.x^2) , data=h_y_m_comuna_corr_01)
datos <- summary(linearMod)
dato <- datos$adj.r.squared
modelo <- "cuadrático"
sintaxis <- "linearMod <- lm( multi_pob~(Freq.x^2) , data=h_y_m_comuna_corr_01)"
latex <- "$$ '\'hat Y = '\'beta_0 + '\'beta_1  X^2  $$"
modelos1 <- cbind(modelo,dato,sintaxis,latex)
 
### 8.2 Modelo cúbico
 
linearMod <- lm( multi_pob~(Freq.x^3) , data=h_y_m_comuna_corr_01)
datos <- summary(linearMod)
dato <- datos$adj.r.squared
modelo <- "cúbico"
sintaxis <- "linearMod <- lm( multi_pob~(Freq.x^3) , data=h_y_m_comuna_corr_01)"
latex <- "$$ '\'hat Y = '\'beta_0 + '\'beta_1  X^3  $$"
modelos2 <- cbind(modelo,dato,sintaxis,latex)
 
### 8.3 Modelo logarítmico
 
linearMod <- lm( multi_pob~log(Freq.x) , data=h_y_m_comuna_corr_01)
datos <- summary(linearMod)
dato <- datos$adj.r.squared
modelo <- "logarítmico"
sintaxis <- "linearMod <- lm( multi_pob~log(Freq.x) , data=h_y_m_comuna_corr_01)"
latex <- "$$ '\'hat Y = '\'beta_0 + '\'beta_1 ln X  $$"
modelos3 <- cbind(modelo,dato,sintaxis,latex)
 
### 8.5 Modelo con raíz cuadrada 
 
linearMod <- lm( multi_pob~sqrt(Freq.x) , data=h_y_m_comuna_corr_01)
datos <- summary(linearMod)
dato <- datos$adj.r.squared
modelo <- "raíz cuadrada"
sintaxis <- "linearMod <- lm( multi_pob~sqrt(Freq.x) , data=h_y_m_comuna_corr_01)"
latex <- "$$ '\'hat Y = '\'beta_0 + '\'beta_1  '\'sqrt {X}  $$"
modelos5 <- cbind(modelo,dato,sintaxis,latex)
 
### 8.6 Modelo raíz-raíz
 
linearMod <- lm( sqrt(multi_pob)~sqrt(Freq.x) , data=h_y_m_comuna_corr_01)
datos <- summary(linearMod)
dato <- datos$adj.r.squared
modelo <- "raíz-raíz"
sintaxis <- "linearMod <- lm( sqrt(multi_pob)~sqrt(Freq.x) , data=h_y_m_comuna_corr_01)"
latex <- "$$ '\'hat Y = {'\'beta_0}^2 + 2  '\'beta_0  '\'beta_1 '\'sqrt{X}+  '\'beta_1^2 X  $$"
modelos6 <- cbind(modelo,dato,sintaxis,latex)
 
### 8.7 Modelo log-raíz
 
linearMod <- lm( log(multi_pob)~sqrt(Freq.x) , data=h_y_m_comuna_corr_01)
datos <- summary(linearMod)
dato <- datos$adj.r.squared
modelo <- "log-raíz"
sintaxis <- "linearMod <- lm( log(multi_pob)~sqrt(Freq.x) , data=h_y_m_comuna_corr_01)"
latex <- "$$ '\'hat Y = e^{'\'beta_0 + '\'beta_1 '\'sqrt{X}} $$"
modelos7 <- cbind(modelo,dato,sintaxis,latex)
 
### 8.8 Modelo raíz-log
 
linearMod <- lm( sqrt(multi_pob)~log(Freq.x) , data=h_y_m_comuna_corr_01)
datos <- summary(linearMod)
dato <- datos$adj.r.squared
modelo <- "raíz-log"
sintaxis <- "linearMod <- lm( sqrt(multi_pob)~log(Freq.x) , data=h_y_m_comuna_corr_01)"
latex <- "$$ '\'hat Y = {'\'beta_0}^2 + 2  '\'beta_0  '\'beta_1 '\'ln{X}+  '\'beta_1^2 ln^2X  $$"
modelos8 <- cbind(modelo,dato,sintaxis,latex)
 
### 8.9 Modelo log-log
 
linearMod <- lm( log(multi_pob)~log(Freq.x) , data=h_y_m_comuna_corr_01)
datos <- summary(linearMod)
dato <- datos$adj.r.squared
modelo <- "log-log"
sintaxis <- "linearMod <- lm( log(multi_pob)~log(Freq.x) , data=h_y_m_comuna_corr_01)"
latex <- "$$ '\'hat Y = e^{'\'beta_0+'\'beta_1  ln{X}} $$"
modelos9 <- cbind(modelo,dato,sintaxis,latex)
 
modelos_bind <- rbind(modelos1,modelos2,modelos3,modelos5,modelos6,modelos7,modelos8,modelos9)
modelos_bind <- as.data.frame(modelos_bind)

modelos_bind <<- modelos_bind[order(modelos_bind$dato ),]
h_y_m_comuna_corr_01 <<- h_y_m_comuna_corr_01

kbl(modelos_bind) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
modelo dato sintaxis latex
3 logarítmico 0.471078118252879 linearMod <- lm( multi_pob~log(Freq.x) , data=h_y_m_comuna_corr_01) \[ ''hat Y = ''beta_0 + ''beta_1 ln X \]
7 raíz-log 0.668105715839062 linearMod <- lm( sqrt(multi_pob)~log(Freq.x) , data=h_y_m_comuna_corr_01) \[ ''hat Y = {''beta_0}^2 + 2 ''beta_0 ''beta_1 ''ln{X}+ ''beta_1^2 ln^2X \]
4 raíz cuadrada 0.708785857574856 linearMod <- lm( multi_pob~sqrt(Freq.x) , data=h_y_m_comuna_corr_01) \[ ''hat Y = ''beta_0 + ''beta_1 ''sqrt {X} \]
1 cuadrático 0.766839789074637 linearMod <- lm( multi_pob~(Freq.x^2) , data=h_y_m_comuna_corr_01) \[ ''hat Y = ''beta_0 + ''beta_1 X^2 \]
2 cúbico 0.766839789074637 linearMod <- lm( multi_pob~(Freq.x^3) , data=h_y_m_comuna_corr_01) \[ ''hat Y = ''beta_0 + ''beta_1 X^3 \]
6 log-raíz 0.807188945741523 linearMod <- lm( log(multi_pob)~sqrt(Freq.x) , data=h_y_m_comuna_corr_01) \[ ''hat Y = e^{''beta_0 + ''beta_1 ''sqrt{X}} \]
5 raíz-raíz 0.824700058564581 linearMod <- lm( sqrt(multi_pob)~sqrt(Freq.x) , data=h_y_m_comuna_corr_01) \[ ''hat Y = {''beta_0}^2 + 2 ''beta_0 ''beta_1 ''sqrt{X}+ ''beta_1^2 X \]
8 log-log 0.858066527590105 linearMod <- lm( log(multi_pob)~log(Freq.x) , data=h_y_m_comuna_corr_01) \[ ''hat Y = e^{''beta_0+''beta_1 ln{X}} \] 
h_y_m_comuna_corr <- h_y_m_comuna_corr_01
metodo <- 8


switch (metodo,
        case = linearMod <- lm( multi_pob~(Freq.x^2) , data=h_y_m_comuna_corr),
        case = linearMod <- lm( multi_pob~(Freq.x^3) , data=h_y_m_comuna_corr),
        case = linearMod <- lm( multi_pob~log(Freq.x) , data=h_y_m_comuna_corr),
        case = linearMod <- lm( multi_pob~sqrt(Freq.x) , data=h_y_m_comuna_corr),
        case = linearMod <- lm( sqrt(multi_pob)~sqrt(Freq.x) , data=h_y_m_comuna_corr),
        case = linearMod <- lm( log(multi_pob)~sqrt(Freq.x) , data=h_y_m_comuna_corr),
        case = linearMod <- lm( sqrt(multi_pob)~log(Freq.x) , data=h_y_m_comuna_corr),
        case = linearMod <- lm( log(multi_pob)~log(Freq.x) , data=h_y_m_comuna_corr)
)
summary(linearMod)
## 
## Call:
## lm(formula = log(multi_pob) ~ log(Freq.x), data = h_y_m_comuna_corr)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.76754 -0.18233  0.03315  0.16261  2.06549 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 15.57181    0.17557   88.69   <2e-16 ***
## log(Freq.x)  0.80372    0.02633   30.53   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.3048 on 153 degrees of freedom
## Multiple R-squared:  0.859,  Adjusted R-squared:  0.8581 
## F-statistic:   932 on 1 and 153 DF,  p-value: < 2.2e-16
aa <- linearMod$coefficients[1]
aa
## (Intercept) 
##    15.57181
bb <- linearMod$coefficients[2]
bb
## log(Freq.x) 
##   0.8037187

9 Modelo log-log (log-log)

Es éste el modelo que nos entrega el mayor coeficiente de determinación de todos (0.8581).

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$Freq.x), y=log(h_y_m_comuna_corr$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)
summary(linearMod) 
## 
## Call:
## lm(formula = log(multi_pob) ~ log(Freq.x), data = h_y_m_comuna_corr)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.76754 -0.18233  0.03315  0.16261  2.06549 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 15.57181    0.17557   88.69   <2e-16 ***
## log(Freq.x)  0.80372    0.02633   30.53   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.3048 on 153 degrees of freedom
## Multiple R-squared:  0.859,  Adjusted R-squared:  0.8581 
## F-statistic:   932 on 1 and 153 DF,  p-value: < 2.2e-16
ggplot(h_y_m_comuna_corr, 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.57181 +0.8037187 \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$est_ing <- exp(aa+bb * log(h_y_m_comuna_corr$Freq.x))

r3_100 <- h_y_m_comuna_corr[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
2101011001 02101 1120 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4618 0.0127614 02101 1700446226 1634804731
2101011002 02101 1012 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3644 0.0100698 02101 1341798624 1506857257
2101011003 02101 1613 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 5645 0.0155994 02101 2078609559 2191735134
2101011004 02101 1380 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4385 0.0121175 02101 1614650649 1933445261
2101011005 02101 654 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2383 0.0065852 02101 877471493 1060925336
2101011006 02101 304 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 1466 0.0040511 02101 539812509 573171056
2101011008 02101 1502 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 6487 0.0179262 02101 2388651941 2069671281
2101011009 02101 1496 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 6152 0.0170004 02101 2265297787 2063023797
2101011010 02101 996 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4495 0.0124215 02101 1655154999 1487679699
2101011011 02101 659 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2445 0.0067565 02101 900301217 1067439462
2101011012 02101 1126 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4275 0.0118135 02101 1574146300 1641839912
2101011013 02101 862 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2947 0.0081437 02101 1085148338 1324568493
2101011014 02101 1714 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 6247 0.0172630 02101 2300278816 2301374606
2101011015 02101 806 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2887 0.0079779 02101 1063055057 1254955013
2101011016 02101 268 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 1643 0.0045403 02101 604987689 517952175
2101011017 02101 1387 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4126 0.0114018 02101 1519281318 1941323681
2101011018 02101 1265 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4567 0.0126204 02101 1681666936 1802853788
2101011019 02101 400 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 1843 0.0050929 02101 678631961 714622359
2101011020 02101 809 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2874 0.0079420 02101 1058268179 1258707853
2101011021 02101 811 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2753 0.0076076 02101 1013713395 1261208228
2101011022 02101 616 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2805 0.0077513 02101 1032860906 1011091632
2101021001 02101 840 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3642 0.0100643 02101 1341062181 1297329468
2101021002 02101 956 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4658 0.0128719 02101 1715175080 1439468220
2101021003 02101 512 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2620 0.0072401 02101 964739955 871451578
2101021004 02101 992 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4532 0.0125237 02101 1668779189 1482875892
2101021005 02101 1009 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 5748 0.0158840 02101 2116536359 1503266025
2101031001 02101 1153 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3779 0.0104429 02101 1391508507 1673407887
2101031002 02101 751 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2511 0.0069389 02101 924603827 1185653880
2101031003 02101 576 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2087 0.0057672 02101 768477972 957977924
2101031004 02101 842 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3200 0.0088429 02101 1178308342 1299811479
2101031005 02101 871 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3138 0.0086716 02101 1155478618 1335672261
2101031006 02101 956 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3335 0.0092159 02101 1228018225 1439468220
2101041001 02101 1039 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4379 0.0121009 02101 1612441321 1539085214
2101041002 02101 938 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4125 0.0113990 02101 1518913097 1417644507
2101041003 02101 508 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2518 0.0069582 02101 927181376 865975480
2101041004 02101 540 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2923 0.0080774 02101 1076311026 909553587
2101041005 02101 885 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4618 0.0127614 02101 1700446226 1352900172
2101051001 02101 932 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4321 0.0119407 02101 1591084483 1410351728
2101051002 02101 882 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 5027 0.0138916 02101 1851048760 1349213007
2101051003 02101 944 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 5139 0.0142011 02101 1892289552 1424928136
2101061001 02101 1201 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3741 0.0103379 02101 1377516096 1729173790
2101061002 02101 948 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2750 0.0075994 02101 1012608731 1429778840
2101061003 02101 906 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3370 0.0093127 02101 1240905972 1378642201
2101071001 02101 1135 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4201 0.0116090 02101 1546897920 1652378910
2101071002 02101 594 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2844 0.0078591 02101 1047221539 981965812
2101071003 02101 1428 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 7624 0.0210682 02101 2807319624 1987313569
2101071004 02101 1031 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3724 0.0102909 02101 1371256333 1529553516
2101071005 02101 635 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3220 0.0088981 02101 1185672769 1036081664
2101081001 02101 1013 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2981 0.0082377 02101 1097667865 1508053870
2101081002 02101 1216 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4598 0.0127061 02101 1693081798 1746510272
2101081003 02101 1249 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3327 0.0091938 02101 1225072454 1784503810
2101081004 02101 918 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2616 0.0072291 02101 963267069 1393299258
2101091001 02101 850 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2670 0.0073783 02101 983151023 1309727986
2101091002 02101 1180 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3682 0.0101748 02101 1355791036 1704831082
2101091003 02101 1117 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3061 0.0084588 02101 1127125573 1631284368
2101091004 02101 1293 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4034 0.0111476 02101 1485404953 1834857173
2101091005 02101 967 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3472 0.0095945 02101 1278464551 1452765184
2101091006 02101 1667 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4565 0.0126149 02101 1680930494 2250516689
2101091007 02101 597 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 1884 0.0052062 02101 693729036 985949821
2101091008 02101 895 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2451 0.0067731 02101 902510545 1365173062
2101091009 02101 589 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2064 0.0057037 02101 760008880 975317003
2101091010 02101 765 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2643 0.0073037 02101 973209046 1203386002
2101101001 02101 1092 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3814 0.0105396 02101 1404396255 1601875243
2101101002 02101 483 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 1578 0.0043606 02101 581053301 831554710
2101101003 02101 840 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2526 0.0069803 02101 930127147 1297329468
2101141001 02101 1666 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 7735 0.0213749 02101 2848192195 2249431573
2101141002 02101 1344 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 6365 0.0175890 02101 2343728936 1892802655
2101141003 02101 694 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3005 0.0083040 02101 1106505177 1112771704
2101141004 02101 1178 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4535 0.0125320 02101 1669883853 1702508315
2101141005 02101 919 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4116 0.0113742 02101 1515599104 1394518976
2101141006 02101 1447 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 7236 0.0199960 02101 2664449738 2008537772
2101141007 02101 621 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2982 0.0082405 02101 1098036086 1017682444
2101141008 02101 775 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2989 0.0082598 02101 1100613635 1216012793
2101141009 02101 934 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 6367 0.0175946 02101 2344465379 1412783675
2101151001 02101 734 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2879 0.0079558 02101 1060109286 1164034485
2101151002 02101 826 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3675 0.0101555 02101 1353213486 1279922719
2101151003 02101 716 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3768 0.0104125 02101 1387458072 1141035923
2101151004 02101 1693 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 8961 0.0247628 02101 3299631578 2278685136
2101161001 02101 874 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2974 0.0082184 02101 1095090315 1339368504
2101161002 02101 682 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3413 0.0094315 02101 1256739491 1097280920
2101161003 02101 373 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 1805 0.0049879 02101 664639549 675589365
2101161004 02101 596 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2437 0.0067344 02101 897355446 984622256
2101161005 02101 1199 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3265 0.0090225 02101 1202242730 1726859058
2101171001 02101 440 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2503 0.0069168 02101 921658056 771515537
2101171002 02101 885 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4463 0.0123331 02101 1643371915 1352900172
2101171003 02101 972 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4570 0.0126287 02101 1682771600 1458799431
2101171004 02101 1059 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 5586 0.0154364 02101 2056884499 1562851769
2101181001 02101 1374 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 5341 0.0147593 02101 1966670267 1926686085
2101181002 02101 1309 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 5876 0.0162377 02101 2163668692 1853083647
2101181003 02101 898 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4235 0.0117030 02101 1559417446 1368849670
2101181004 02101 810 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4475 0.0123662 02101 1647790572 1259958192
2101991999 02101 623 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4121 0.0113880 02101 1517440211 1020315849
2102011001 02102 882 2017 Mejillones 369770.7 2017 2102 13467 4979702302 5020 0.3727631 02102 1856249020 1349213007
2102011002 02102 1517 2017 Mejillones 369770.7 2017 2102 13467 4979702302 7764 0.5765204 02102 2870899879 2086267250
2102991999 02102 21 2017 Mejillones 369770.7 2017 2102 13467 4979702302 170 0.0126234 02102 62861023 66902856
2104011001 02104 559 2017 Taltal 383666.2 2017 2104 13317 5109282942 2174 0.1632500 02104 834090344 935187251
2104021001 02104 543 2017 Taltal 383666.2 2017 2104 13317 5109282942 2812 0.2111587 02104 1078869387 913612629
2104031001 02104 1460 2017 Taltal 383666.2 2017 2104 13317 5109282942 5947 0.4465721 02104 2281662961 2023028066
2104991999 02104 41 2017 Taltal 383666.2 2017 2104 13317 5109282942 190 0.0142675 02104 72896580 114545185
2201011001 02201 959 2017 Calama 434325.1 2017 2201 165731 71981127235 3387 0.0204367 02201 1471058993 1443097629


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$ing_medio_zona <- h_y_m_comuna_corr$est_ing  /( h_y_m_comuna_corr$personas  * h_y_m_comuna_corr$p_poblacional)

r3_100 <- h_y_m_comuna_corr[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
2101011001 02101 1120 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4618 0.0127614 02101 1700446226 1634804731 354007.1
2101011002 02101 1012 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3644 0.0100698 02101 1341798624 1506857257 413517.4
2101011003 02101 1613 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 5645 0.0155994 02101 2078609559 2191735134 388261.3
2101011004 02101 1380 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4385 0.0121175 02101 1614650649 1933445261 440922.5
2101011005 02101 654 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2383 0.0065852 02101 877471493 1060925336 445205.8
2101011006 02101 304 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 1466 0.0040511 02101 539812509 573171056 390976.2
2101011008 02101 1502 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 6487 0.0179262 02101 2388651941 2069671281 319049.1
2101011009 02101 1496 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 6152 0.0170004 02101 2265297787 2063023797 335342.0
2101011010 02101 996 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4495 0.0124215 02101 1655154999 1487679699 330963.2
2101011011 02101 659 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2445 0.0067565 02101 900301217 1067439462 436580.6
2101011012 02101 1126 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4275 0.0118135 02101 1574146300 1641839912 384056.1
2101011013 02101 862 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2947 0.0081437 02101 1085148338 1324568493 449463.4
2101011014 02101 1714 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 6247 0.0172630 02101 2300278816 2301374606 368396.8
2101011015 02101 806 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2887 0.0079779 02101 1063055057 1254955013 434691.7
2101011016 02101 268 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 1643 0.0045403 02101 604987689 517952175 315247.8
2101011017 02101 1387 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4126 0.0114018 02101 1519281318 1941323681 470509.9
2101011018 02101 1265 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4567 0.0126204 02101 1681666936 1802853788 394756.7
2101011019 02101 400 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 1843 0.0050929 02101 678631961 714622359 387749.5
2101011020 02101 809 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2874 0.0079420 02101 1058268179 1258707853 437963.8
2101011021 02101 811 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2753 0.0076076 02101 1013713395 1261208228 458121.4
2101011022 02101 616 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2805 0.0077513 02101 1032860906 1011091632 360460.5
2101021001 02101 840 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3642 0.0100643 02101 1341062181 1297329468 356213.5
2101021002 02101 956 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4658 0.0128719 02101 1715175080 1439468220 309031.4
2101021003 02101 512 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2620 0.0072401 02101 964739955 871451578 332615.1
2101021004 02101 992 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4532 0.0125237 02101 1668779189 1482875892 327201.2
2101021005 02101 1009 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 5748 0.0158840 02101 2116536359 1503266025 261528.5
2101031001 02101 1153 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3779 0.0104429 02101 1391508507 1673407887 442817.6
2101031002 02101 751 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2511 0.0069389 02101 924603827 1185653880 472183.9
2101031003 02101 576 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2087 0.0057672 02101 768477972 957977924 459021.5
2101031004 02101 842 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3200 0.0088429 02101 1178308342 1299811479 406191.1
2101031005 02101 871 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3138 0.0086716 02101 1155478618 1335672261 425644.4
2101031006 02101 956 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3335 0.0092159 02101 1228018225 1439468220 431624.7
2101041001 02101 1039 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4379 0.0121009 02101 1612441321 1539085214 351469.6
2101041002 02101 938 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4125 0.0113990 02101 1518913097 1417644507 343671.4
2101041003 02101 508 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2518 0.0069582 02101 927181376 865975480 343914.0
2101041004 02101 540 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2923 0.0080774 02101 1076311026 909553587 311171.3
2101041005 02101 885 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4618 0.0127614 02101 1700446226 1352900172 292962.4
2101051001 02101 932 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4321 0.0119407 02101 1591084483 1410351728 326394.8
2101051002 02101 882 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 5027 0.0138916 02101 1851048760 1349213007 268393.3
2101051003 02101 944 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 5139 0.0142011 02101 1892289552 1424928136 277277.3
2101061001 02101 1201 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3741 0.0103379 02101 1377516096 1729173790 462222.3
2101061002 02101 948 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2750 0.0075994 02101 1012608731 1429778840 519919.6
2101061003 02101 906 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3370 0.0093127 02101 1240905972 1378642201 409092.6
2101071001 02101 1135 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4201 0.0116090 02101 1546897920 1652378910 393329.9
2101071002 02101 594 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2844 0.0078591 02101 1047221539 981965812 345276.3
2101071003 02101 1428 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 7624 0.0210682 02101 2807319624 1987313569 260665.5
2101071004 02101 1031 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3724 0.0102909 02101 1371256333 1529553516 410728.7
2101071005 02101 635 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3220 0.0088981 02101 1185672769 1036081664 321764.5
2101081001 02101 1013 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2981 0.0082377 02101 1097667865 1508053870 505888.6
2101081002 02101 1216 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4598 0.0127061 02101 1693081798 1746510272 379841.3
2101081003 02101 1249 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3327 0.0091938 02101 1225072454 1784503810 536370.2
2101081004 02101 918 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2616 0.0072291 02101 963267069 1393299258 532606.8
2101091001 02101 850 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2670 0.0073783 02101 983151023 1309727986 490534.8
2101091002 02101 1180 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3682 0.0101748 02101 1355791036 1704831082 463017.7
2101091003 02101 1117 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3061 0.0084588 02101 1127125573 1631284368 532925.3
2101091004 02101 1293 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4034 0.0111476 02101 1485404953 1834857173 454848.1
2101091005 02101 967 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3472 0.0095945 02101 1278464551 1452765184 418423.2
2101091006 02101 1667 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4565 0.0126149 02101 1680930494 2250516689 492993.8
2101091007 02101 597 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 1884 0.0052062 02101 693729036 985949821 523327.9
2101091008 02101 895 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2451 0.0067731 02101 902510545 1365173062 556986.2
2101091009 02101 589 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2064 0.0057037 02101 760008880 975317003 472537.3
2101091010 02101 765 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2643 0.0073037 02101 973209046 1203386002 455310.6
2101101001 02101 1092 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3814 0.0105396 02101 1404396255 1601875243 419998.8
2101101002 02101 483 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 1578 0.0043606 02101 581053301 831554710 526967.5
2101101003 02101 840 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2526 0.0069803 02101 930127147 1297329468 513590.4
2101141001 02101 1666 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 7735 0.0213749 02101 2848192195 2249431573 290812.1
2101141002 02101 1344 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 6365 0.0175890 02101 2343728936 1892802655 297376.7
2101141003 02101 694 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3005 0.0083040 02101 1106505177 1112771704 370306.7
2101141004 02101 1178 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4535 0.0125320 02101 1669883853 1702508315 375415.3
2101141005 02101 919 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4116 0.0113742 02101 1515599104 1394518976 338804.4
2101141006 02101 1447 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 7236 0.0199960 02101 2664449738 2008537772 277575.7
2101141007 02101 621 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2982 0.0082405 02101 1098036086 1017682444 341275.1
2101141008 02101 775 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2989 0.0082598 02101 1100613635 1216012793 406829.3
2101141009 02101 934 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 6367 0.0175946 02101 2344465379 1412783675 221891.6
2101151001 02101 734 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2879 0.0079558 02101 1060109286 1164034485 404319.0
2101151002 02101 826 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3675 0.0101555 02101 1353213486 1279922719 348278.3
2101151003 02101 716 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3768 0.0104125 02101 1387458072 1141035923 302822.7
2101151004 02101 1693 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 8961 0.0247628 02101 3299631578 2278685136 254289.2
2101161001 02101 874 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2974 0.0082184 02101 1095090315 1339368504 450359.3
2101161002 02101 682 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3413 0.0094315 02101 1256739491 1097280920 321500.4
2101161003 02101 373 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 1805 0.0049879 02101 664639549 675589365 374287.7
2101161004 02101 596 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2437 0.0067344 02101 897355446 984622256 404030.5
2101161005 02101 1199 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 3265 0.0090225 02101 1202242730 1726859058 528900.2
2101171001 02101 440 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 2503 0.0069168 02101 921658056 771515537 308236.3
2101171002 02101 885 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4463 0.0123331 02101 1643371915 1352900172 303136.9
2101171003 02101 972 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4570 0.0126287 02101 1682771600 1458799431 319212.1
2101171004 02101 1059 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 5586 0.0154364 02101 2056884499 1562851769 279780.1
2101181001 02101 1374 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 5341 0.0147593 02101 1966670267 1926686085 360735.1
2101181002 02101 1309 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 5876 0.0162377 02101 2163668692 1853083647 315364.8
2101181003 02101 898 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4235 0.0117030 02101 1559417446 1368849670 323223.1
2101181004 02101 810 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4475 0.0123662 02101 1647790572 1259958192 281554.9
2101991999 02101 623 2017 Antofagasta 368221.4 2017 2101 361873 133249367039 4121 0.0113880 02101 1517440211 1020315849 247589.4
2102011001 02102 882 2017 Mejillones 369770.7 2017 2102 13467 4979702302 5020 0.3727631 02102 1856249020 1349213007 268767.5
2102011002 02102 1517 2017 Mejillones 369770.7 2017 2102 13467 4979702302 7764 0.5765204 02102 2870899879 2086267250 268710.4
2102991999 02102 21 2017 Mejillones 369770.7 2017 2102 13467 4979702302 170 0.0126234 02102 62861023 66902856 393546.2
2104011001 02104 559 2017 Taltal 383666.2 2017 2104 13317 5109282942 2174 0.1632500 02104 834090344 935187251 430168.9
2104021001 02104 543 2017 Taltal 383666.2 2017 2104 13317 5109282942 2812 0.2111587 02104 1078869387 913612629 324897.8
2104031001 02104 1460 2017 Taltal 383666.2 2017 2104 13317 5109282942 5947 0.4465721 02104 2281662961 2023028066 340176.2
2104991999 02104 41 2017 Taltal 383666.2 2017 2104 13317 5109282942 190 0.0142675 02104 72896580 114545185 602869.4
2201011001 02201 959 2017 Calama 434325.1 2017 2201 165731 71981127235 3387 0.0204367 02201 1471058993 1443097629 426069.6


Guardamos:

saveRDS(h_y_m_comuna_corr, "P03C/region_02_P03C_u.rds")