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 == 9) 
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 9101011001 1 9101 552 2017
2 9101011002 1 9101 1462 2017
3 9101011003 1 9101 780 2017
4 9101011004 1 9101 224 2017
5 9101011005 1 9101 1042 2017
6 9101021001 1 9101 1417 2017
7 9101021002 1 9101 1140 2017
8 9101021003 1 9101 480 2017
9 9101021004 1 9101 571 2017
10 9101031001 1 9101 737 2017
11 9101031002 1 9101 1168 2017
12 9101031003 1 9101 647 2017
13 9101031004 1 9101 710 2017
14 9101031005 1 9101 761 2017
15 9101041001 1 9101 1367 2017
16 9101041002 1 9101 1203 2017
17 9101041003 1 9101 1231 2017
18 9101051001 1 9101 972 2017
19 9101051002 1 9101 814 2017
20 9101051003 1 9101 914 2017
21 9101051004 1 9101 1056 2017
22 9101051005 1 9101 807 2017
23 9101051006 1 9101 667 2017
24 9101051007 1 9101 707 2017
25 9101061001 1 9101 1089 2017
26 9101061002 1 9101 758 2017
27 9101061003 1 9101 869 2017
28 9101061004 1 9101 1598 2017
29 9101061005 1 9101 874 2017
30 9101061006 1 9101 859 2017
31 9101071001 1 9101 562 2017
32 9101071002 1 9101 1019 2017
33 9101081001 1 9101 992 2017
34 9101081002 1 9101 1150 2017
35 9101081003 1 9101 779 2017
36 9101081004 1 9101 661 2017
37 9101081005 1 9101 595 2017
38 9101081006 1 9101 799 2017
39 9101091001 1 9101 1696 2017
40 9101091002 1 9101 543 2017
41 9101091003 1 9101 1101 2017
42 9101091004 1 9101 1080 2017
43 9101091005 1 9101 760 2017
44 9101101001 1 9101 1536 2017
45 9101101002 1 9101 522 2017
46 9101101003 1 9101 96 2017
47 9101101004 1 9101 1018 2017
48 9101101005 1 9101 1588 2017
49 9101101006 1 9101 1768 2017
50 9101101007 1 9101 1394 2017
51 9101101008 1 9101 2113 2017
52 9101101009 1 9101 1122 2017
53 9101111001 1 9101 1629 2017
54 9101111002 1 9101 1407 2017
55 9101111003 1 9101 368 2017
56 9101121001 1 9101 879 2017
57 9101121002 1 9101 779 2017
58 9101121003 1 9101 1106 2017
59 9101141001 1 9101 753 2017
60 9101141002 1 9101 788 2017
61 9101141003 1 9101 1282 2017
62 9101141004 1 9101 764 2017
63 9101161001 1 9101 1092 2017
64 9101161002 1 9101 561 2017
65 9101161003 1 9101 595 2017
66 9101161004 1 9101 833 2017
67 9101171001 1 9101 852 2017
68 9101171002 1 9101 1421 2017
69 9101171003 1 9101 757 2017
70 9101171004 1 9101 933 2017
71 9101181001 1 9101 1351 2017
72 9101181002 1 9101 901 2017
73 9101181003 1 9101 847 2017
74 9101181004 1 9101 1566 2017
75 9101181005 1 9101 575 2017
76 9101181006 1 9101 892 2017
77 9101191001 1 9101 914 2017
78 9101191002 1 9101 823 2017
79 9101191003 1 9101 1746 2017
80 9101191004 1 9101 1353 2017
81 9101191005 1 9101 1406 2017
82 9101191006 1 9101 660 2017
83 9101991999 1 9101 145 2017
353 9102011001 1 9102 653 2017
354 9102021001 1 9102 1291 2017
355 9102021002 1 9102 970 2017
356 9102081001 1 9102 638 2017
357 9102991999 1 9102 24 2017
627 9103011001 1 9103 496 2017
628 9103021001 1 9103 615 2017
629 9103021002 1 9103 822 2017
630 9103101001 1 9103 469 2017
631 9103991999 1 9103 89 2017
901 9104011001 1 9104 647 2017
1171 9105011001 1 9105 628 2017
1172 9105011002 1 9105 877 2017
1173 9105021001 1 9105 601 2017
1174 9105061001 1 9105 15 2017
1175 9105091001 1 9105 39 2017
1176 9105991999 1 9105 78 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 9101011001 552 2017 09101
2 9101011002 1462 2017 09101
3 9101011003 780 2017 09101
4 9101011004 224 2017 09101
5 9101011005 1042 2017 09101
6 9101021001 1417 2017 09101
7 9101021002 1140 2017 09101
8 9101021003 480 2017 09101
9 9101021004 571 2017 09101
10 9101031001 737 2017 09101
11 9101031002 1168 2017 09101
12 9101031003 647 2017 09101
13 9101031004 710 2017 09101
14 9101031005 761 2017 09101
15 9101041001 1367 2017 09101
16 9101041002 1203 2017 09101
17 9101041003 1231 2017 09101
18 9101051001 972 2017 09101
19 9101051002 814 2017 09101
20 9101051003 914 2017 09101
21 9101051004 1056 2017 09101
22 9101051005 807 2017 09101
23 9101051006 667 2017 09101
24 9101051007 707 2017 09101
25 9101061001 1089 2017 09101
26 9101061002 758 2017 09101
27 9101061003 869 2017 09101
28 9101061004 1598 2017 09101
29 9101061005 874 2017 09101
30 9101061006 859 2017 09101
31 9101071001 562 2017 09101
32 9101071002 1019 2017 09101
33 9101081001 992 2017 09101
34 9101081002 1150 2017 09101
35 9101081003 779 2017 09101
36 9101081004 661 2017 09101
37 9101081005 595 2017 09101
38 9101081006 799 2017 09101
39 9101091001 1696 2017 09101
40 9101091002 543 2017 09101
41 9101091003 1101 2017 09101
42 9101091004 1080 2017 09101
43 9101091005 760 2017 09101
44 9101101001 1536 2017 09101
45 9101101002 522 2017 09101
46 9101101003 96 2017 09101
47 9101101004 1018 2017 09101
48 9101101005 1588 2017 09101
49 9101101006 1768 2017 09101
50 9101101007 1394 2017 09101
51 9101101008 2113 2017 09101
52 9101101009 1122 2017 09101
53 9101111001 1629 2017 09101
54 9101111002 1407 2017 09101
55 9101111003 368 2017 09101
56 9101121001 879 2017 09101
57 9101121002 779 2017 09101
58 9101121003 1106 2017 09101
59 9101141001 753 2017 09101
60 9101141002 788 2017 09101
61 9101141003 1282 2017 09101
62 9101141004 764 2017 09101
63 9101161001 1092 2017 09101
64 9101161002 561 2017 09101
65 9101161003 595 2017 09101
66 9101161004 833 2017 09101
67 9101171001 852 2017 09101
68 9101171002 1421 2017 09101
69 9101171003 757 2017 09101
70 9101171004 933 2017 09101
71 9101181001 1351 2017 09101
72 9101181002 901 2017 09101
73 9101181003 847 2017 09101
74 9101181004 1566 2017 09101
75 9101181005 575 2017 09101
76 9101181006 892 2017 09101
77 9101191001 914 2017 09101
78 9101191002 823 2017 09101
79 9101191003 1746 2017 09101
80 9101191004 1353 2017 09101
81 9101191005 1406 2017 09101
82 9101191006 660 2017 09101
83 9101991999 145 2017 09101
353 9102011001 653 2017 09102
354 9102021001 1291 2017 09102
355 9102021002 970 2017 09102
356 9102081001 638 2017 09102
357 9102991999 24 2017 09102
627 9103011001 496 2017 09103
628 9103021001 615 2017 09103
629 9103021002 822 2017 09103
630 9103101001 469 2017 09103
631 9103991999 89 2017 09103
901 9104011001 647 2017 09104
1171 9105011001 628 2017 09105
1172 9105011002 877 2017 09105
1173 9105021001 601 2017 09105
1174 9105061001 15 2017 09105
1175 9105091001 39 2017 09105
1176 9105991999 78 2017 09105


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
09101 9101011001 552 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101011002 1462 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101011003 780 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101011004 224 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101011005 1042 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101021001 1417 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101021002 1140 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101021003 480 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101021004 571 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101031001 737 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101031002 1168 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101031003 647 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101031004 710 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101031005 761 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101041001 1367 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101041002 1203 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101041003 1231 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101051001 972 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101051002 814 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101051003 914 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101051004 1056 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101051005 807 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101051006 667 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101051007 707 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101061001 1089 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101061002 758 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101061003 869 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101061004 1598 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101061005 874 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101061006 859 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101071001 562 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101071002 1019 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101081001 992 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101081002 1150 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101081003 779 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101081004 661 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101081005 595 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101081006 799 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101091001 1696 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101091002 543 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101091003 1101 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101091004 1080 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101091005 760 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101101001 1536 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101101002 522 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101101003 96 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101101004 1018 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101101005 1588 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101101006 1768 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101101007 1394 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101101008 2113 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101101009 1122 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101111001 1629 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101111002 1407 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101111003 368 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101121001 879 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101121002 779 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101121003 1106 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101141001 753 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101141002 788 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101141003 1282 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101141004 764 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101161001 1092 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101161002 561 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101161003 595 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101161004 833 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101171001 852 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101171002 1421 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101171003 757 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101171004 933 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101181001 1351 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101181002 901 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101181003 847 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101181004 1566 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101181005 575 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101181006 892 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101191001 914 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101191002 823 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101191003 1746 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101191004 1353 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101191005 1406 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101191006 660 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101991999 145 2017 Temuco 294512.7 2017 9101 282415 83174794799
09102 9102011001 653 2017 Carahue 237416.7 2017 9102 24533 5824543339
09102 9102021001 1291 2017 Carahue 237416.7 2017 9102 24533 5824543339
09102 9102021002 970 2017 Carahue 237416.7 2017 9102 24533 5824543339
09102 9102081001 638 2017 Carahue 237416.7 2017 9102 24533 5824543339
09102 9102991999 24 2017 Carahue 237416.7 2017 9102 24533 5824543339
09103 9103011001 496 2017 Cunco 247099.1 2017 9103 17526 4330659433
09103 9103021001 615 2017 Cunco 247099.1 2017 9103 17526 4330659433
09103 9103021002 822 2017 Cunco 247099.1 2017 9103 17526 4330659433
09103 9103101001 469 2017 Cunco 247099.1 2017 9103 17526 4330659433
09103 9103991999 89 2017 Cunco 247099.1 2017 9103 17526 4330659433
09104 9104011001 647 2017 Curarrehue 204180.7 2017 9104 7489 1529109215
09105 9105011001 628 2017 Freire 305541.7 2017 9105 24606 7518158340
09105 9105011002 877 2017 Freire 305541.7 2017 9105 24606 7518158340
09105 9105021001 601 2017 Freire 305541.7 2017 9105 24606 7518158340
09105 9105061001 15 2017 Freire 305541.7 2017 9105 24606 7518158340
09105 9105091001 39 2017 Freire 305541.7 2017 9105 24606 7518158340
09105 9105991999 78 2017 Freire 305541.7 2017 9105 24606 7518158340


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
09101 9101011001 552 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101011002 1462 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101011003 780 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101011004 224 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101011005 1042 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101021001 1417 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101021002 1140 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101021003 480 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101021004 571 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101031001 737 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101031002 1168 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101031003 647 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101031004 710 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101031005 761 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101041001 1367 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101041002 1203 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101041003 1231 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101051001 972 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101051002 814 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101051003 914 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101051004 1056 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101051005 807 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101051006 667 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101051007 707 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101061001 1089 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101061002 758 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101061003 869 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101061004 1598 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101061005 874 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101061006 859 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101071001 562 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101071002 1019 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101081001 992 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101081002 1150 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101081003 779 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101081004 661 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101081005 595 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101081006 799 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101091001 1696 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101091002 543 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101091003 1101 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101091004 1080 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101091005 760 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101101001 1536 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101101002 522 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101101003 96 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101101004 1018 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101101005 1588 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101101006 1768 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101101007 1394 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101101008 2113 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101101009 1122 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101111001 1629 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101111002 1407 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101111003 368 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101121001 879 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101121002 779 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101121003 1106 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101141001 753 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101141002 788 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101141003 1282 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101141004 764 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101161001 1092 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101161002 561 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101161003 595 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101161004 833 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101171001 852 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101171002 1421 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101171003 757 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101171004 933 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101181001 1351 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101181002 901 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101181003 847 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101181004 1566 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101181005 575 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101181006 892 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101191001 914 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101191002 823 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101191003 1746 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101191004 1353 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101191005 1406 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101191006 660 2017 Temuco 294512.7 2017 9101 282415 83174794799
09101 9101991999 145 2017 Temuco 294512.7 2017 9101 282415 83174794799
09102 9102011001 653 2017 Carahue 237416.7 2017 9102 24533 5824543339
09102 9102021001 1291 2017 Carahue 237416.7 2017 9102 24533 5824543339
09102 9102021002 970 2017 Carahue 237416.7 2017 9102 24533 5824543339
09102 9102081001 638 2017 Carahue 237416.7 2017 9102 24533 5824543339
09102 9102991999 24 2017 Carahue 237416.7 2017 9102 24533 5824543339
09103 9103011001 496 2017 Cunco 247099.1 2017 9103 17526 4330659433
09103 9103021001 615 2017 Cunco 247099.1 2017 9103 17526 4330659433
09103 9103021002 822 2017 Cunco 247099.1 2017 9103 17526 4330659433
09103 9103101001 469 2017 Cunco 247099.1 2017 9103 17526 4330659433
09103 9103991999 89 2017 Cunco 247099.1 2017 9103 17526 4330659433
09104 9104011001 647 2017 Curarrehue 204180.7 2017 9104 7489 1529109215
09105 9105011001 628 2017 Freire 305541.7 2017 9105 24606 7518158340
09105 9105011002 877 2017 Freire 305541.7 2017 9105 24606 7518158340
09105 9105021001 601 2017 Freire 305541.7 2017 9105 24606 7518158340
09105 9105061001 15 2017 Freire 305541.7 2017 9105 24606 7518158340
09105 9105091001 39 2017 Freire 305541.7 2017 9105 24606 7518158340
09105 9105991999 78 2017 Freire 305541.7 2017 9105 24606 7518158340


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
9101011001 09101 552 2017 Temuco 294512.7 2017 9101 282415 83174794799 2220 0.0078608 09101
9101011002 09101 1462 2017 Temuco 294512.7 2017 9101 282415 83174794799 3909 0.0138413 09101
9101011003 09101 780 2017 Temuco 294512.7 2017 9101 282415 83174794799 2067 0.0073190 09101
9101011004 09101 224 2017 Temuco 294512.7 2017 9101 282415 83174794799 662 0.0023441 09101
9101011005 09101 1042 2017 Temuco 294512.7 2017 9101 282415 83174794799 2592 0.0091780 09101
9101021001 09101 1417 2017 Temuco 294512.7 2017 9101 282415 83174794799 3196 0.0113167 09101
9101021002 09101 1140 2017 Temuco 294512.7 2017 9101 282415 83174794799 2969 0.0105129 09101
9101021003 09101 480 2017 Temuco 294512.7 2017 9101 282415 83174794799 1480 0.0052405 09101
9101021004 09101 571 2017 Temuco 294512.7 2017 9101 282415 83174794799 1826 0.0064657 09101
9101031001 09101 737 2017 Temuco 294512.7 2017 9101 282415 83174794799 2594 0.0091851 09101
9101031002 09101 1168 2017 Temuco 294512.7 2017 9101 282415 83174794799 4200 0.0148717 09101
9101031003 09101 647 2017 Temuco 294512.7 2017 9101 282415 83174794799 2208 0.0078183 09101
9101031004 09101 710 2017 Temuco 294512.7 2017 9101 282415 83174794799 2390 0.0084627 09101
9101031005 09101 761 2017 Temuco 294512.7 2017 9101 282415 83174794799 2992 0.0105943 09101
9101041001 09101 1367 2017 Temuco 294512.7 2017 9101 282415 83174794799 4994 0.0176832 09101
9101041002 09101 1203 2017 Temuco 294512.7 2017 9101 282415 83174794799 4641 0.0164333 09101
9101041003 09101 1231 2017 Temuco 294512.7 2017 9101 282415 83174794799 4375 0.0154914 09101
9101051001 09101 972 2017 Temuco 294512.7 2017 9101 282415 83174794799 3142 0.0111255 09101
9101051002 09101 814 2017 Temuco 294512.7 2017 9101 282415 83174794799 2998 0.0106156 09101
9101051003 09101 914 2017 Temuco 294512.7 2017 9101 282415 83174794799 3078 0.0108989 09101
9101051004 09101 1056 2017 Temuco 294512.7 2017 9101 282415 83174794799 3587 0.0127012 09101
9101051005 09101 807 2017 Temuco 294512.7 2017 9101 282415 83174794799 2751 0.0097410 09101
9101051006 09101 667 2017 Temuco 294512.7 2017 9101 282415 83174794799 2499 0.0088487 09101
9101051007 09101 707 2017 Temuco 294512.7 2017 9101 282415 83174794799 2499 0.0088487 09101
9101061001 09101 1089 2017 Temuco 294512.7 2017 9101 282415 83174794799 3146 0.0111396 09101
9101061002 09101 758 2017 Temuco 294512.7 2017 9101 282415 83174794799 2322 0.0082219 09101
9101061003 09101 869 2017 Temuco 294512.7 2017 9101 282415 83174794799 2821 0.0099888 09101
9101061004 09101 1598 2017 Temuco 294512.7 2017 9101 282415 83174794799 5347 0.0189331 09101
9101061005 09101 874 2017 Temuco 294512.7 2017 9101 282415 83174794799 2768 0.0098012 09101
9101061006 09101 859 2017 Temuco 294512.7 2017 9101 282415 83174794799 2682 0.0094967 09101
9101071001 09101 562 2017 Temuco 294512.7 2017 9101 282415 83174794799 1795 0.0063559 09101
9101071002 09101 1019 2017 Temuco 294512.7 2017 9101 282415 83174794799 3047 0.0107891 09101
9101081001 09101 992 2017 Temuco 294512.7 2017 9101 282415 83174794799 3402 0.0120461 09101
9101081002 09101 1150 2017 Temuco 294512.7 2017 9101 282415 83174794799 3965 0.0140396 09101
9101081003 09101 779 2017 Temuco 294512.7 2017 9101 282415 83174794799 3304 0.0116991 09101
9101081004 09101 661 2017 Temuco 294512.7 2017 9101 282415 83174794799 2161 0.0076519 09101
9101081005 09101 595 2017 Temuco 294512.7 2017 9101 282415 83174794799 2222 0.0078679 09101
9101081006 09101 799 2017 Temuco 294512.7 2017 9101 282415 83174794799 2903 0.0102792 09101
9101091001 09101 1696 2017 Temuco 294512.7 2017 9101 282415 83174794799 5474 0.0193828 09101
9101091002 09101 543 2017 Temuco 294512.7 2017 9101 282415 83174794799 1649 0.0058389 09101
9101091003 09101 1101 2017 Temuco 294512.7 2017 9101 282415 83174794799 3045 0.0107820 09101
9101091004 09101 1080 2017 Temuco 294512.7 2017 9101 282415 83174794799 2668 0.0094471 09101
9101091005 09101 760 2017 Temuco 294512.7 2017 9101 282415 83174794799 1882 0.0066640 09101
9101101001 09101 1536 2017 Temuco 294512.7 2017 9101 282415 83174794799 5434 0.0192412 09101
9101101002 09101 522 2017 Temuco 294512.7 2017 9101 282415 83174794799 1589 0.0056265 09101
9101101003 09101 96 2017 Temuco 294512.7 2017 9101 282415 83174794799 326 0.0011543 09101
9101101004 09101 1018 2017 Temuco 294512.7 2017 9101 282415 83174794799 3639 0.0128853 09101
9101101005 09101 1588 2017 Temuco 294512.7 2017 9101 282415 83174794799 5033 0.0178213 09101
9101101006 09101 1768 2017 Temuco 294512.7 2017 9101 282415 83174794799 5891 0.0208594 09101
9101101007 09101 1394 2017 Temuco 294512.7 2017 9101 282415 83174794799 5050 0.0178815 09101
9101101008 09101 2113 2017 Temuco 294512.7 2017 9101 282415 83174794799 6739 0.0238620 09101
9101101009 09101 1122 2017 Temuco 294512.7 2017 9101 282415 83174794799 4395 0.0155622 09101
9101111001 09101 1629 2017 Temuco 294512.7 2017 9101 282415 83174794799 5176 0.0183276 09101
9101111002 09101 1407 2017 Temuco 294512.7 2017 9101 282415 83174794799 4664 0.0165147 09101
9101111003 09101 368 2017 Temuco 294512.7 2017 9101 282415 83174794799 1407 0.0049820 09101
9101121001 09101 879 2017 Temuco 294512.7 2017 9101 282415 83174794799 2796 0.0099003 09101
9101121002 09101 779 2017 Temuco 294512.7 2017 9101 282415 83174794799 2711 0.0095993 09101
9101121003 09101 1106 2017 Temuco 294512.7 2017 9101 282415 83174794799 3947 0.0139759 09101
9101141001 09101 753 2017 Temuco 294512.7 2017 9101 282415 83174794799 2408 0.0085265 09101
9101141002 09101 788 2017 Temuco 294512.7 2017 9101 282415 83174794799 3217 0.0113910 09101
9101141003 09101 1282 2017 Temuco 294512.7 2017 9101 282415 83174794799 4707 0.0166670 09101
9101141004 09101 764 2017 Temuco 294512.7 2017 9101 282415 83174794799 2780 0.0098437 09101
9101161001 09101 1092 2017 Temuco 294512.7 2017 9101 282415 83174794799 3387 0.0119930 09101
9101161002 09101 561 2017 Temuco 294512.7 2017 9101 282415 83174794799 1966 0.0069614 09101
9101161003 09101 595 2017 Temuco 294512.7 2017 9101 282415 83174794799 2025 0.0071703 09101
9101161004 09101 833 2017 Temuco 294512.7 2017 9101 282415 83174794799 2583 0.0091461 09101
9101171001 09101 852 2017 Temuco 294512.7 2017 9101 282415 83174794799 2682 0.0094967 09101
9101171002 09101 1421 2017 Temuco 294512.7 2017 9101 282415 83174794799 4209 0.0149036 09101
9101171003 09101 757 2017 Temuco 294512.7 2017 9101 282415 83174794799 2211 0.0078289 09101
9101171004 09101 933 2017 Temuco 294512.7 2017 9101 282415 83174794799 2954 0.0104598 09101
9101181001 09101 1351 2017 Temuco 294512.7 2017 9101 282415 83174794799 4459 0.0157888 09101
9101181002 09101 901 2017 Temuco 294512.7 2017 9101 282415 83174794799 2620 0.0092771 09101
9101181003 09101 847 2017 Temuco 294512.7 2017 9101 282415 83174794799 2497 0.0088416 09101
9101181004 09101 1566 2017 Temuco 294512.7 2017 9101 282415 83174794799 4641 0.0164333 09101
9101181005 09101 575 2017 Temuco 294512.7 2017 9101 282415 83174794799 1940 0.0068693 09101
9101181006 09101 892 2017 Temuco 294512.7 2017 9101 282415 83174794799 2902 0.0102757 09101
9101191001 09101 914 2017 Temuco 294512.7 2017 9101 282415 83174794799 3430 0.0121452 09101
9101191002 09101 823 2017 Temuco 294512.7 2017 9101 282415 83174794799 2483 0.0087920 09101
9101191003 09101 1746 2017 Temuco 294512.7 2017 9101 282415 83174794799 5449 0.0192943 09101
9101191004 09101 1353 2017 Temuco 294512.7 2017 9101 282415 83174794799 4595 0.0162704 09101
9101191005 09101 1406 2017 Temuco 294512.7 2017 9101 282415 83174794799 4718 0.0167059 09101
9101191006 09101 660 2017 Temuco 294512.7 2017 9101 282415 83174794799 2165 0.0076660 09101
9101991999 09101 145 2017 Temuco 294512.7 2017 9101 282415 83174794799 868 0.0030735 09101
9102011001 09102 653 2017 Carahue 237416.7 2017 9102 24533 5824543339 2178 0.0887784 09102
9102021001 09102 1291 2017 Carahue 237416.7 2017 9102 24533 5824543339 5062 0.2063343 09102
9102021002 09102 970 2017 Carahue 237416.7 2017 9102 24533 5824543339 4085 0.1665104 09102
9102081001 09102 638 2017 Carahue 237416.7 2017 9102 24533 5824543339 1860 0.0758162 09102
9102991999 09102 24 2017 Carahue 237416.7 2017 9102 24533 5824543339 68 0.0027718 09102
9103011001 09103 496 2017 Cunco 247099.1 2017 9103 17526 4330659433 1592 0.0908365 09103
9103021001 09103 615 2017 Cunco 247099.1 2017 9103 17526 4330659433 2075 0.1183955 09103
9103021002 09103 822 2017 Cunco 247099.1 2017 9103 17526 4330659433 3499 0.1996462 09103
9103101001 09103 469 2017 Cunco 247099.1 2017 9103 17526 4330659433 1428 0.0814789 09103
9103991999 09103 89 2017 Cunco 247099.1 2017 9103 17526 4330659433 253 0.0144357 09103
9104011001 09104 647 2017 Curarrehue 204180.7 2017 9104 7489 1529109215 2148 0.2868207 09104
9105011001 09105 628 2017 Freire 305541.7 2017 9105 24606 7518158340 2214 0.0899781 09105
9105011002 09105 877 2017 Freire 305541.7 2017 9105 24606 7518158340 3193 0.1297651 09105
9105021001 09105 601 2017 Freire 305541.7 2017 9105 24606 7518158340 2072 0.0842071 09105
9105061001 09105 15 2017 Freire 305541.7 2017 9105 24606 7518158340 36 0.0014631 09105
9105091001 09105 39 2017 Freire 305541.7 2017 9105 24606 7518158340 154 0.0062586 09105
9105991999 09105 78 2017 Freire 305541.7 2017 9105 24606 7518158340 217 0.0088190 09105


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
9101011001 09101 552 2017 Temuco 294512.7 2017 9101 282415 83174794799 2220 0.0078608 09101 653818120
9101011002 09101 1462 2017 Temuco 294512.7 2017 9101 282415 83174794799 3909 0.0138413 09101 1151250015
9101011003 09101 780 2017 Temuco 294512.7 2017 9101 282415 83174794799 2067 0.0073190 09101 608757682
9101011004 09101 224 2017 Temuco 294512.7 2017 9101 282415 83174794799 662 0.0023441 09101 194967385
9101011005 09101 1042 2017 Temuco 294512.7 2017 9101 282415 83174794799 2592 0.0091780 09101 763376832
9101021001 09101 1417 2017 Temuco 294512.7 2017 9101 282415 83174794799 3196 0.0113167 09101 941262483
9101021002 09101 1140 2017 Temuco 294512.7 2017 9101 282415 83174794799 2969 0.0105129 09101 874408108
9101021003 09101 480 2017 Temuco 294512.7 2017 9101 282415 83174794799 1480 0.0052405 09101 435878747
9101021004 09101 571 2017 Temuco 294512.7 2017 9101 282415 83174794799 1826 0.0064657 09101 537780130
9101031001 09101 737 2017 Temuco 294512.7 2017 9101 282415 83174794799 2594 0.0091851 09101 763965858
9101031002 09101 1168 2017 Temuco 294512.7 2017 9101 282415 83174794799 4200 0.0148717 09101 1236953201
9101031003 09101 647 2017 Temuco 294512.7 2017 9101 282415 83174794799 2208 0.0078183 09101 650283968
9101031004 09101 710 2017 Temuco 294512.7 2017 9101 282415 83174794799 2390 0.0084627 09101 703885274
9101031005 09101 761 2017 Temuco 294512.7 2017 9101 282415 83174794799 2992 0.0105943 09101 881181899
9101041001 09101 1367 2017 Temuco 294512.7 2017 9101 282415 83174794799 4994 0.0176832 09101 1470796258
9101041002 09101 1203 2017 Temuco 294512.7 2017 9101 282415 83174794799 4641 0.0164333 09101 1366833287
9101041003 09101 1231 2017 Temuco 294512.7 2017 9101 282415 83174794799 4375 0.0154914 09101 1288492917
9101051001 09101 972 2017 Temuco 294512.7 2017 9101 282415 83174794799 3142 0.0111255 09101 925358799
9101051002 09101 814 2017 Temuco 294512.7 2017 9101 282415 83174794799 2998 0.0106156 09101 882948975
9101051003 09101 914 2017 Temuco 294512.7 2017 9101 282415 83174794799 3078 0.0108989 09101 906509988
9101051004 09101 1056 2017 Temuco 294512.7 2017 9101 282415 83174794799 3587 0.0127012 09101 1056416936
9101051005 09101 807 2017 Temuco 294512.7 2017 9101 282415 83174794799 2751 0.0097410 09101 810204346
9101051006 09101 667 2017 Temuco 294512.7 2017 9101 282415 83174794799 2499 0.0088487 09101 735987154
9101051007 09101 707 2017 Temuco 294512.7 2017 9101 282415 83174794799 2499 0.0088487 09101 735987154
9101061001 09101 1089 2017 Temuco 294512.7 2017 9101 282415 83174794799 3146 0.0111396 09101 926536850
9101061002 09101 758 2017 Temuco 294512.7 2017 9101 282415 83174794799 2322 0.0082219 09101 683858412
9101061003 09101 869 2017 Temuco 294512.7 2017 9101 282415 83174794799 2821 0.0099888 09101 830820233
9101061004 09101 1598 2017 Temuco 294512.7 2017 9101 282415 83174794799 5347 0.0189331 09101 1574759229
9101061005 09101 874 2017 Temuco 294512.7 2017 9101 282415 83174794799 2768 0.0098012 09101 815211062
9101061006 09101 859 2017 Temuco 294512.7 2017 9101 282415 83174794799 2682 0.0094967 09101 789882972
9101071001 09101 562 2017 Temuco 294512.7 2017 9101 282415 83174794799 1795 0.0063559 09101 528650237
9101071002 09101 1019 2017 Temuco 294512.7 2017 9101 282415 83174794799 3047 0.0107891 09101 897380096
9101081001 09101 992 2017 Temuco 294512.7 2017 9101 282415 83174794799 3402 0.0120461 09101 1001932093
9101081002 09101 1150 2017 Temuco 294512.7 2017 9101 282415 83174794799 3965 0.0140396 09101 1167742724
9101081003 09101 779 2017 Temuco 294512.7 2017 9101 282415 83174794799 3304 0.0116991 09101 973069851
9101081004 09101 661 2017 Temuco 294512.7 2017 9101 282415 83174794799 2161 0.0076519 09101 636441873
9101081005 09101 595 2017 Temuco 294512.7 2017 9101 282415 83174794799 2222 0.0078679 09101 654407146
9101081006 09101 799 2017 Temuco 294512.7 2017 9101 282415 83174794799 2903 0.0102792 09101 854970272
9101091001 09101 1696 2017 Temuco 294512.7 2017 9101 282415 83174794799 5474 0.0193828 09101 1612162338
9101091002 09101 543 2017 Temuco 294512.7 2017 9101 282415 83174794799 1649 0.0058389 09101 485651388
9101091003 09101 1101 2017 Temuco 294512.7 2017 9101 282415 83174794799 3045 0.0107820 09101 896791070
9101091004 09101 1080 2017 Temuco 294512.7 2017 9101 282415 83174794799 2668 0.0094471 09101 785759795
9101091005 09101 760 2017 Temuco 294512.7 2017 9101 282415 83174794799 1882 0.0066640 09101 554272839
9101101001 09101 1536 2017 Temuco 294512.7 2017 9101 282415 83174794799 5434 0.0192412 09101 1600381831
9101101002 09101 522 2017 Temuco 294512.7 2017 9101 282415 83174794799 1589 0.0056265 09101 467980628
9101101003 09101 96 2017 Temuco 294512.7 2017 9101 282415 83174794799 326 0.0011543 09101 96011129
9101101004 09101 1018 2017 Temuco 294512.7 2017 9101 282415 83174794799 3639 0.0128853 09101 1071731595
9101101005 09101 1588 2017 Temuco 294512.7 2017 9101 282415 83174794799 5033 0.0178213 09101 1482282252
9101101006 09101 1768 2017 Temuco 294512.7 2017 9101 282415 83174794799 5891 0.0208594 09101 1734974120
9101101007 09101 1394 2017 Temuco 294512.7 2017 9101 282415 83174794799 5050 0.0178815 09101 1487288967
9101101008 09101 2113 2017 Temuco 294512.7 2017 9101 282415 83174794799 6739 0.0238620 09101 1984720862
9101101009 09101 1122 2017 Temuco 294512.7 2017 9101 282415 83174794799 4395 0.0155622 09101 1294383171
9101111001 09101 1629 2017 Temuco 294512.7 2017 9101 282415 83174794799 5176 0.0183276 09101 1524397563
9101111002 09101 1407 2017 Temuco 294512.7 2017 9101 282415 83174794799 4664 0.0165147 09101 1373607078
9101111003 09101 368 2017 Temuco 294512.7 2017 9101 282415 83174794799 1407 0.0049820 09101 414379322
9101121001 09101 879 2017 Temuco 294512.7 2017 9101 282415 83174794799 2796 0.0099003 09101 823457416
9101121002 09101 779 2017 Temuco 294512.7 2017 9101 282415 83174794799 2711 0.0095993 09101 798423840
9101121003 09101 1106 2017 Temuco 294512.7 2017 9101 282415 83174794799 3947 0.0139759 09101 1162441496
9101141001 09101 753 2017 Temuco 294512.7 2017 9101 282415 83174794799 2408 0.0085265 09101 709186502
9101141002 09101 788 2017 Temuco 294512.7 2017 9101 282415 83174794799 3217 0.0113910 09101 947447249
9101141003 09101 1282 2017 Temuco 294512.7 2017 9101 282415 83174794799 4707 0.0166670 09101 1386271123
9101141004 09101 764 2017 Temuco 294512.7 2017 9101 282415 83174794799 2780 0.0098437 09101 818745214
9101161001 09101 1092 2017 Temuco 294512.7 2017 9101 282415 83174794799 3387 0.0119930 09101 997514403
9101161002 09101 561 2017 Temuco 294512.7 2017 9101 282415 83174794799 1966 0.0069614 09101 579011903
9101161003 09101 595 2017 Temuco 294512.7 2017 9101 282415 83174794799 2025 0.0071703 09101 596388150
9101161004 09101 833 2017 Temuco 294512.7 2017 9101 282415 83174794799 2583 0.0091461 09101 760726218
9101171001 09101 852 2017 Temuco 294512.7 2017 9101 282415 83174794799 2682 0.0094967 09101 789882972
9101171002 09101 1421 2017 Temuco 294512.7 2017 9101 282415 83174794799 4209 0.0149036 09101 1239603815
9101171003 09101 757 2017 Temuco 294512.7 2017 9101 282415 83174794799 2211 0.0078289 09101 651167506
9101171004 09101 933 2017 Temuco 294512.7 2017 9101 282415 83174794799 2954 0.0104598 09101 869990418
9101181001 09101 1351 2017 Temuco 294512.7 2017 9101 282415 83174794799 4459 0.0157888 09101 1313231981
9101181002 09101 901 2017 Temuco 294512.7 2017 9101 282415 83174794799 2620 0.0092771 09101 771623187
9101181003 09101 847 2017 Temuco 294512.7 2017 9101 282415 83174794799 2497 0.0088416 09101 735398129
9101181004 09101 1566 2017 Temuco 294512.7 2017 9101 282415 83174794799 4641 0.0164333 09101 1366833287
9101181005 09101 575 2017 Temuco 294512.7 2017 9101 282415 83174794799 1940 0.0068693 09101 571354574
9101181006 09101 892 2017 Temuco 294512.7 2017 9101 282415 83174794799 2902 0.0102757 09101 854675759
9101191001 09101 914 2017 Temuco 294512.7 2017 9101 282415 83174794799 3430 0.0121452 09101 1010178447
9101191002 09101 823 2017 Temuco 294512.7 2017 9101 282415 83174794799 2483 0.0087920 09101 731274952
9101191003 09101 1746 2017 Temuco 294512.7 2017 9101 282415 83174794799 5449 0.0192943 09101 1604799521
9101191004 09101 1353 2017 Temuco 294512.7 2017 9101 282415 83174794799 4595 0.0162704 09101 1353285704
9101191005 09101 1406 2017 Temuco 294512.7 2017 9101 282415 83174794799 4718 0.0167059 09101 1389510762
9101191006 09101 660 2017 Temuco 294512.7 2017 9101 282415 83174794799 2165 0.0076660 09101 637619924
9101991999 09101 145 2017 Temuco 294512.7 2017 9101 282415 83174794799 868 0.0030735 09101 255636995
9102011001 09102 653 2017 Carahue 237416.7 2017 9102 24533 5824543339 2178 0.0887784 09102 517093523
9102021001 09102 1291 2017 Carahue 237416.7 2017 9102 24533 5824543339 5062 0.2063343 09102 1201803219
9102021002 09102 970 2017 Carahue 237416.7 2017 9102 24533 5824543339 4085 0.1665104 09102 969847126
9102081001 09102 638 2017 Carahue 237416.7 2017 9102 24533 5824543339 1860 0.0758162 09102 441595019
9102991999 09102 24 2017 Carahue 237416.7 2017 9102 24533 5824543339 68 0.0027718 09102 16144334
9103011001 09103 496 2017 Cunco 247099.1 2017 9103 17526 4330659433 1592 0.0908365 09103 393381822
9103021001 09103 615 2017 Cunco 247099.1 2017 9103 17526 4330659433 2075 0.1183955 09103 512730704
9103021002 09103 822 2017 Cunco 247099.1 2017 9103 17526 4330659433 3499 0.1996462 09103 864599872
9103101001 09103 469 2017 Cunco 247099.1 2017 9103 17526 4330659433 1428 0.0814789 09103 352857564
9103991999 09103 89 2017 Cunco 247099.1 2017 9103 17526 4330659433 253 0.0144357 09103 62516081
9104011001 09104 647 2017 Curarrehue 204180.7 2017 9104 7489 1529109215 2148 0.2868207 09104 438580130
9105011001 09105 628 2017 Freire 305541.7 2017 9105 24606 7518158340 2214 0.0899781 09105 676469258
9105011002 09105 877 2017 Freire 305541.7 2017 9105 24606 7518158340 3193 0.1297651 09105 975594553
9105021001 09105 601 2017 Freire 305541.7 2017 9105 24606 7518158340 2072 0.0842071 09105 633082341
9105061001 09105 15 2017 Freire 305541.7 2017 9105 24606 7518158340 36 0.0014631 09105 10999500
9105091001 09105 39 2017 Freire 305541.7 2017 9105 24606 7518158340 154 0.0062586 09105 47053417
9105991999 09105 78 2017 Freire 305541.7 2017 9105 24606 7518158340 217 0.0088190 09105 66302542

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 
## -534716630  -49489156    6180433   54563472  302040334 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept) -16069560   12950870  -1.241    0.216    
## Freq.x         937637      15156  61.866   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 106700000 on 267 degrees of freedom
## Multiple R-squared:  0.9348, Adjusted R-squared:  0.9345 
## F-statistic:  3827 on 1 and 267 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.566118259061716 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.79807818532165 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 \]
6 log-raíz 0.843808909178217 linearMod <- lm( log(multi_pob)~sqrt(Freq.x) , data=h_y_m_comuna_corr_01) \[ ''hat Y = e^{''beta_0 + ''beta_1 ''sqrt{X}} \]
4 raíz cuadrada 0.852944522724022 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.9345457536158 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.9345457536158 linearMod <- lm( multi_pob~(Freq.x^3) , data=h_y_m_comuna_corr_01) \[ ''hat Y = ''beta_0 + ''beta_1 X^3 \]
5 raíz-raíz 0.960651329285941 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.976442788956171 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.79472 -0.12009  0.01436  0.11199  1.32828 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 13.79726    0.05917   233.2   <2e-16 ***
## log(Freq.x)  0.98651    0.00936   105.4   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.2146 on 267 degrees of freedom
## Multiple R-squared:  0.9765, Adjusted R-squared:  0.9764 
## F-statistic: 1.111e+04 on 1 and 267 DF,  p-value: < 2.2e-16
aa <- linearMod$coefficients[1]
aa
## (Intercept) 
##    13.79726
bb <- linearMod$coefficients[2]
bb
## log(Freq.x) 
##   0.9865098

9 Modelo log-log (log-log)

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

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.79472 -0.12009  0.01436  0.11199  1.32828 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 13.79726    0.05917   233.2   <2e-16 ***
## log(Freq.x)  0.98651    0.00936   105.4   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.2146 on 267 degrees of freedom
## Multiple R-squared:  0.9765, Adjusted R-squared:  0.9764 
## F-statistic: 1.111e+04 on 1 and 267 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^{13.79726 +0.9865098 \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
9101011001 09101 552 2017 Temuco 294512.7 2017 9101 282415 83174794799 2220 0.0078608 09101 653818120 497762900
9101011002 09101 1462 2017 Temuco 294512.7 2017 9101 282415 83174794799 3909 0.0138413 09101 1151250015 1301140964
9101011003 09101 780 2017 Temuco 294512.7 2017 9101 282415 83174794799 2067 0.0073190 09101 608757682 700087656
9101011004 09101 224 2017 Temuco 294512.7 2017 9101 282415 83174794799 662 0.0023441 09101 194967385 204463343
9101011005 09101 1042 2017 Temuco 294512.7 2017 9101 282415 83174794799 2592 0.0091780 09101 763376832 931598609
9101021001 09101 1417 2017 Temuco 294512.7 2017 9101 282415 83174794799 3196 0.0113167 09101 941262483 1261624143
9101021002 09101 1140 2017 Temuco 294512.7 2017 9101 282415 83174794799 2969 0.0105129 09101 874408108 1017980232
9101021003 09101 480 2017 Temuco 294512.7 2017 9101 282415 83174794799 1480 0.0052405 09101 435878747 433654153
9101021004 09101 571 2017 Temuco 294512.7 2017 9101 282415 83174794799 1826 0.0064657 09101 537780130 514661035
9101031001 09101 737 2017 Temuco 294512.7 2017 9101 282415 83174794799 2594 0.0091851 09101 763965858 661999300
9101031002 09101 1168 2017 Temuco 294512.7 2017 9101 282415 83174794799 4200 0.0148717 09101 1236953201 1042641906
9101031003 09101 647 2017 Temuco 294512.7 2017 9101 282415 83174794799 2208 0.0078183 09101 650283968 582180121
9101031004 09101 710 2017 Temuco 294512.7 2017 9101 282415 83174794799 2390 0.0084627 09101 703885274 638068134
9101031005 09101 761 2017 Temuco 294512.7 2017 9101 282415 83174794799 2992 0.0105943 09101 881181899 683261506
9101041001 09101 1367 2017 Temuco 294512.7 2017 9101 282415 83174794799 4994 0.0176832 09101 1470796258 1217696677
9101041002 09101 1203 2017 Temuco 294512.7 2017 9101 282415 83174794799 4641 0.0164333 09101 1366833287 1073457807
9101041003 09101 1231 2017 Temuco 294512.7 2017 9101 282415 83174794799 4375 0.0154914 09101 1288492917 1098101803
9101051001 09101 972 2017 Temuco 294512.7 2017 9101 282415 83174794799 3142 0.0111255 09101 925358799 869830839
9101051002 09101 814 2017 Temuco 294512.7 2017 9101 282415 83174794799 2998 0.0106156 09101 882948975 730183898
9101051003 09101 914 2017 Temuco 294512.7 2017 9101 282415 83174794799 3078 0.0108989 09101 906509988 818606504
9101051004 09101 1056 2017 Temuco 294512.7 2017 9101 282415 83174794799 3587 0.0127012 09101 1056416936 943945322
9101051005 09101 807 2017 Temuco 294512.7 2017 9101 282415 83174794799 2751 0.0097410 09101 810204346 723989023
9101051006 09101 667 2017 Temuco 294512.7 2017 9101 282415 83174794799 2499 0.0088487 09101 735987154 599929978
9101051007 09101 707 2017 Temuco 294512.7 2017 9101 282415 83174794799 2499 0.0088487 09101 735987154 635408366
9101061001 09101 1089 2017 Temuco 294512.7 2017 9101 282415 83174794799 3146 0.0111396 09101 926536850 973039605
9101061002 09101 758 2017 Temuco 294512.7 2017 9101 282415 83174794799 2322 0.0082219 09101 683858412 680604230
9101061003 09101 869 2017 Temuco 294512.7 2017 9101 282415 83174794799 2821 0.0099888 09101 830820233 778833393
9101061004 09101 1598 2017 Temuco 294512.7 2017 9101 282415 83174794799 5347 0.0189331 09101 1574759229 1420471857
9101061005 09101 874 2017 Temuco 294512.7 2017 9101 282415 83174794799 2768 0.0098012 09101 815211062 783253974
9101061006 09101 859 2017 Temuco 294512.7 2017 9101 282415 83174794799 2682 0.0094967 09101 789882972 769991199
9101071001 09101 562 2017 Temuco 294512.7 2017 9101 282415 83174794799 1795 0.0063559 09101 528650237 506657616
9101071002 09101 1019 2017 Temuco 294512.7 2017 9101 282415 83174794799 3047 0.0107891 09101 897380096 911309849
9101081001 09101 992 2017 Temuco 294512.7 2017 9101 282415 83174794799 3402 0.0120461 09101 1001932093 887484715
9101081002 09101 1150 2017 Temuco 294512.7 2017 9101 282415 83174794799 3965 0.0140396 09101 1167742724 1026788901
9101081003 09101 779 2017 Temuco 294512.7 2017 9101 282415 83174794799 3304 0.0116991 09101 973069851 699202208
9101081004 09101 661 2017 Temuco 294512.7 2017 9101 282415 83174794799 2161 0.0076519 09101 636441873 594605785
9101081005 09101 595 2017 Temuco 294512.7 2017 9101 282415 83174794799 2222 0.0078679 09101 654407146 535995236
9101081006 09101 799 2017 Temuco 294512.7 2017 9101 282415 83174794799 2903 0.0102792 09101 854970272 716908277
9101091001 09101 1696 2017 Temuco 294512.7 2017 9101 282415 83174794799 5474 0.0193828 09101 1612162338 1506374646
9101091002 09101 543 2017 Temuco 294512.7 2017 9101 282415 83174794799 1649 0.0058389 09101 485651388 489755798
9101091003 09101 1101 2017 Temuco 294512.7 2017 9101 282415 83174794799 3045 0.0107820 09101 896791070 983616377
9101091004 09101 1080 2017 Temuco 294512.7 2017 9101 282415 83174794799 2668 0.0094471 09101 785759795 965105995
9101091005 09101 760 2017 Temuco 294512.7 2017 9101 282415 83174794799 1882 0.0066640 09101 554272839 682375763
9101101001 09101 1536 2017 Temuco 294512.7 2017 9101 282415 83174794799 5434 0.0192412 09101 1600381831 1366088739
9101101002 09101 522 2017 Temuco 294512.7 2017 9101 282415 83174794799 1589 0.0056265 09101 467980628 471065542
9101101003 09101 96 2017 Temuco 294512.7 2017 9101 282415 83174794799 326 0.0011543 09101 96011129 88634491
9101101004 09101 1018 2017 Temuco 294512.7 2017 9101 282415 83174794799 3639 0.0128853 09101 1071731595 910427590
9101101005 09101 1588 2017 Temuco 294512.7 2017 9101 282415 83174794799 5033 0.0178213 09101 1482282252 1411702341
9101101006 09101 1768 2017 Temuco 294512.7 2017 9101 282415 83174794799 5891 0.0208594 09101 1734974120 1569444005
9101101007 09101 1394 2017 Temuco 294512.7 2017 9101 282415 83174794799 5050 0.0178815 09101 1487288967 1241420151
9101101008 09101 2113 2017 Temuco 294512.7 2017 9101 282415 83174794799 6739 0.0238620 09101 1984720862 1871193445
9101101009 09101 1122 2017 Temuco 294512.7 2017 9101 282415 83174794799 4395 0.0155622 09101 1294383171 1002121995
9101111001 09101 1629 2017 Temuco 294512.7 2017 9101 282415 83174794799 5176 0.0183276 09101 1524397563 1447652673
9101111002 09101 1407 2017 Temuco 294512.7 2017 9101 282415 83174794799 4664 0.0165147 09101 1373607078 1252840346
9101111003 09101 368 2017 Temuco 294512.7 2017 9101 282415 83174794799 1407 0.0049820 09101 414379322 333662018
9101121001 09101 879 2017 Temuco 294512.7 2017 9101 282415 83174794799 2796 0.0099003 09101 823457416 787674214
9101121002 09101 779 2017 Temuco 294512.7 2017 9101 282415 83174794799 2711 0.0095993 09101 798423840 699202208
9101121003 09101 1106 2017 Temuco 294512.7 2017 9101 282415 83174794799 3947 0.0139759 09101 1162441496 988022905
9101141001 09101 753 2017 Temuco 294512.7 2017 9101 282415 83174794799 2408 0.0085265 09101 709186502 676175123
9101141002 09101 788 2017 Temuco 294512.7 2017 9101 282415 83174794799 3217 0.0113910 09101 947447249 707170689
9101141003 09101 1282 2017 Temuco 294512.7 2017 9101 282415 83174794799 4707 0.0166670 09101 1386271123 1142969772
9101141004 09101 764 2017 Temuco 294512.7 2017 9101 282415 83174794799 2780 0.0098437 09101 818745214 685918639
9101161001 09101 1092 2017 Temuco 294512.7 2017 9101 282415 83174794799 3387 0.0119930 09101 997514403 975683945
9101161002 09101 561 2017 Temuco 294512.7 2017 9101 282415 83174794799 1966 0.0069614 09101 579011903 505768242
9101161003 09101 595 2017 Temuco 294512.7 2017 9101 282415 83174794799 2025 0.0071703 09101 596388150 535995236
9101161004 09101 833 2017 Temuco 294512.7 2017 9101 282415 83174794799 2583 0.0091461 09101 760726218 746994954
9101171001 09101 852 2017 Temuco 294512.7 2017 9101 282415 83174794799 2682 0.0094967 09101 789882972 763800838
9101171002 09101 1421 2017 Temuco 294512.7 2017 9101 282415 83174794799 4209 0.0149036 09101 1239603815 1265137427
9101171003 09101 757 2017 Temuco 294512.7 2017 9101 282415 83174794799 2211 0.0078289 09101 651167506 679718441
9101171004 09101 933 2017 Temuco 294512.7 2017 9101 282415 83174794799 2954 0.0104598 09101 869990418 835391588
9101181001 09101 1351 2017 Temuco 294512.7 2017 9101 282415 83174794799 4459 0.0157888 09101 1313231981 1203635346
9101181002 09101 901 2017 Temuco 294512.7 2017 9101 282415 83174794799 2620 0.0092771 09101 771623187 807119266
9101181003 09101 847 2017 Temuco 294512.7 2017 9101 282415 83174794799 2497 0.0088416 09101 735398129 759378732
9101181004 09101 1566 2017 Temuco 294512.7 2017 9101 282415 83174794799 4641 0.0164333 09101 1366833287 1392406776
9101181005 09101 575 2017 Temuco 294512.7 2017 9101 282415 83174794799 1940 0.0068693 09101 571354574 518217561
9101181006 09101 892 2017 Temuco 294512.7 2017 9101 282415 83174794799 2902 0.0102757 09101 854675759 799165255
9101191001 09101 914 2017 Temuco 294512.7 2017 9101 282415 83174794799 3430 0.0121452 09101 1010178447 818606504
9101191002 09101 823 2017 Temuco 294512.7 2017 9101 282415 83174794799 2483 0.0087920 09101 731274952 738147682
9101191003 09101 1746 2017 Temuco 294512.7 2017 9101 282415 83174794799 5449 0.0192943 09101 1604799521 1550176554
9101191004 09101 1353 2017 Temuco 294512.7 2017 9101 282415 83174794799 4595 0.0162704 09101 1353285704 1205393135
9101191005 09101 1406 2017 Temuco 294512.7 2017 9101 282415 83174794799 4718 0.0167059 09101 1389510762 1251961921
9101191006 09101 660 2017 Temuco 294512.7 2017 9101 282415 83174794799 2165 0.0076660 09101 637619924 593718356
9101991999 09101 145 2017 Temuco 294512.7 2017 9101 282415 83174794799 868 0.0030735 09101 255636995 133132311
9102011001 09102 653 2017 Carahue 237416.7 2017 9102 24533 5824543339 2178 0.0887784 09102 517093523 587505845
9102021001 09102 1291 2017 Carahue 237416.7 2017 9102 24533 5824543339 5062 0.2063343 09102 1201803219 1150885122
9102021002 09102 970 2017 Carahue 237416.7 2017 9102 24533 5824543339 4085 0.1665104 09102 969847126 868065183
9102081001 09102 638 2017 Carahue 237416.7 2017 9102 24533 5824543339 1860 0.0758162 09102 441595019 574190284
9102991999 09102 24 2017 Carahue 237416.7 2017 9102 24533 5824543339 68 0.0027718 09102 16144334 22576919
9103011001 09103 496 2017 Cunco 247099.1 2017 9103 17526 4330659433 1592 0.0908365 09103 393381822 447911118
9103021001 09103 615 2017 Cunco 247099.1 2017 9103 17526 4330659433 2075 0.1183955 09103 512730704 553764850
9103021002 09103 822 2017 Cunco 247099.1 2017 9103 17526 4330659433 3499 0.1996462 09103 864599872 737262875
9103101001 09103 469 2017 Cunco 247099.1 2017 9103 17526 4330659433 1428 0.0814789 09103 352857564 423848783
9103991999 09103 89 2017 Cunco 247099.1 2017 9103 17526 4330659433 253 0.0144357 09103 62516081 82255530
9104011001 09104 647 2017 Curarrehue 204180.7 2017 9104 7489 1529109215 2148 0.2868207 09104 438580130 582180121
9105011001 09105 628 2017 Freire 305541.7 2017 9105 24606 7518158340 2214 0.0899781 09105 676469258 565310902
9105011002 09105 877 2017 Freire 305541.7 2017 9105 24606 7518158340 3193 0.1297651 09105 975594553 785906159
9105021001 09105 601 2017 Freire 305541.7 2017 9105 24606 7518158340 2072 0.0842071 09105 633082341 541326954
9105061001 09105 15 2017 Freire 305541.7 2017 9105 24606 7518158340 36 0.0014631 09105 10999500 14200326
9105091001 09105 39 2017 Freire 305541.7 2017 9105 24606 7518158340 154 0.0062586 09105 47053417 36447990
9105991999 09105 78 2017 Freire 305541.7 2017 9105 24606 7518158340 217 0.0088190 09105 66302542 72217529


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
9101011001 09101 552 2017 Temuco 294512.7 2017 9101 282415 83174794799 2220 0.0078608 09101 653818120 497762900 224217.5
9101011002 09101 1462 2017 Temuco 294512.7 2017 9101 282415 83174794799 3909 0.0138413 09101 1151250015 1301140964 332857.8
9101011003 09101 780 2017 Temuco 294512.7 2017 9101 282415 83174794799 2067 0.0073190 09101 608757682 700087656 338697.5
9101011004 09101 224 2017 Temuco 294512.7 2017 9101 282415 83174794799 662 0.0023441 09101 194967385 204463343 308857.0
9101011005 09101 1042 2017 Temuco 294512.7 2017 9101 282415 83174794799 2592 0.0091780 09101 763376832 931598609 359413.0
9101021001 09101 1417 2017 Temuco 294512.7 2017 9101 282415 83174794799 3196 0.0113167 09101 941262483 1261624143 394751.0
9101021002 09101 1140 2017 Temuco 294512.7 2017 9101 282415 83174794799 2969 0.0105129 09101 874408108 1017980232 342869.7
9101021003 09101 480 2017 Temuco 294512.7 2017 9101 282415 83174794799 1480 0.0052405 09101 435878747 433654153 293009.6
9101021004 09101 571 2017 Temuco 294512.7 2017 9101 282415 83174794799 1826 0.0064657 09101 537780130 514661035 281851.6
9101031001 09101 737 2017 Temuco 294512.7 2017 9101 282415 83174794799 2594 0.0091851 09101 763965858 661999300 255204.0
9101031002 09101 1168 2017 Temuco 294512.7 2017 9101 282415 83174794799 4200 0.0148717 09101 1236953201 1042641906 248248.1
9101031003 09101 647 2017 Temuco 294512.7 2017 9101 282415 83174794799 2208 0.0078183 09101 650283968 582180121 263668.5
9101031004 09101 710 2017 Temuco 294512.7 2017 9101 282415 83174794799 2390 0.0084627 09101 703885274 638068134 266974.1
9101031005 09101 761 2017 Temuco 294512.7 2017 9101 282415 83174794799 2992 0.0105943 09101 881181899 683261506 228362.8
9101041001 09101 1367 2017 Temuco 294512.7 2017 9101 282415 83174794799 4994 0.0176832 09101 1470796258 1217696677 243831.9
9101041002 09101 1203 2017 Temuco 294512.7 2017 9101 282415 83174794799 4641 0.0164333 09101 1366833287 1073457807 231298.8
9101041003 09101 1231 2017 Temuco 294512.7 2017 9101 282415 83174794799 4375 0.0154914 09101 1288492917 1098101803 250994.7
9101051001 09101 972 2017 Temuco 294512.7 2017 9101 282415 83174794799 3142 0.0111255 09101 925358799 869830839 276839.9
9101051002 09101 814 2017 Temuco 294512.7 2017 9101 282415 83174794799 2998 0.0106156 09101 882948975 730183898 243557.0
9101051003 09101 914 2017 Temuco 294512.7 2017 9101 282415 83174794799 3078 0.0108989 09101 906509988 818606504 265954.0
9101051004 09101 1056 2017 Temuco 294512.7 2017 9101 282415 83174794799 3587 0.0127012 09101 1056416936 943945322 263157.3
9101051005 09101 807 2017 Temuco 294512.7 2017 9101 282415 83174794799 2751 0.0097410 09101 810204346 723989023 263173.0
9101051006 09101 667 2017 Temuco 294512.7 2017 9101 282415 83174794799 2499 0.0088487 09101 735987154 599929978 240068.0
9101051007 09101 707 2017 Temuco 294512.7 2017 9101 282415 83174794799 2499 0.0088487 09101 735987154 635408366 254265.1
9101061001 09101 1089 2017 Temuco 294512.7 2017 9101 282415 83174794799 3146 0.0111396 09101 926536850 973039605 309294.2
9101061002 09101 758 2017 Temuco 294512.7 2017 9101 282415 83174794799 2322 0.0082219 09101 683858412 680604230 293111.2
9101061003 09101 869 2017 Temuco 294512.7 2017 9101 282415 83174794799 2821 0.0099888 09101 830820233 778833393 276084.2
9101061004 09101 1598 2017 Temuco 294512.7 2017 9101 282415 83174794799 5347 0.0189331 09101 1574759229 1420471857 265657.7
9101061005 09101 874 2017 Temuco 294512.7 2017 9101 282415 83174794799 2768 0.0098012 09101 815211062 783253974 282967.5
9101061006 09101 859 2017 Temuco 294512.7 2017 9101 282415 83174794799 2682 0.0094967 09101 789882972 769991199 287095.9
9101071001 09101 562 2017 Temuco 294512.7 2017 9101 282415 83174794799 1795 0.0063559 09101 528650237 506657616 282260.5
9101071002 09101 1019 2017 Temuco 294512.7 2017 9101 282415 83174794799 3047 0.0107891 09101 897380096 911309849 299084.3
9101081001 09101 992 2017 Temuco 294512.7 2017 9101 282415 83174794799 3402 0.0120461 09101 1001932093 887484715 260871.5
9101081002 09101 1150 2017 Temuco 294512.7 2017 9101 282415 83174794799 3965 0.0140396 09101 1167742724 1026788901 258963.2
9101081003 09101 779 2017 Temuco 294512.7 2017 9101 282415 83174794799 3304 0.0116991 09101 973069851 699202208 211622.9
9101081004 09101 661 2017 Temuco 294512.7 2017 9101 282415 83174794799 2161 0.0076519 09101 636441873 594605785 275153.1
9101081005 09101 595 2017 Temuco 294512.7 2017 9101 282415 83174794799 2222 0.0078679 09101 654407146 535995236 241222.0
9101081006 09101 799 2017 Temuco 294512.7 2017 9101 282415 83174794799 2903 0.0102792 09101 854970272 716908277 246954.3
9101091001 09101 1696 2017 Temuco 294512.7 2017 9101 282415 83174794799 5474 0.0193828 09101 1612162338 1506374646 275187.2
9101091002 09101 543 2017 Temuco 294512.7 2017 9101 282415 83174794799 1649 0.0058389 09101 485651388 489755798 297001.7
9101091003 09101 1101 2017 Temuco 294512.7 2017 9101 282415 83174794799 3045 0.0107820 09101 896791070 983616377 323026.7
9101091004 09101 1080 2017 Temuco 294512.7 2017 9101 282415 83174794799 2668 0.0094471 09101 785759795 965105995 361733.9
9101091005 09101 760 2017 Temuco 294512.7 2017 9101 282415 83174794799 1882 0.0066640 09101 554272839 682375763 362580.1
9101101001 09101 1536 2017 Temuco 294512.7 2017 9101 282415 83174794799 5434 0.0192412 09101 1600381831 1366088739 251396.5
9101101002 09101 522 2017 Temuco 294512.7 2017 9101 282415 83174794799 1589 0.0056265 09101 467980628 471065542 296454.1
9101101003 09101 96 2017 Temuco 294512.7 2017 9101 282415 83174794799 326 0.0011543 09101 96011129 88634491 271884.9
9101101004 09101 1018 2017 Temuco 294512.7 2017 9101 282415 83174794799 3639 0.0128853 09101 1071731595 910427590 250186.2
9101101005 09101 1588 2017 Temuco 294512.7 2017 9101 282415 83174794799 5033 0.0178213 09101 1482282252 1411702341 280489.2
9101101006 09101 1768 2017 Temuco 294512.7 2017 9101 282415 83174794799 5891 0.0208594 09101 1734974120 1569444005 266413.9
9101101007 09101 1394 2017 Temuco 294512.7 2017 9101 282415 83174794799 5050 0.0178815 09101 1487288967 1241420151 245825.8
9101101008 09101 2113 2017 Temuco 294512.7 2017 9101 282415 83174794799 6739 0.0238620 09101 1984720862 1871193445 277666.3
9101101009 09101 1122 2017 Temuco 294512.7 2017 9101 282415 83174794799 4395 0.0155622 09101 1294383171 1002121995 228014.1
9101111001 09101 1629 2017 Temuco 294512.7 2017 9101 282415 83174794799 5176 0.0183276 09101 1524397563 1447652673 279685.6
9101111002 09101 1407 2017 Temuco 294512.7 2017 9101 282415 83174794799 4664 0.0165147 09101 1373607078 1252840346 268619.3
9101111003 09101 368 2017 Temuco 294512.7 2017 9101 282415 83174794799 1407 0.0049820 09101 414379322 333662018 237144.3
9101121001 09101 879 2017 Temuco 294512.7 2017 9101 282415 83174794799 2796 0.0099003 09101 823457416 787674214 281714.7
9101121002 09101 779 2017 Temuco 294512.7 2017 9101 282415 83174794799 2711 0.0095993 09101 798423840 699202208 257913.0
9101121003 09101 1106 2017 Temuco 294512.7 2017 9101 282415 83174794799 3947 0.0139759 09101 1162441496 988022905 250322.5
9101141001 09101 753 2017 Temuco 294512.7 2017 9101 282415 83174794799 2408 0.0085265 09101 709186502 676175123 280803.6
9101141002 09101 788 2017 Temuco 294512.7 2017 9101 282415 83174794799 3217 0.0113910 09101 947447249 707170689 219823.0
9101141003 09101 1282 2017 Temuco 294512.7 2017 9101 282415 83174794799 4707 0.0166670 09101 1386271123 1142969772 242823.4
9101141004 09101 764 2017 Temuco 294512.7 2017 9101 282415 83174794799 2780 0.0098437 09101 818745214 685918639 246733.3
9101161001 09101 1092 2017 Temuco 294512.7 2017 9101 282415 83174794799 3387 0.0119930 09101 997514403 975683945 288067.3
9101161002 09101 561 2017 Temuco 294512.7 2017 9101 282415 83174794799 1966 0.0069614 09101 579011903 505768242 257257.5
9101161003 09101 595 2017 Temuco 294512.7 2017 9101 282415 83174794799 2025 0.0071703 09101 596388150 535995236 264689.0
9101161004 09101 833 2017 Temuco 294512.7 2017 9101 282415 83174794799 2583 0.0091461 09101 760726218 746994954 289196.7
9101171001 09101 852 2017 Temuco 294512.7 2017 9101 282415 83174794799 2682 0.0094967 09101 789882972 763800838 284787.8
9101171002 09101 1421 2017 Temuco 294512.7 2017 9101 282415 83174794799 4209 0.0149036 09101 1239603815 1265137427 300579.1
9101171003 09101 757 2017 Temuco 294512.7 2017 9101 282415 83174794799 2211 0.0078289 09101 651167506 679718441 307425.8
9101171004 09101 933 2017 Temuco 294512.7 2017 9101 282415 83174794799 2954 0.0104598 09101 869990418 835391588 282800.1
9101181001 09101 1351 2017 Temuco 294512.7 2017 9101 282415 83174794799 4459 0.0157888 09101 1313231981 1203635346 269933.9
9101181002 09101 901 2017 Temuco 294512.7 2017 9101 282415 83174794799 2620 0.0092771 09101 771623187 807119266 308060.8
9101181003 09101 847 2017 Temuco 294512.7 2017 9101 282415 83174794799 2497 0.0088416 09101 735398129 759378732 304116.4
9101181004 09101 1566 2017 Temuco 294512.7 2017 9101 282415 83174794799 4641 0.0164333 09101 1366833287 1392406776 300023.0
9101181005 09101 575 2017 Temuco 294512.7 2017 9101 282415 83174794799 1940 0.0068693 09101 571354574 518217561 267122.5
9101181006 09101 892 2017 Temuco 294512.7 2017 9101 282415 83174794799 2902 0.0102757 09101 854675759 799165255 275384.3
9101191001 09101 914 2017 Temuco 294512.7 2017 9101 282415 83174794799 3430 0.0121452 09101 1010178447 818606504 238660.8
9101191002 09101 823 2017 Temuco 294512.7 2017 9101 282415 83174794799 2483 0.0087920 09101 731274952 738147682 297280.6
9101191003 09101 1746 2017 Temuco 294512.7 2017 9101 282415 83174794799 5449 0.0192943 09101 1604799521 1550176554 284488.3
9101191004 09101 1353 2017 Temuco 294512.7 2017 9101 282415 83174794799 4595 0.0162704 09101 1353285704 1205393135 262327.1
9101191005 09101 1406 2017 Temuco 294512.7 2017 9101 282415 83174794799 4718 0.0167059 09101 1389510762 1251961921 265358.6
9101191006 09101 660 2017 Temuco 294512.7 2017 9101 282415 83174794799 2165 0.0076660 09101 637619924 593718356 274234.8
9101991999 09101 145 2017 Temuco 294512.7 2017 9101 282415 83174794799 868 0.0030735 09101 255636995 133132311 153378.2
9102011001 09102 653 2017 Carahue 237416.7 2017 9102 24533 5824543339 2178 0.0887784 09102 517093523 587505845 269745.6
9102021001 09102 1291 2017 Carahue 237416.7 2017 9102 24533 5824543339 5062 0.2063343 09102 1201803219 1150885122 227357.8
9102021002 09102 970 2017 Carahue 237416.7 2017 9102 24533 5824543339 4085 0.1665104 09102 969847126 868065183 212500.7
9102081001 09102 638 2017 Carahue 237416.7 2017 9102 24533 5824543339 1860 0.0758162 09102 441595019 574190284 308704.5
9102991999 09102 24 2017 Carahue 237416.7 2017 9102 24533 5824543339 68 0.0027718 09102 16144334 22576919 332013.5
9103011001 09103 496 2017 Cunco 247099.1 2017 9103 17526 4330659433 1592 0.0908365 09103 393381822 447911118 281351.2
9103021001 09103 615 2017 Cunco 247099.1 2017 9103 17526 4330659433 2075 0.1183955 09103 512730704 553764850 266874.6
9103021002 09103 822 2017 Cunco 247099.1 2017 9103 17526 4330659433 3499 0.1996462 09103 864599872 737262875 210706.7
9103101001 09103 469 2017 Cunco 247099.1 2017 9103 17526 4330659433 1428 0.0814789 09103 352857564 423848783 296812.9
9103991999 09103 89 2017 Cunco 247099.1 2017 9103 17526 4330659433 253 0.0144357 09103 62516081 82255530 325120.7
9104011001 09104 647 2017 Curarrehue 204180.7 2017 9104 7489 1529109215 2148 0.2868207 09104 438580130 582180121 271033.6
9105011001 09105 628 2017 Freire 305541.7 2017 9105 24606 7518158340 2214 0.0899781 09105 676469258 565310902 255334.6
9105011002 09105 877 2017 Freire 305541.7 2017 9105 24606 7518158340 3193 0.1297651 09105 975594553 785906159 246134.1
9105021001 09105 601 2017 Freire 305541.7 2017 9105 24606 7518158340 2072 0.0842071 09105 633082341 541326954 261258.2
9105061001 09105 15 2017 Freire 305541.7 2017 9105 24606 7518158340 36 0.0014631 09105 10999500 14200326 394453.5
9105091001 09105 39 2017 Freire 305541.7 2017 9105 24606 7518158340 154 0.0062586 09105 47053417 36447990 236675.3
9105991999 09105 78 2017 Freire 305541.7 2017 9105 24606 7518158340 217 0.0088190 09105 66302542 72217529 332799.7


Guardamos:

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