Expansión de la CASEN sobre el CENSO (Región 01)

De ingresos sobre una categoría de respuesta

DataIntelligence

Abstract

Expandiremos los ingresos promedios comunales obtenidos de la CASEN sobre la categoría de respuesta: “tejas o tejuelas de arcilla, metálicas, de cemento, de madera, asfálticas o plásticas” del campo P03B del CENSO de viviendas, que fue la categoría de respuesta que más alto correlaciona con los ingresos expandidos (obtenidos de la multiplicación del ingreso promedio y los habitantes), ambos a nivel comunal.

Haremos el análisis sobre la región 01.

Ensayaremos diferentes modelos dentro del análisis de regresión cuya variable independiente será: “frecuencia de población que posee la variable Censal respecto a la zona” y la dependiente: “ingreso expandido por zona”

Lo anterior para elegir el que posea el mayor coeficiente de determinación y así contruir una tabla de valores predichos.

1 Variable CENSO

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

1.1 Lectura y filtrado de la tabla censal de viviendas

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

tabla_con_clave <- readRDS("censo_viviendas_con_clave_17.rds")
r3_100 <- tabla_con_clave[c(1:100),]
kbl(r3_100) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

REGION	PROVINCIA	COMUNA	DC	AREA	ZC_LOC	ID_ZONA_LOC	NVIV	P01	P02	P03A	P03B	P03C	P04	P05	CANT_HOG	CANT_PER	REGION_15R	PROVINCIA_15R	COMUNA_15R	clave
15	152	15202	1	2	6	13225	1	3	1	5	3	5	1	4	1	1	15	152	15202	15202012006
15	152	15202	1	2	6	13225	2	1	3	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	3	1	1	5	3	5	2	3	1	4	15	152	15202	15202012006
15	152	15202	1	2	6	13225	4	1	4	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	5	3	4	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	6	3	4	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	7	3	4	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	8	3	3	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	9	3	1	5	3	5	1	4	1	4	15	152	15202	15202012006
15	152	15202	1	2	6	13225	10	1	1	5	3	4	1	4	1	1	15	152	15202	15202012006
15	152	15202	1	2	6	13225	11	1	2	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	12	1	4	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	13	1	1	5	3	4	1	4	1	3	15	152	15202	15202012006
15	152	15202	1	2	6	13225	14	1	3	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	15	1	4	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	16	1	1	5	3	5	1	3	1	3	15	152	15202	15202012006
15	152	15202	1	2	6	13225	17	1	1	5	3	5	2	4	1	8	15	152	15202	15202012006
15	152	15202	1	2	6	13225	18	3	1	5	3	5	1	1	1	1	15	152	15202	15202012006
15	152	15202	1	2	6	13225	19	3	1	5	3	5	1	3	1	1	15	152	15202	15202012006
15	152	15202	1	2	6	13225	20	1	1	5	3	5	2	1	1	2	15	152	15202	15202012006
15	152	15202	1	2	6	13225	21	1	4	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	22	1	4	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	23	3	4	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	24	1	3	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	25	1	1	5	3	5	1	4	1	2	15	152	15202	15202012006
15	152	15202	1	2	6	13225	26	1	4	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	27	3	4	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	28	3	1	5	3	5	1	4	1	5	15	152	15202	15202012006
15	152	15202	1	2	6	13225	29	1	4	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	30	3	4	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	31	1	3	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	32	3	4	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	33	1	1	5	3	5	3	4	1	4	15	152	15202	15202012006
15	152	15202	1	2	6	13225	34	1	4	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	35	3	4	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	36	1	1	5	3	5	3	2	1	9	15	152	15202	15202012006
15	152	15202	1	2	6	13225	37	3	3	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	38	1	1	5	3	5	99	4	1	1	15	152	15202	15202012006
15	152	15202	1	2	6	13225	39	1	1	5	3	5	1	4	1	2	15	152	15202	15202012006
15	152	15202	1	2	6	13225	40	1	3	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	41	1	3	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	42	3	3	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	43	3	1	5	3	5	2	1	1	5	15	152	15202	15202012006
15	152	15202	1	2	6	13225	44	1	4	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	45	1	4	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	8	13910	1	1	2	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	2	1	3	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	3	1	3	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	4	3	3	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	5	3	1	5	3	5	2	3	1	3	15	152	15202	15202012008
15	152	15202	1	2	8	13910	6	1	2	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	7	1	1	5	99	5	2	4	1	2	15	152	15202	15202012008
15	152	15202	1	2	8	13910	8	3	1	5	3	5	3	3	1	2	15	152	15202	15202012008
15	152	15202	1	2	8	13910	9	3	3	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	10	3	3	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	11	1	4	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	12	1	2	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	13	1	4	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	14	3	3	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	15	1	4	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	16	1	4	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	17	3	2	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	18	1	2	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	19	3	1	99	99	99	99	99	1	1	15	152	15202	15202012008
15	152	15202	1	2	8	13910	20	1	2	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	21	1	1	5	3	5	1	4	1	2	15	152	15202	15202012008
15	152	15202	1	2	8	13910	22	3	1	5	3	5	2	4	1	1	15	152	15202	15202012008
15	152	15202	1	2	8	13910	23	1	4	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	24	3	4	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	25	3	3	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	26	1	2	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	27	1	4	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	28	3	2	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	29	1	3	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	30	1	1	5	1	4	2	4	1	1	15	152	15202	15202012008
15	152	15202	1	2	12	8394	1	3	4	98	98	98	98	98	0	0	15	152	15202	15202012012
15	152	15202	1	2	12	8394	2	3	4	98	98	98	98	98	0	0	15	152	15202	15202012012
15	152	15202	1	2	12	8394	3	3	1	5	3	5	2	3	1	4	15	152	15202	15202012012
15	152	15202	1	2	12	8394	4	3	2	98	98	98	98	98	0	0	15	152	15202	15202012012
15	152	15202	1	2	12	8394	5	3	3	98	98	98	98	98	0	0	15	152	15202	15202012012
15	152	15202	1	2	12	8394	6	3	3	98	98	98	98	98	0	0	15	152	15202	15202012012
15	152	15202	1	2	12	8394	7	3	4	98	98	98	98	98	0	0	15	152	15202	15202012012
15	152	15202	1	2	12	8394	8	3	2	98	98	98	98	98	0	0	15	152	15202	15202012012
15	152	15202	1	2	12	8394	9	3	1	5	3	5	1	4	1	1	15	152	15202	15202012012
15	152	15202	1	2	12	8394	10	3	4	98	98	98	98	98	0	0	15	152	15202	15202012012
15	152	15202	1	2	12	8394	11	3	2	98	98	98	98	98	0	0	15	152	15202	15202012012
15	152	15202	1	2	12	8394	12	3	4	98	98	98	98	98	0	0	15	152	15202	15202012012
15	152	15202	1	2	12	8394	13	3	4	98	98	98	98	98	0	0	15	152	15202	15202012012
15	152	15202	1	2	12	8394	14	3	2	98	98	98	98	98	0	0	15	152	15202	15202012012
15	152	15202	1	2	12	8394	15	3	2	98	98	98	98	98	0	0	15	152	15202	15202012012
15	152	15202	1	2	12	8394	16	3	4	98	98	98	98	98	0	0	15	152	15202	15202012012
15	152	15202	1	2	12	8394	17	3	2	98	98	98	98	98	0	0	15	152	15202	15202012012
15	152	15202	1	2	12	8394	18	3	2	98	98	98	98	98	0	0	15	152	15202	15202012012
15	152	15202	1	2	12	8394	19	3	1	99	99	99	99	99	1	1	15	152	15202	15202012012
15	152	15202	1	2	12	8394	20	3	1	5	3	5	3	99	1	1	15	152	15202	15202012012
15	152	15202	1	2	12	8394	21	3	1	5	99	5	1	4	1	2	15	152	15202	15202012012
15	152	15202	1	2	12	8394	22	3	2	98	98	98	98	98	0	0	15	152	15202	15202012012
15	152	15202	1	2	12	8394	23	3	4	98	98	98	98	98	0	0	15	152	15202	15202012012
15	152	15202	1	2	12	8394	24	3	1	5	3	5	1	2	1	2	15	152	15202	15202012012
15	152	15202	1	2	12	8394	25	3	4	98	98	98	98	98	0	0	15	152	15202	15202012012

Despleguemos los códigos de regiones de nuestra tabla:

regiones <- unique(tabla_con_clave$REGION)
regiones

##  [1] 15 14 13 12 11 10  9 16  8  7  6  5  4  3  2  1

Hagamos un subset con la 1:

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

Veamos los primeros 100 registros:

r3_100 <- d[c(1:100),]
kbl(r3_100) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	zona	unlist.c.	unlist.d.	Freq	anio
1	1101011001	1	1101	298	2017
2	1101011002	1	1101	95	2017
3	1101021001	1	1101	55	2017
4	1101021002	1	1101	2	2017
5	1101021003	1	1101	265	2017
6	1101021004	1	1101	178	2017
7	1101021005	1	1101	337	2017
8	1101031001	1	1101	194	2017
9	1101031002	1	1101	482	2017
10	1101031003	1	1101	328	2017
11	1101031004	1	1101	171	2017
12	1101041001	1	1101	135	2017
13	1101041002	1	1101	228	2017
14	1101041003	1	1101	235	2017
15	1101041004	1	1101	636	2017
16	1101041005	1	1101	403	2017
17	1101041006	1	1101	214	2017
18	1101051001	1	1101	364	2017
19	1101051002	1	1101	350	2017
20	1101051003	1	1101	303	2017
21	1101051004	1	1101	200	2017
22	1101051005	1	1101	269	2017
23	1101051006	1	1101	256	2017
24	1101061001	1	1101	105	2017
25	1101061002	1	1101	349	2017
26	1101061003	1	1101	259	2017
27	1101061004	1	1101	134	2017
28	1101061005	1	1101	144	2017
29	1101071001	1	1101	271	2017
30	1101071002	1	1101	453	2017
31	1101071003	1	1101	483	2017
32	1101071004	1	1101	211	2017
33	1101081001	1	1101	601	2017
34	1101081002	1	1101	469	2017
35	1101081003	1	1101	328	2017
36	1101081004	1	1101	284	2017
37	1101092004	1	1101	6	2017
38	1101092005	1	1101	1	2017
39	1101092006	1	1101	35	2017
40	1101092007	1	1101	1	2017
41	1101092010	1	1101	36	2017
42	1101092012	1	1101	3	2017
43	1101092016	1	1101	1	2017
44	1101092017	1	1101	5	2017
45	1101092018	1	1101	6	2017
46	1101092019	1	1101	2	2017
47	1101092021	1	1101	11	2017
48	1101092023	1	1101	13	2017
49	1101092024	1	1101	1	2017
50	1101101001	1	1101	230	2017
51	1101101002	1	1101	420	2017
52	1101101003	1	1101	323	2017
53	1101101004	1	1101	249	2017
54	1101101005	1	1101	481	2017
55	1101101006	1	1101	356	2017
56	1101111001	1	1101	249	2017
57	1101111002	1	1101	184	2017
58	1101111003	1	1101	353	2017
59	1101111004	1	1101	279	2017
60	1101111005	1	1101	359	2017
61	1101111006	1	1101	60	2017
62	1101111007	1	1101	234	2017
63	1101111008	1	1101	322	2017
64	1101111009	1	1101	317	2017
65	1101111010	1	1101	21	2017
66	1101111011	1	1101	309	2017
67	1101111012	1	1101	109	2017
68	1101111013	1	1101	227	2017
69	1101111014	1	1101	138	2017
70	1101112003	1	1101	9	2017
71	1101112013	1	1101	9	2017
72	1101112025	1	1101	1	2017
73	1101112901	1	1101	1	2017
74	1101991999	1	1101	68	2017
242	1107011001	1	1107	245	2017
243	1107011002	1	1107	284	2017
244	1107011003	1	1107	280	2017
245	1107021001	1	1107	738	2017
246	1107021002	1	1107	407	2017
247	1107021003	1	1107	323	2017
248	1107021004	1	1107	466	2017
249	1107021005	1	1107	471	2017
250	1107021006	1	1107	201	2017
251	1107021007	1	1107	466	2017
252	1107021008	1	1107	416	2017
253	1107031001	1	1107	358	2017
254	1107031002	1	1107	594	2017
255	1107031003	1	1107	251	2017
256	1107032005	1	1107	5	2017
257	1107041001	1	1107	233	2017
258	1107041002	1	1107	342	2017
259	1107041003	1	1107	252	2017
260	1107041004	1	1107	272	2017
261	1107041005	1	1107	207	2017
262	1107041006	1	1107	249	2017
263	1107041007	1	1107	359	2017
264	1107042002	1	1107	3	2017
265	1107991999	1	1107	41	2017
433	1401011001	1	1401	197	2017
434	1401011002	1	1401	411	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	1101011001	298	2017	01101
2	1101011002	95	2017	01101
3	1101021001	55	2017	01101
4	1101021002	2	2017	01101
5	1101021003	265	2017	01101
6	1101021004	178	2017	01101
7	1101021005	337	2017	01101
8	1101031001	194	2017	01101
9	1101031002	482	2017	01101
10	1101031003	328	2017	01101
11	1101031004	171	2017	01101
12	1101041001	135	2017	01101
13	1101041002	228	2017	01101
14	1101041003	235	2017	01101
15	1101041004	636	2017	01101
16	1101041005	403	2017	01101
17	1101041006	214	2017	01101
18	1101051001	364	2017	01101
19	1101051002	350	2017	01101
20	1101051003	303	2017	01101
21	1101051004	200	2017	01101
22	1101051005	269	2017	01101
23	1101051006	256	2017	01101
24	1101061001	105	2017	01101
25	1101061002	349	2017	01101
26	1101061003	259	2017	01101
27	1101061004	134	2017	01101
28	1101061005	144	2017	01101
29	1101071001	271	2017	01101
30	1101071002	453	2017	01101
31	1101071003	483	2017	01101
32	1101071004	211	2017	01101
33	1101081001	601	2017	01101
34	1101081002	469	2017	01101
35	1101081003	328	2017	01101
36	1101081004	284	2017	01101
37	1101092004	6	2017	01101
38	1101092005	1	2017	01101
39	1101092006	35	2017	01101
40	1101092007	1	2017	01101
41	1101092010	36	2017	01101
42	1101092012	3	2017	01101
43	1101092016	1	2017	01101
44	1101092017	5	2017	01101
45	1101092018	6	2017	01101
46	1101092019	2	2017	01101
47	1101092021	11	2017	01101
48	1101092023	13	2017	01101
49	1101092024	1	2017	01101
50	1101101001	230	2017	01101
51	1101101002	420	2017	01101
52	1101101003	323	2017	01101
53	1101101004	249	2017	01101
54	1101101005	481	2017	01101
55	1101101006	356	2017	01101
56	1101111001	249	2017	01101
57	1101111002	184	2017	01101
58	1101111003	353	2017	01101
59	1101111004	279	2017	01101
60	1101111005	359	2017	01101
61	1101111006	60	2017	01101
62	1101111007	234	2017	01101
63	1101111008	322	2017	01101
64	1101111009	317	2017	01101
65	1101111010	21	2017	01101
66	1101111011	309	2017	01101
67	1101111012	109	2017	01101
68	1101111013	227	2017	01101
69	1101111014	138	2017	01101
70	1101112003	9	2017	01101
71	1101112013	9	2017	01101
72	1101112025	1	2017	01101
73	1101112901	1	2017	01101
74	1101991999	68	2017	01101
242	1107011001	245	2017	01107
243	1107011002	284	2017	01107
244	1107011003	280	2017	01107
245	1107021001	738	2017	01107
246	1107021002	407	2017	01107
247	1107021003	323	2017	01107
248	1107021004	466	2017	01107
249	1107021005	471	2017	01107
250	1107021006	201	2017	01107
251	1107021007	466	2017	01107
252	1107021008	416	2017	01107
253	1107031001	358	2017	01107
254	1107031002	594	2017	01107
255	1107031003	251	2017	01107
256	1107032005	5	2017	01107
257	1107041001	233	2017	01107
258	1107041002	342	2017	01107
259	1107041003	252	2017	01107
260	1107041004	272	2017	01107
261	1107041005	207	2017	01107
262	1107041006	249	2017	01107
263	1107041007	359	2017	01107
264	1107042002	3	2017	01107
265	1107991999	41	2017	01107
433	1401011001	197	2017	01401
434	1401011002	411	2017	01401

2 Variable CASEN

2.1 Tabla de ingresos expandidos

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

h_y_m_2017_censo <- readRDS("ingresos_expandidos_17.rds")
tablamadre <- head(h_y_m_2017_censo,50)
kbl(tablamadre) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

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

3 Unión Censo-Casen

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

comunas_con_ing_exp = merge( x = comuna_corr, y = h_y_m_2017_censo, by = "código", all.x = TRUE)
r3_100 <- comunas_con_ing_exp[c(1:100),]
kbl(r3_100) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

código	zona	Freq	anio	comuna.x	promedio_i	año	comuna.y	personas	Ingresos_expandidos
01101	1101021004	178	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101021003	265	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101031003	328	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101021005	337	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101031001	194	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101031002	482	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101011001	298	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101011002	95	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101021001	55	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101021002	2	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101051001	364	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101051002	350	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101051003	303	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101051004	200	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101051005	269	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101051006	256	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101061001	105	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101061002	349	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101061003	259	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101061004	134	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101061005	144	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101071001	271	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101071002	453	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101071003	483	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101071004	211	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101081001	601	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101081002	469	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101081003	328	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101081004	284	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092004	6	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092005	1	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092006	35	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092007	1	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092010	36	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092012	3	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092016	1	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092017	5	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092018	6	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092019	2	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092021	11	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092023	13	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092024	1	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101101001	230	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101031004	171	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101041001	135	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101041002	228	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101041003	235	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101041004	636	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101041005	403	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101041006	214	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111003	353	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111004	279	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111005	359	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111006	60	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111007	234	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111008	322	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111009	317	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111010	21	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111011	309	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111012	109	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111013	227	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111014	138	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101112003	9	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101112013	9	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101112025	1	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101112901	1	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101991999	68	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101101003	323	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101101004	249	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101101005	481	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101101002	420	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111001	249	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111002	184	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101101006	356	2017	Iquique	354820.7	2017	1101	191468	67936815240
01107	1107011003	280	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107011001	245	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107011002	284	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107021008	416	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107031001	358	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107031002	594	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107031003	251	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107032005	5	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107041001	233	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107021001	738	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107021002	407	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107021003	323	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107021004	466	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107021005	471	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107021006	201	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107021007	466	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107991999	41	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107041004	272	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107041005	207	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107041002	342	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107041003	252	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107042002	3	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107041006	249	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107041007	359	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01401	1401011002	411	2017	Pozo Almonte	285981.8	2017	1401	15711	4493059532
01401	1401011001	197	2017	Pozo Almonte	285981.8	2017	1401	15711	4493059532

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
01101	1101021004	178	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101021003	265	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101031003	328	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101021005	337	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101031001	194	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101031002	482	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101011001	298	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101011002	95	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101021001	55	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101021002	2	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101051001	364	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101051002	350	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101051003	303	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101051004	200	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101051005	269	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101051006	256	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101061001	105	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101061002	349	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101061003	259	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101061004	134	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101061005	144	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101071001	271	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101071002	453	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101071003	483	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101071004	211	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101081001	601	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101081002	469	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101081003	328	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101081004	284	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092004	6	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092005	1	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092006	35	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092007	1	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092010	36	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092012	3	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092016	1	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092017	5	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092018	6	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092019	2	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092021	11	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092023	13	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092024	1	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101101001	230	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101031004	171	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101041001	135	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101041002	228	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101041003	235	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101041004	636	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101041005	403	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101041006	214	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111003	353	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111004	279	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111005	359	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111006	60	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111007	234	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111008	322	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111009	317	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111010	21	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111011	309	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111012	109	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111013	227	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111014	138	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101112003	9	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101112013	9	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101112025	1	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101112901	1	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101991999	68	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101101003	323	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101101004	249	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101101005	481	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101101002	420	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111001	249	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111002	184	2017	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101101006	356	2017	Iquique	354820.7	2017	1101	191468	67936815240
01107	1107011003	280	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107011001	245	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107011002	284	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107021008	416	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107031001	358	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107031002	594	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107031003	251	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107032005	5	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107041001	233	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107021001	738	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107021002	407	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107021003	323	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107021004	466	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107021005	471	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107021006	201	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107021007	466	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107991999	41	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107041004	272	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107041005	207	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107041002	342	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107041003	252	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107042002	3	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107041006	249	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107041007	359	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01401	1401011002	411	2017	Pozo Almonte	285981.8	2017	1401	15711	4493059532
01401	1401011001	197	2017	Pozo Almonte	285981.8	2017	1401	15711	4493059532

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
1101011001	01101	298	2017	Iquique	354820.7	2017	1101	191468	67936815240	2491	0.0130100	01101
1101011002	01101	95	2017	Iquique	354820.7	2017	1101	191468	67936815240	1475	0.0077036	01101
1101021001	01101	55	2017	Iquique	354820.7	2017	1101	191468	67936815240	1003	0.0052385	01101
1101021002	01101	2	2017	Iquique	354820.7	2017	1101	191468	67936815240	54	0.0002820	01101
1101021003	01101	265	2017	Iquique	354820.7	2017	1101	191468	67936815240	2895	0.0151200	01101
1101021004	01101	178	2017	Iquique	354820.7	2017	1101	191468	67936815240	2398	0.0125243	01101
1101021005	01101	337	2017	Iquique	354820.7	2017	1101	191468	67936815240	4525	0.0236332	01101
1101031001	01101	194	2017	Iquique	354820.7	2017	1101	191468	67936815240	2725	0.0142321	01101
1101031002	01101	482	2017	Iquique	354820.7	2017	1101	191468	67936815240	3554	0.0185618	01101
1101031003	01101	328	2017	Iquique	354820.7	2017	1101	191468	67936815240	5246	0.0273988	01101
1101031004	01101	171	2017	Iquique	354820.7	2017	1101	191468	67936815240	3389	0.0177001	01101
1101041001	01101	135	2017	Iquique	354820.7	2017	1101	191468	67936815240	1800	0.0094010	01101
1101041002	01101	228	2017	Iquique	354820.7	2017	1101	191468	67936815240	2538	0.0132555	01101
1101041003	01101	235	2017	Iquique	354820.7	2017	1101	191468	67936815240	3855	0.0201339	01101
1101041004	01101	636	2017	Iquique	354820.7	2017	1101	191468	67936815240	5663	0.0295767	01101
1101041005	01101	403	2017	Iquique	354820.7	2017	1101	191468	67936815240	4162	0.0217373	01101
1101041006	01101	214	2017	Iquique	354820.7	2017	1101	191468	67936815240	2689	0.0140441	01101
1101051001	01101	364	2017	Iquique	354820.7	2017	1101	191468	67936815240	3296	0.0172144	01101
1101051002	01101	350	2017	Iquique	354820.7	2017	1101	191468	67936815240	4465	0.0233198	01101
1101051003	01101	303	2017	Iquique	354820.7	2017	1101	191468	67936815240	4656	0.0243174	01101
1101051004	01101	200	2017	Iquique	354820.7	2017	1101	191468	67936815240	2097	0.0109522	01101
1101051005	01101	269	2017	Iquique	354820.7	2017	1101	191468	67936815240	3569	0.0186402	01101
1101051006	01101	256	2017	Iquique	354820.7	2017	1101	191468	67936815240	2741	0.0143157	01101
1101061001	01101	105	2017	Iquique	354820.7	2017	1101	191468	67936815240	1625	0.0084871	01101
1101061002	01101	349	2017	Iquique	354820.7	2017	1101	191468	67936815240	4767	0.0248971	01101
1101061003	01101	259	2017	Iquique	354820.7	2017	1101	191468	67936815240	4826	0.0252053	01101
1101061004	01101	134	2017	Iquique	354820.7	2017	1101	191468	67936815240	4077	0.0212934	01101
1101061005	01101	144	2017	Iquique	354820.7	2017	1101	191468	67936815240	2166	0.0113126	01101
1101071001	01101	271	2017	Iquique	354820.7	2017	1101	191468	67936815240	2324	0.0121378	01101
1101071002	01101	453	2017	Iquique	354820.7	2017	1101	191468	67936815240	2801	0.0146291	01101
1101071003	01101	483	2017	Iquique	354820.7	2017	1101	191468	67936815240	3829	0.0199981	01101
1101071004	01101	211	2017	Iquique	354820.7	2017	1101	191468	67936815240	1987	0.0103777	01101
1101081001	01101	601	2017	Iquique	354820.7	2017	1101	191468	67936815240	5133	0.0268087	01101
1101081002	01101	469	2017	Iquique	354820.7	2017	1101	191468	67936815240	3233	0.0168853	01101
1101081003	01101	328	2017	Iquique	354820.7	2017	1101	191468	67936815240	2122	0.0110828	01101
1101081004	01101	284	2017	Iquique	354820.7	2017	1101	191468	67936815240	2392	0.0124929	01101
1101092004	01101	6	2017	Iquique	354820.7	2017	1101	191468	67936815240	247	0.0012900	01101
1101092005	01101	1	2017	Iquique	354820.7	2017	1101	191468	67936815240	76	0.0003969	01101
1101092006	01101	35	2017	Iquique	354820.7	2017	1101	191468	67936815240	603	0.0031494	01101
1101092007	01101	1	2017	Iquique	354820.7	2017	1101	191468	67936815240	84	0.0004387	01101
1101092010	01101	36	2017	Iquique	354820.7	2017	1101	191468	67936815240	398	0.0020787	01101
1101092012	01101	3	2017	Iquique	354820.7	2017	1101	191468	67936815240	58	0.0003029	01101
1101092016	01101	1	2017	Iquique	354820.7	2017	1101	191468	67936815240	20	0.0001045	01101
1101092017	01101	5	2017	Iquique	354820.7	2017	1101	191468	67936815240	8	0.0000418	01101
1101092018	01101	6	2017	Iquique	354820.7	2017	1101	191468	67936815240	74	0.0003865	01101
1101092019	01101	2	2017	Iquique	354820.7	2017	1101	191468	67936815240	25	0.0001306	01101
1101092021	01101	11	2017	Iquique	354820.7	2017	1101	191468	67936815240	177	0.0009244	01101
1101092023	01101	13	2017	Iquique	354820.7	2017	1101	191468	67936815240	288	0.0015042	01101
1101092024	01101	1	2017	Iquique	354820.7	2017	1101	191468	67936815240	14	0.0000731	01101
1101101001	01101	230	2017	Iquique	354820.7	2017	1101	191468	67936815240	2672	0.0139553	01101
1101101002	01101	420	2017	Iquique	354820.7	2017	1101	191468	67936815240	4398	0.0229699	01101
1101101003	01101	323	2017	Iquique	354820.7	2017	1101	191468	67936815240	4524	0.0236280	01101
1101101004	01101	249	2017	Iquique	354820.7	2017	1101	191468	67936815240	3544	0.0185096	01101
1101101005	01101	481	2017	Iquique	354820.7	2017	1101	191468	67936815240	4911	0.0256492	01101
1101101006	01101	356	2017	Iquique	354820.7	2017	1101	191468	67936815240	3688	0.0192617	01101
1101111001	01101	249	2017	Iquique	354820.7	2017	1101	191468	67936815240	3886	0.0202958	01101
1101111002	01101	184	2017	Iquique	354820.7	2017	1101	191468	67936815240	2312	0.0120751	01101
1101111003	01101	353	2017	Iquique	354820.7	2017	1101	191468	67936815240	4874	0.0254560	01101
1101111004	01101	279	2017	Iquique	354820.7	2017	1101	191468	67936815240	4543	0.0237272	01101
1101111005	01101	359	2017	Iquique	354820.7	2017	1101	191468	67936815240	4331	0.0226200	01101
1101111006	01101	60	2017	Iquique	354820.7	2017	1101	191468	67936815240	3253	0.0169898	01101
1101111007	01101	234	2017	Iquique	354820.7	2017	1101	191468	67936815240	4639	0.0242286	01101
1101111008	01101	322	2017	Iquique	354820.7	2017	1101	191468	67936815240	4881	0.0254925	01101
1101111009	01101	317	2017	Iquique	354820.7	2017	1101	191468	67936815240	5006	0.0261454	01101
1101111010	01101	21	2017	Iquique	354820.7	2017	1101	191468	67936815240	366	0.0019115	01101
1101111011	01101	309	2017	Iquique	354820.7	2017	1101	191468	67936815240	4351	0.0227244	01101
1101111012	01101	109	2017	Iquique	354820.7	2017	1101	191468	67936815240	2926	0.0152819	01101
1101111013	01101	227	2017	Iquique	354820.7	2017	1101	191468	67936815240	3390	0.0177053	01101
1101111014	01101	138	2017	Iquique	354820.7	2017	1101	191468	67936815240	2940	0.0153550	01101
1101112003	01101	9	2017	Iquique	354820.7	2017	1101	191468	67936815240	33	0.0001724	01101
1101112013	01101	9	2017	Iquique	354820.7	2017	1101	191468	67936815240	104	0.0005432	01101
1101112025	01101	1	2017	Iquique	354820.7	2017	1101	191468	67936815240	21	0.0001097	01101
1101112901	01101	1	2017	Iquique	354820.7	2017	1101	191468	67936815240	6	0.0000313	01101
1101991999	01101	68	2017	Iquique	354820.7	2017	1101	191468	67936815240	1062	0.0055466	01101
1107011001	01107	245	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	4104	0.0378685	01107
1107011002	01107	284	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	4360	0.0402307	01107
1107011003	01107	280	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	8549	0.0788835	01107
1107021001	01107	738	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	6701	0.0618316	01107
1107021002	01107	407	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	3971	0.0366413	01107
1107021003	01107	323	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	6349	0.0585836	01107
1107021004	01107	466	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	5125	0.0472895	01107
1107021005	01107	471	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	4451	0.0410704	01107
1107021006	01107	201	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	3864	0.0356540	01107
1107021007	01107	466	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	5235	0.0483045	01107
1107021008	01107	416	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	4566	0.0421315	01107
1107031001	01107	358	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	4195	0.0387082	01107
1107031002	01107	594	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	7099	0.0655040	01107
1107031003	01107	251	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	4720	0.0435525	01107
1107032005	01107	5	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	38	0.0003506	01107
1107041001	01107	233	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	3630	0.0334948	01107
1107041002	01107	342	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	5358	0.0494394	01107
1107041003	01107	252	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	4520	0.0417070	01107
1107041004	01107	272	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	5317	0.0490611	01107
1107041005	01107	207	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	3725	0.0343714	01107
1107041006	01107	249	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	4009	0.0369919	01107
1107041007	01107	359	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	5217	0.0481384	01107
1107042002	01107	3	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	30	0.0002768	01107
1107991999	01107	41	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	819	0.0075571	01107
1401011001	01401	197	2017	Pozo Almonte	285981.8	2017	1401	15711	4493059532	2771	0.1763732	01401
1401011002	01401	411	2017	Pozo Almonte	285981.8	2017	1401	15711	4493059532	6506	0.4141048	01401

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
1101011001	01101	298	2017	Iquique	354820.7	2017	1101	191468	67936815240	2491	0.0130100	01101	883858435
1101011002	01101	95	2017	Iquique	354820.7	2017	1101	191468	67936815240	1475	0.0077036	01101	523360575
1101021001	01101	55	2017	Iquique	354820.7	2017	1101	191468	67936815240	1003	0.0052385	01101	355885191
1101021002	01101	2	2017	Iquique	354820.7	2017	1101	191468	67936815240	54	0.0002820	01101	19160319
1101021003	01101	265	2017	Iquique	354820.7	2017	1101	191468	67936815240	2895	0.0151200	01101	1027206009
1101021004	01101	178	2017	Iquique	354820.7	2017	1101	191468	67936815240	2398	0.0125243	01101	850860107
1101021005	01101	337	2017	Iquique	354820.7	2017	1101	191468	67936815240	4525	0.0236332	01101	1605563796
1101031001	01101	194	2017	Iquique	354820.7	2017	1101	191468	67936815240	2725	0.0142321	01101	966886485
1101031002	01101	482	2017	Iquique	354820.7	2017	1101	191468	67936815240	3554	0.0185618	01101	1261032869
1101031003	01101	328	2017	Iquique	354820.7	2017	1101	191468	67936815240	5246	0.0273988	01101	1861389542
1101031004	01101	171	2017	Iquique	354820.7	2017	1101	191468	67936815240	3389	0.0177001	01101	1202487449
1101041001	01101	135	2017	Iquique	354820.7	2017	1101	191468	67936815240	1800	0.0094010	01101	638677311
1101041002	01101	228	2017	Iquique	354820.7	2017	1101	191468	67936815240	2538	0.0132555	01101	900535009
1101041003	01101	235	2017	Iquique	354820.7	2017	1101	191468	67936815240	3855	0.0201339	01101	1367833908
1101041004	01101	636	2017	Iquique	354820.7	2017	1101	191468	67936815240	5663	0.0295767	01101	2009349785
1101041005	01101	403	2017	Iquique	354820.7	2017	1101	191468	67936815240	4162	0.0217373	01101	1476763872
1101041006	01101	214	2017	Iquique	354820.7	2017	1101	191468	67936815240	2689	0.0140441	01101	954112939
1101051001	01101	364	2017	Iquique	354820.7	2017	1101	191468	67936815240	3296	0.0172144	01101	1169489121
1101051002	01101	350	2017	Iquique	354820.7	2017	1101	191468	67936815240	4465	0.0233198	01101	1584274553
1101051003	01101	303	2017	Iquique	354820.7	2017	1101	191468	67936815240	4656	0.0243174	01101	1652045312
1101051004	01101	200	2017	Iquique	354820.7	2017	1101	191468	67936815240	2097	0.0109522	01101	744059068
1101051005	01101	269	2017	Iquique	354820.7	2017	1101	191468	67936815240	3569	0.0186402	01101	1266355180
1101051006	01101	256	2017	Iquique	354820.7	2017	1101	191468	67936815240	2741	0.0143157	01101	972563617
1101061001	01101	105	2017	Iquique	354820.7	2017	1101	191468	67936815240	1625	0.0084871	01101	576583684
1101061002	01101	349	2017	Iquique	354820.7	2017	1101	191468	67936815240	4767	0.0248971	01101	1691430413
1101061003	01101	259	2017	Iquique	354820.7	2017	1101	191468	67936815240	4826	0.0252053	01101	1712364836
1101061004	01101	134	2017	Iquique	354820.7	2017	1101	191468	67936815240	4077	0.0212934	01101	1446604110
1101061005	01101	144	2017	Iquique	354820.7	2017	1101	191468	67936815240	2166	0.0113126	01101	768541698
1101071001	01101	271	2017	Iquique	354820.7	2017	1101	191468	67936815240	2324	0.0121378	01101	824603373
1101071002	01101	453	2017	Iquique	354820.7	2017	1101	191468	67936815240	2801	0.0146291	01101	993852860
1101071003	01101	483	2017	Iquique	354820.7	2017	1101	191468	67936815240	3829	0.0199981	01101	1358608569
1101071004	01101	211	2017	Iquique	354820.7	2017	1101	191468	67936815240	1987	0.0103777	01101	705028787
1101081001	01101	601	2017	Iquique	354820.7	2017	1101	191468	67936815240	5133	0.0268087	01101	1821294799
1101081002	01101	469	2017	Iquique	354820.7	2017	1101	191468	67936815240	3233	0.0168853	01101	1147135415
1101081003	01101	328	2017	Iquique	354820.7	2017	1101	191468	67936815240	2122	0.0110828	01101	752929586
1101081004	01101	284	2017	Iquique	354820.7	2017	1101	191468	67936815240	2392	0.0124929	01101	848731183
1101092004	01101	6	2017	Iquique	354820.7	2017	1101	191468	67936815240	247	0.0012900	01101	87640720
1101092005	01101	1	2017	Iquique	354820.7	2017	1101	191468	67936815240	76	0.0003969	01101	26966375
1101092006	01101	35	2017	Iquique	354820.7	2017	1101	191468	67936815240	603	0.0031494	01101	213956899
1101092007	01101	1	2017	Iquique	354820.7	2017	1101	191468	67936815240	84	0.0004387	01101	29804941
1101092010	01101	36	2017	Iquique	354820.7	2017	1101	191468	67936815240	398	0.0020787	01101	141218650
1101092012	01101	3	2017	Iquique	354820.7	2017	1101	191468	67936815240	58	0.0003029	01101	20579602
1101092016	01101	1	2017	Iquique	354820.7	2017	1101	191468	67936815240	20	0.0001045	01101	7096415
1101092017	01101	5	2017	Iquique	354820.7	2017	1101	191468	67936815240	8	0.0000418	01101	2838566
1101092018	01101	6	2017	Iquique	354820.7	2017	1101	191468	67936815240	74	0.0003865	01101	26256734
1101092019	01101	2	2017	Iquique	354820.7	2017	1101	191468	67936815240	25	0.0001306	01101	8870518
1101092021	01101	11	2017	Iquique	354820.7	2017	1101	191468	67936815240	177	0.0009244	01101	62803269
1101092023	01101	13	2017	Iquique	354820.7	2017	1101	191468	67936815240	288	0.0015042	01101	102188370
1101092024	01101	1	2017	Iquique	354820.7	2017	1101	191468	67936815240	14	0.0000731	01101	4967490
1101101001	01101	230	2017	Iquique	354820.7	2017	1101	191468	67936815240	2672	0.0139553	01101	948080986
1101101002	01101	420	2017	Iquique	354820.7	2017	1101	191468	67936815240	4398	0.0229699	01101	1560501564
1101101003	01101	323	2017	Iquique	354820.7	2017	1101	191468	67936815240	4524	0.0236280	01101	1605208976
1101101004	01101	249	2017	Iquique	354820.7	2017	1101	191468	67936815240	3544	0.0185096	01101	1257484662
1101101005	01101	481	2017	Iquique	354820.7	2017	1101	191468	67936815240	4911	0.0256492	01101	1742524598
1101101006	01101	356	2017	Iquique	354820.7	2017	1101	191468	67936815240	3688	0.0192617	01101	1308578847
1101111001	01101	249	2017	Iquique	354820.7	2017	1101	191468	67936815240	3886	0.0202958	01101	1378833351
1101111002	01101	184	2017	Iquique	354820.7	2017	1101	191468	67936815240	2312	0.0120751	01101	820345524
1101111003	01101	353	2017	Iquique	354820.7	2017	1101	191468	67936815240	4874	0.0254560	01101	1729396231
1101111004	01101	279	2017	Iquique	354820.7	2017	1101	191468	67936815240	4543	0.0237272	01101	1611950569
1101111005	01101	359	2017	Iquique	354820.7	2017	1101	191468	67936815240	4331	0.0226200	01101	1536728575
1101111006	01101	60	2017	Iquique	354820.7	2017	1101	191468	67936815240	3253	0.0169898	01101	1154231830
1101111007	01101	234	2017	Iquique	354820.7	2017	1101	191468	67936815240	4639	0.0242286	01101	1646013359
1101111008	01101	322	2017	Iquique	354820.7	2017	1101	191468	67936815240	4881	0.0254925	01101	1731879976
1101111009	01101	317	2017	Iquique	354820.7	2017	1101	191468	67936815240	5006	0.0261454	01101	1776232567
1101111010	01101	21	2017	Iquique	354820.7	2017	1101	191468	67936815240	366	0.0019115	01101	129864387
1101111011	01101	309	2017	Iquique	354820.7	2017	1101	191468	67936815240	4351	0.0227244	01101	1543824990
1101111012	01101	109	2017	Iquique	354820.7	2017	1101	191468	67936815240	2926	0.0152819	01101	1038205452
1101111013	01101	227	2017	Iquique	354820.7	2017	1101	191468	67936815240	3390	0.0177053	01101	1202842270
1101111014	01101	138	2017	Iquique	354820.7	2017	1101	191468	67936815240	2940	0.0153550	01101	1043172942
1101112003	01101	9	2017	Iquique	354820.7	2017	1101	191468	67936815240	33	0.0001724	01101	11709084
1101112013	01101	9	2017	Iquique	354820.7	2017	1101	191468	67936815240	104	0.0005432	01101	36901356
1101112025	01101	1	2017	Iquique	354820.7	2017	1101	191468	67936815240	21	0.0001097	01101	7451235
1101112901	01101	1	2017	Iquique	354820.7	2017	1101	191468	67936815240	6	0.0000313	01101	2128924
1101991999	01101	68	2017	Iquique	354820.7	2017	1101	191468	67936815240	1062	0.0055466	01101	376819614
1107011001	01107	245	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	4104	0.0378685	01107	1239134756
1107011002	01107	284	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	4360	0.0402307	01107	1316429711
1107011003	01107	280	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	8549	0.0788835	01107	2581228808
1107021001	01107	738	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	6701	0.0618316	01107	2023255848
1107021002	01107	407	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	3971	0.0366413	01107	1198977611
1107021003	01107	323	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	6349	0.0585836	01107	1916975284
1107021004	01107	466	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	5125	0.0472895	01107	1547408778
1107021005	01107	471	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	4451	0.0410704	01107	1343905653
1107021006	01107	201	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	3864	0.0356540	01107	1166670735
1107021007	01107	466	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	5235	0.0483045	01107	1580621454
1107021008	01107	416	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	4566	0.0421315	01107	1378627996
1107031001	01107	358	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	4195	0.0387082	01107	1266610697
1107031002	01107	594	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	7099	0.0655040	01107	2143425349
1107031003	01107	251	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	4720	0.0435525	01107	1425125743
1107032005	01107	5	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	38	0.0003506	01107	11473470
1107041001	01107	233	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	3630	0.0334948	01107	1096018315
1107041002	01107	342	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	5358	0.0494394	01107	1617759265
1107041003	01107	252	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	4520	0.0417070	01107	1364739059
1107041004	01107	272	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	5317	0.0490611	01107	1605379994
1107041005	01107	207	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	3725	0.0343714	01107	1124701990
1107041006	01107	249	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	4009	0.0369919	01107	1210451081
1107041007	01107	359	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	5217	0.0481384	01107	1575186652
1107042002	01107	3	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	30	0.0002768	01107	9058003
1107991999	01107	41	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	819	0.0075571	01107	247283471
1401011001	01401	197	2017	Pozo Almonte	285981.8	2017	1401	15711	4493059532	2771	0.1763732	01401	792455475
1401011002	01401	411	2017	Pozo Almonte	285981.8	2017	1401	15711	4493059532	6506	0.4141048	01401	1860597372

7 Análisis de regresión

Aplicaremos un análisis de regresión donde:

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

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

7.1 Diagrama de dispersión

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

7.2 Outliers

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

7.3 Modelo lineal

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

linearMod <- lm( multi_pob~(Freq.x) , data=h_y_m_comuna_corr_01)
summary(linearMod) 

## 
## Call:
## lm(formula = multi_pob ~ (Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -778713702 -109149227  -94148848  116773259 1453761808 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 103753651   31169768   3.329  0.00109 ** 
## Freq.x        3656119     135103  27.062  < 2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 294300000 on 158 degrees of freedom
##   (7 observations deleted due to missingness)
## Multiple R-squared:  0.8225, Adjusted R-squared:  0.8214 
## F-statistic: 732.3 on 1 and 158 DF,  p-value: < 2.2e-16

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

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

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

8 Modelos alternativos

8.1 Modelo cuadrático

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

linearMod <- lm( multi_pob~(Freq.x^2) , data=h_y_m_comuna_corr_01)
summary(linearMod) 

## 
## Call:
## lm(formula = multi_pob ~ (Freq.x^2), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -778713702 -109149227  -94148848  116773259 1453761808 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 103753651   31169768   3.329  0.00109 ** 
## Freq.x        3656119     135103  27.062  < 2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 294300000 on 158 degrees of freedom
##   (7 observations deleted due to missingness)
## Multiple R-squared:  0.8225, Adjusted R-squared:  0.8214 
## F-statistic: 732.3 on 1 and 158 DF,  p-value: < 2.2e-16

8.2 Modelo cúbico

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

linearMod <- lm( multi_pob~(Freq.x^3) , data=h_y_m_comuna_corr_01)
summary(linearMod) 

## 
## Call:
## lm(formula = multi_pob ~ (Freq.x^3), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -778713702 -109149227  -94148848  116773259 1453761808 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 103753651   31169768   3.329  0.00109 ** 
## Freq.x        3656119     135103  27.062  < 2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 294300000 on 158 degrees of freedom
##   (7 observations deleted due to missingness)
## Multiple R-squared:  0.8225, Adjusted R-squared:  0.8214 
## F-statistic: 732.3 on 1 and 158 DF,  p-value: < 2.2e-16

8.3 Modelo logarítmico

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

linearMod <- lm( multi_pob~log(Freq.x) , data=h_y_m_comuna_corr_01)
summary(linearMod) 

## 
## Call:
## lm(formula = multi_pob ~ log(Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -702369877 -240830930    2750951  266230472 1339912491 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)    
## (Intercept) -261556818   46451524  -5.631 8.01e-08 ***
## log(Freq.x)  266713265   11141523  23.939  < 2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 324700000 on 158 degrees of freedom
##   (7 observations deleted due to missingness)
## Multiple R-squared:  0.7839, Adjusted R-squared:  0.7825 
## F-statistic: 573.1 on 1 and 158 DF,  p-value: < 2.2e-16

8.4 Modelo exponencial

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

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

8.5 Modelo con raíz cuadrada

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

linearMod <- lm( multi_pob~sqrt(Freq.x) , data=h_y_m_comuna_corr_01)
summary(linearMod) 

## 
## Call:
## lm(formula = multi_pob ~ sqrt(Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -643406415 -124632045    3480125   68294852 1323291761 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  -136885689   30447720  -4.496 1.33e-05 ***
## sqrt(Freq.x)   83356602    2457090  33.925  < 2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 242700000 on 158 degrees of freedom
##   (7 observations deleted due to missingness)
## Multiple R-squared:  0.8793, Adjusted R-squared:  0.8785 
## F-statistic:  1151 on 1 and 158 DF,  p-value: < 2.2e-16

8.6 Modelo raíz-raíz

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

linearMod <- lm( sqrt(multi_pob)~sqrt(Freq.x) , data=h_y_m_comuna_corr_01)
summary(linearMod) 

## 
## Call:
## lm(formula = sqrt(multi_pob) ~ sqrt(Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -11631.6  -2362.9   -872.9   1970.3  17362.9 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept)   1422.21     551.15    2.58   0.0108 *  
## sqrt(Freq.x)  1960.87      44.48   44.09   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 4393 on 158 degrees of freedom
##   (7 observations deleted due to missingness)
## Multiple R-squared:  0.9248, Adjusted R-squared:  0.9243 
## F-statistic:  1944 on 1 and 158 DF,  p-value: < 2.2e-16

8.7 Modelo log-raíz

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

linearMod <- lm( log(multi_pob)~sqrt(Freq.x) , data=h_y_m_comuna_corr_01)
summary(linearMod) 

## 
## Call:
## lm(formula = log(multi_pob) ~ sqrt(Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.1592 -0.6229  0.1736  0.6357  2.5838 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  16.167220   0.116383  138.91   <2e-16 ***
## sqrt(Freq.x)  0.273133   0.009392   29.08   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.9277 on 158 degrees of freedom
##   (7 observations deleted due to missingness)
## Multiple R-squared:  0.8426, Adjusted R-squared:  0.8416 
## F-statistic: 845.7 on 1 and 158 DF,  p-value: < 2.2e-16

8.8 Modelo raíz-log

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

linearMod <- lm( sqrt(multi_pob)~log(Freq.x) , data=h_y_m_comuna_corr_01)
summary(linearMod) 

## 
## Call:
## lm(formula = sqrt(multi_pob) ~ log(Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -11365.4  -4266.6     99.9   4088.3  16384.4 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  -2441.2      737.8  -3.309  0.00116 ** 
## log(Freq.x)   6542.0      177.0  36.966  < 2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 5158 on 158 degrees of freedom
##   (7 observations deleted due to missingness)
## Multiple R-squared:  0.8964, Adjusted R-squared:  0.8957 
## F-statistic:  1367 on 1 and 158 DF,  p-value: < 2.2e-16

8.9 Modelo log-log

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

linearMod <- lm( log(multi_pob)~log(Freq.x) , data=h_y_m_comuna_corr_01)
summary(linearMod) 

## 
## Call:
## lm(formula = log(multi_pob) ~ log(Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -2.12838 -0.32952 -0.01881  0.30228  2.49967 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 15.42700    0.09206   167.6   <2e-16 ***
## log(Freq.x)  0.96940    0.02208    43.9   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.6436 on 158 degrees of freedom
##   (7 observations deleted due to missingness)
## Multiple R-squared:  0.9242, Adjusted R-squared:  0.9238 
## F-statistic:  1927 on 1 and 158 DF,  p-value: < 2.2e-16

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

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

9.1 Diagrama de dispersión sobre r-r

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

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

9.2 Modelo r-r

Observemos nuevamente el resultado sobre r-r.

linearMod <- lm(sqrt( multi_pob)~sqrt(Freq.x) , data=h_y_m_comuna_corr_01)
summary(linearMod) 

## 
## Call:
## lm(formula = sqrt(multi_pob) ~ sqrt(Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -11631.6  -2362.9   -872.9   1970.3  17362.9 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept)   1422.21     551.15    2.58   0.0108 *  
## sqrt(Freq.x)  1960.87      44.48   44.09   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 4393 on 158 degrees of freedom
##   (7 observations deleted due to missingness)
## Multiple R-squared:  0.9248, Adjusted R-squared:  0.9243 
## F-statistic:  1944 on 1 and 158 DF,  p-value: < 2.2e-16

ggplot(h_y_m_comuna_corr_01, aes(x = sqrt(Freq.x) , y = sqrt(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 = 1422.21^2 + 2 \cdot 1422.21 \cdot 1960.87 \sqrt{X} + 1960.87 ^2 \cdot X \]

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

Esta nueva variable se llamará: est_ing

h_y_m_comuna_corr_01$est_ing <- 1422.21^2 + 1422.21* 1960.87* sqrt(h_y_m_comuna_corr_01$Freq.x)+1960.87 ^2*h_y_m_comuna_corr_01$Freq.x

r3_100 <- h_y_m_comuna_corr_01[c(1:100),]
kbl(r3_100) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

zona	código.x	Freq.x	anio	comuna.x	promedio_i	año	comuna.y	personas	Ingresos_expandidos	Freq.y	p_poblacional	código.y	multi_pob	est_ing
1101011001	01101	298	2017	Iquique	354820.7	2017	1101	191468	67936815240	2491	0.0130100	01101	883858435	1195977622
1101011002	01101	95	2017	Iquique	354820.7	2017	1101	191468	67936815240	1475	0.0077036	01101	523360575	394480298
1101021001	01101	55	2017	Iquique	354820.7	2017	1101	191468	67936815240	1003	0.0052385	01101	355885191	234180359
1101021002	01101	2	2017	Iquique	354820.7	2017	1101	191468	67936815240	54	0.0002820	01101	19160319	13656618
1101021003	01101	265	2017	Iquique	354820.7	2017	1101	191468	67936815240	2895	0.0151200	01101	1027206009	1066348507
1101021004	01101	178	2017	Iquique	354820.7	2017	1101	191468	67936815240	2398	0.0125243	01101	850860107	723641485
1101021005	01101	337	2017	Iquique	354820.7	2017	1101	191468	67936815240	4525	0.0236332	01101	1605563796	1348986433
1101031001	01101	194	2017	Iquique	354820.7	2017	1101	191468	67936815240	2725	0.0142321	01101	966886485	786797902
1101031002	01101	482	2017	Iquique	354820.7	2017	1101	191468	67936815240	3554	0.0185618	01101	1261032869	1916544082
1101031003	01101	328	2017	Iquique	354820.7	2017	1101	191468	67936815240	5246	0.0273988	01101	1861389542	1313693094
1101031004	01101	171	2017	Iquique	354820.7	2017	1101	191468	67936815240	3389	0.0177001	01101	1202487449	695987475
1101041001	01101	135	2017	Iquique	354820.7	2017	1101	191468	67936815240	1800	0.0094010	01101	638677311	553501754
1101041002	01101	228	2017	Iquique	354820.7	2017	1101	191468	67936815240	2538	0.0132555	01101	900535009	920794712
1101041003	01101	235	2017	Iquique	354820.7	2017	1101	191468	67936815240	3855	0.0201339	01101	1367833908	948351321
1101041004	01101	636	2017	Iquique	354820.7	2017	1101	191468	67936815240	5663	0.0295767	01101	2009349785	2517779853
1101041005	01101	403	2017	Iquique	354820.7	2017	1101	191468	67936815240	4162	0.0217373	01101	1476763872	1607546323
1101041006	01101	214	2017	Iquique	354820.7	2017	1101	191468	67936815240	2689	0.0140441	01101	954112939	865651241
1101051001	01101	364	2017	Iquique	354820.7	2017	1101	191468	67936815240	3296	0.0172144	01101	1169489121	1454813062
1101051002	01101	350	2017	Iquique	354820.7	2017	1101	191468	67936815240	4465	0.0233198	01101	1584274553	1399949675
1101051003	01101	303	2017	Iquique	354820.7	2017	1101	191468	67936815240	4656	0.0243174	01101	1652045312	1215604870
1101051004	01101	200	2017	Iquique	354820.7	2017	1101	191468	67936815240	2097	0.0109522	01101	744059068	810464061
1101051005	01101	269	2017	Iquique	354820.7	2017	1101	191468	67936815240	3569	0.0186402	01101	1266355180	1082069894
1101051006	01101	256	2017	Iquique	354820.7	2017	1101	191468	67936815240	2741	0.0143157	01101	972563617	1030965840
1101061001	01101	105	2017	Iquique	354820.7	2017	1101	191468	67936815240	1625	0.0084871	01101	576583684	434325231
1101061002	01101	349	2017	Iquique	354820.7	2017	1101	191468	67936815240	4767	0.0248971	01101	1691430413	1396030078
1101061003	01101	259	2017	Iquique	354820.7	2017	1101	191468	67936815240	4826	0.0252053	01101	1712364836	1042761559
1101061004	01101	134	2017	Iquique	354820.7	2017	1101	191468	67936815240	4077	0.0212934	01101	1446604110	549536511
1101061005	01101	144	2017	Iquique	354820.7	2017	1101	191468	67936815240	2166	0.0113126	01101	768541698	589169515
1101071001	01101	271	2017	Iquique	354820.7	2017	1101	191468	67936815240	2324	0.0121378	01101	824603373	1089929635
1101071002	01101	453	2017	Iquique	354820.7	2017	1101	191468	67936815240	2801	0.0146291	01101	993852860	1803168326
1101071003	01101	483	2017	Iquique	354820.7	2017	1101	191468	67936815240	3829	0.0199981	01101	1358608569	1920452572
1101071004	01101	211	2017	Iquique	354820.7	2017	1101	191468	67936815240	1987	0.0103777	01101	705028787	853829244
1101081001	01101	601	2017	Iquique	354820.7	2017	1101	191468	67936815240	5133	0.0268087	01101	1821294799	2381241897
1101081002	01101	469	2017	Iquique	354820.7	2017	1101	191468	67936815240	3233	0.0168853	01101	1147135415	1865727631
1101081003	01101	328	2017	Iquique	354820.7	2017	1101	191468	67936815240	2122	0.0110828	01101	752929586	1313693094
1101081004	01101	284	2017	Iquique	354820.7	2017	1101	191468	67936815240	2392	0.0124929	01101	848731183	1141003019
1101092004	01101	6	2017	Iquique	354820.7	2017	1101	191468	67936815240	247	0.0012900	01101	87640720	31923809
1101092005	01101	1	2017	Iquique	354820.7	2017	1101	191468	67936815240	76	0.0003969	01101	26966375	8656461
1101092006	01101	35	2017	Iquique	354820.7	2017	1101	191468	67936815240	603	0.0031494	01101	213956899	153096651
1101092007	01101	1	2017	Iquique	354820.7	2017	1101	191468	67936815240	84	0.0004387	01101	29804941	8656461
1101092010	01101	36	2017	Iquique	354820.7	2017	1101	191468	67936815240	398	0.0020787	01101	141218650	157175696
1101092012	01101	3	2017	Iquique	354820.7	2017	1101	191468	67936815240	58	0.0003029	01101	20579602	18388004
1101092016	01101	1	2017	Iquique	354820.7	2017	1101	191468	67936815240	20	0.0001045	01101	7096415	8656461
1101092017	01101	5	2017	Iquique	354820.7	2017	1101	191468	67936815240	8	0.0000418	01101	2838566	27483614
1101092018	01101	6	2017	Iquique	354820.7	2017	1101	191468	67936815240	74	0.0003865	01101	26256734	31923809
1101092019	01101	2	2017	Iquique	354820.7	2017	1101	191468	67936815240	25	0.0001306	01101	8870518	13656618
1101092021	01101	11	2017	Iquique	354820.7	2017	1101	191468	67936815240	177	0.0009244	01101	62803269	53567104
1101092023	01101	13	2017	Iquique	354820.7	2017	1101	191468	67936815240	288	0.0015042	01101	102188370	62062876
1101092024	01101	1	2017	Iquique	354820.7	2017	1101	191468	67936815240	14	0.0000731	01101	4967490	8656461
1101101001	01101	230	2017	Iquique	354820.7	2017	1101	191468	67936815240	2672	0.0139553	01101	948080986	928669022
1101101002	01101	420	2017	Iquique	354820.7	2017	1101	191468	67936815240	4398	0.0229699	01101	1560501564	1674080123
1101101003	01101	323	2017	Iquique	354820.7	2017	1101	191468	67936815240	4524	0.0236280	01101	1605208976	1294081600
1101101004	01101	249	2017	Iquique	354820.7	2017	1101	191468	67936815240	3544	0.0185096	01101	1257484662	1003436491
1101101005	01101	481	2017	Iquique	354820.7	2017	1101	191468	67936815240	4911	0.0256492	01101	1742524598	1912635525
1101101006	01101	356	2017	Iquique	354820.7	2017	1101	191468	67936815240	3688	0.0192617	01101	1308578847	1423465040
1101111001	01101	249	2017	Iquique	354820.7	2017	1101	191468	67936815240	3886	0.0202958	01101	1378833351	1003436491
1101111002	01101	184	2017	Iquique	354820.7	2017	1101	191468	67936815240	2312	0.0120751	01101	820345524	747333436
1101111003	01101	353	2017	Iquique	354820.7	2017	1101	191468	67936815240	4874	0.0254560	01101	1729396231	1411707831
1101111004	01101	279	2017	Iquique	354820.7	2017	1101	191468	67936815240	4543	0.0237272	01101	1611950569	1121362419
1101111005	01101	359	2017	Iquique	354820.7	2017	1101	191468	67936815240	4331	0.0226200	01101	1536728575	1435221315
1101111006	01101	60	2017	Iquique	354820.7	2017	1101	191468	67936815240	3253	0.0169898	01101	1154231830	254325062
1101111007	01101	234	2017	Iquique	354820.7	2017	1101	191468	67936815240	4639	0.0242286	01101	1646013359	944415253
1101111008	01101	322	2017	Iquique	354820.7	2017	1101	191468	67936815240	4881	0.0254925	01101	1731879976	1290158943
1101111009	01101	317	2017	Iquique	354820.7	2017	1101	191468	67936815240	5006	0.0261454	01101	1776232567	1270543837
1101111010	01101	21	2017	Iquique	354820.7	2017	1101	191468	67936815240	366	0.0019115	01101	129864387	95547660
1101111011	01101	309	2017	Iquique	354820.7	2017	1101	191468	67936815240	4351	0.0227244	01101	1543824990	1239153213
1101111012	01101	109	2017	Iquique	354820.7	2017	1101	191468	67936815240	2926	0.0152819	01101	1038205452	450244500
1101111013	01101	227	2017	Iquique	354820.7	2017	1101	191468	67936815240	3390	0.0177053	01101	1202842270	916857254
1101111014	01101	138	2017	Iquique	354820.7	2017	1101	191468	67936815240	2940	0.0153550	01101	1043172942	565394838
1101112003	01101	9	2017	Iquique	354820.7	2017	1101	191468	67936815240	33	0.0001724	01101	11709084	44994088
1101112013	01101	9	2017	Iquique	354820.7	2017	1101	191468	67936815240	104	0.0005432	01101	36901356	44994088
1101112025	01101	1	2017	Iquique	354820.7	2017	1101	191468	67936815240	21	0.0001097	01101	7451235	8656461
1101112901	01101	1	2017	Iquique	354820.7	2017	1101	191468	67936815240	6	0.0000313	01101	2128924	8656461
1101991999	01101	68	2017	Iquique	354820.7	2017	1101	191468	67936815240	1062	0.0055466	01101	376819614	286480218
1107011001	01107	245	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	4104	0.0378685	01107	1239134756	987701553
1107011002	01107	284	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	4360	0.0402307	01107	1316429711	1141003019
1107011003	01107	280	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	8549	0.0788835	01107	2581228808	1125290835
1107021001	01107	738	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	6701	0.0618316	01107	2023255848	2915401045
1107021002	01107	407	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	3971	0.0366413	01107	1198977611	1623203518
1107021003	01107	323	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	6349	0.0585836	01107	1916975284	1294081600
1107021004	01107	466	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	5125	0.0472895	01107	1547408778	1853999128
1107021005	01107	471	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	4451	0.0410704	01107	1343905653	1873546290
1107021006	01107	201	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	3864	0.0356540	01107	1166670735	814407547
1107021007	01107	466	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	5235	0.0483045	01107	1580621454	1853999128
1107021008	01107	416	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	4566	0.0421315	01107	1378627996	1658427271
1107031001	01107	358	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	4195	0.0387082	01107	1266610697	1431302660
1107031002	01107	594	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	7099	0.0655040	01107	2143425349	2353927506
1107031003	01107	251	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	4720	0.0435525	01107	1425125743	1011302891
1107032005	01107	5	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	38	0.0003506	01107	11473470	27483614
1107041001	01107	233	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	3630	0.0334948	01107	1096018315	940478991
1107041002	01107	342	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	5358	0.0494394	01107	1617759265	1368589876
1107041003	01107	252	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	4520	0.0417070	01107	1364739059	1015235827
1107041004	01107	272	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	5317	0.0490611	01107	1605379994	1093859271
1107041005	01107	207	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	3725	0.0343714	01107	1124701990	838063388
1107041006	01107	249	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	4009	0.0369919	01107	1210451081	1003436491
1107041007	01107	359	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	5217	0.0481384	01107	1575186652	1435221315
1107042002	01107	3	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	30	0.0002768	01107	9058003	18388004
1107991999	01107	41	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	819	0.0075571	01107	247283471	177524973
1401011001	01401	197	2017	Pozo Almonte	285981.8	2017	1401	15711	4493059532	2771	0.1763732	01401	792455475	798632116
1401011002	01401	411	2017	Pozo Almonte	285981.8	2017	1401	15711	4493059532	6506	0.4141048	01401	1860597372	1638859355

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

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

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

r3_100 <- h_y_m_comuna_corr_01[c(1:100),]
kbl(r3_100) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

zona	código.x	Freq.x	anio	comuna.x	promedio_i	año	comuna.y	personas	Ingresos_expandidos	Freq.y	p_poblacional	código.y	multi_pob	est_ing	ing_medio_zona
1101011001	01101	298	2017	Iquique	354820.7	2017	1101	191468	67936815240	2491	0.0130100	01101	883858435	1195977622	480119.5
1101011002	01101	95	2017	Iquique	354820.7	2017	1101	191468	67936815240	1475	0.0077036	01101	523360575	394480298	267444.3
1101021001	01101	55	2017	Iquique	354820.7	2017	1101	191468	67936815240	1003	0.0052385	01101	355885191	234180359	233479.9
1101021002	01101	2	2017	Iquique	354820.7	2017	1101	191468	67936815240	54	0.0002820	01101	19160319	13656618	252900.3
1101021003	01101	265	2017	Iquique	354820.7	2017	1101	191468	67936815240	2895	0.0151200	01101	1027206009	1066348507	368341.5
1101021004	01101	178	2017	Iquique	354820.7	2017	1101	191468	67936815240	2398	0.0125243	01101	850860107	723641485	301768.8
1101021005	01101	337	2017	Iquique	354820.7	2017	1101	191468	67936815240	4525	0.0236332	01101	1605563796	1348986433	298118.5
1101031001	01101	194	2017	Iquique	354820.7	2017	1101	191468	67936815240	2725	0.0142321	01101	966886485	786797902	288733.2
1101031002	01101	482	2017	Iquique	354820.7	2017	1101	191468	67936815240	3554	0.0185618	01101	1261032869	1916544082	539264.0
1101031003	01101	328	2017	Iquique	354820.7	2017	1101	191468	67936815240	5246	0.0273988	01101	1861389542	1313693094	250418.1
1101031004	01101	171	2017	Iquique	354820.7	2017	1101	191468	67936815240	3389	0.0177001	01101	1202487449	695987475	205366.6
1101041001	01101	135	2017	Iquique	354820.7	2017	1101	191468	67936815240	1800	0.0094010	01101	638677311	553501754	307501.0
1101041002	01101	228	2017	Iquique	354820.7	2017	1101	191468	67936815240	2538	0.0132555	01101	900535009	920794712	362803.3
1101041003	01101	235	2017	Iquique	354820.7	2017	1101	191468	67936815240	3855	0.0201339	01101	1367833908	948351321	246005.5
1101041004	01101	636	2017	Iquique	354820.7	2017	1101	191468	67936815240	5663	0.0295767	01101	2009349785	2517779853	444601.8
1101041005	01101	403	2017	Iquique	354820.7	2017	1101	191468	67936815240	4162	0.0217373	01101	1476763872	1607546323	386243.7
1101041006	01101	214	2017	Iquique	354820.7	2017	1101	191468	67936815240	2689	0.0140441	01101	954112939	865651241	321923.1
1101051001	01101	364	2017	Iquique	354820.7	2017	1101	191468	67936815240	3296	0.0172144	01101	1169489121	1454813062	441387.5
1101051002	01101	350	2017	Iquique	354820.7	2017	1101	191468	67936815240	4465	0.0233198	01101	1584274553	1399949675	313538.6
1101051003	01101	303	2017	Iquique	354820.7	2017	1101	191468	67936815240	4656	0.0243174	01101	1652045312	1215604870	261083.5
1101051004	01101	200	2017	Iquique	354820.7	2017	1101	191468	67936815240	2097	0.0109522	01101	744059068	810464061	386487.4
1101051005	01101	269	2017	Iquique	354820.7	2017	1101	191468	67936815240	3569	0.0186402	01101	1266355180	1082069894	303185.7
1101051006	01101	256	2017	Iquique	354820.7	2017	1101	191468	67936815240	2741	0.0143157	01101	972563617	1030965840	376127.6
1101061001	01101	105	2017	Iquique	354820.7	2017	1101	191468	67936815240	1625	0.0084871	01101	576583684	434325231	267277.1
1101061002	01101	349	2017	Iquique	354820.7	2017	1101	191468	67936815240	4767	0.0248971	01101	1691430413	1396030078	292853.0
1101061003	01101	259	2017	Iquique	354820.7	2017	1101	191468	67936815240	4826	0.0252053	01101	1712364836	1042761559	216071.6
1101061004	01101	134	2017	Iquique	354820.7	2017	1101	191468	67936815240	4077	0.0212934	01101	1446604110	549536511	134789.4
1101061005	01101	144	2017	Iquique	354820.7	2017	1101	191468	67936815240	2166	0.0113126	01101	768541698	589169515	272008.1
1101071001	01101	271	2017	Iquique	354820.7	2017	1101	191468	67936815240	2324	0.0121378	01101	824603373	1089929635	468988.7
1101071002	01101	453	2017	Iquique	354820.7	2017	1101	191468	67936815240	2801	0.0146291	01101	993852860	1803168326	643758.8
1101071003	01101	483	2017	Iquique	354820.7	2017	1101	191468	67936815240	3829	0.0199981	01101	1358608569	1920452572	501554.6
1101071004	01101	211	2017	Iquique	354820.7	2017	1101	191468	67936815240	1987	0.0103777	01101	705028787	853829244	429707.7
1101081001	01101	601	2017	Iquique	354820.7	2017	1101	191468	67936815240	5133	0.0268087	01101	1821294799	2381241897	463908.4
1101081002	01101	469	2017	Iquique	354820.7	2017	1101	191468	67936815240	3233	0.0168853	01101	1147135415	1865727631	577088.7
1101081003	01101	328	2017	Iquique	354820.7	2017	1101	191468	67936815240	2122	0.0110828	01101	752929586	1313693094	619082.5
1101081004	01101	284	2017	Iquique	354820.7	2017	1101	191468	67936815240	2392	0.0124929	01101	848731183	1141003019	477008.0
1101092004	01101	6	2017	Iquique	354820.7	2017	1101	191468	67936815240	247	0.0012900	01101	87640720	31923809	129246.2
1101092005	01101	1	2017	Iquique	354820.7	2017	1101	191468	67936815240	76	0.0003969	01101	26966375	8656461	113900.8
1101092006	01101	35	2017	Iquique	354820.7	2017	1101	191468	67936815240	603	0.0031494	01101	213956899	153096651	253891.6
1101092007	01101	1	2017	Iquique	354820.7	2017	1101	191468	67936815240	84	0.0004387	01101	29804941	8656461	103053.1
1101092010	01101	36	2017	Iquique	354820.7	2017	1101	191468	67936815240	398	0.0020787	01101	141218650	157175696	394913.8
1101092012	01101	3	2017	Iquique	354820.7	2017	1101	191468	67936815240	58	0.0003029	01101	20579602	18388004	317034.6
1101092016	01101	1	2017	Iquique	354820.7	2017	1101	191468	67936815240	20	0.0001045	01101	7096415	8656461	432823.1
1101092017	01101	5	2017	Iquique	354820.7	2017	1101	191468	67936815240	8	0.0000418	01101	2838566	27483614	3435451.7
1101092018	01101	6	2017	Iquique	354820.7	2017	1101	191468	67936815240	74	0.0003865	01101	26256734	31923809	431402.8
1101092019	01101	2	2017	Iquique	354820.7	2017	1101	191468	67936815240	25	0.0001306	01101	8870518	13656618	546264.7
1101092021	01101	11	2017	Iquique	354820.7	2017	1101	191468	67936815240	177	0.0009244	01101	62803269	53567104	302639.0
1101092023	01101	13	2017	Iquique	354820.7	2017	1101	191468	67936815240	288	0.0015042	01101	102188370	62062876	215496.1
1101092024	01101	1	2017	Iquique	354820.7	2017	1101	191468	67936815240	14	0.0000731	01101	4967490	8656461	618318.7
1101101001	01101	230	2017	Iquique	354820.7	2017	1101	191468	67936815240	2672	0.0139553	01101	948080986	928669022	347555.8
1101101002	01101	420	2017	Iquique	354820.7	2017	1101	191468	67936815240	4398	0.0229699	01101	1560501564	1674080123	380645.8
1101101003	01101	323	2017	Iquique	354820.7	2017	1101	191468	67936815240	4524	0.0236280	01101	1605208976	1294081600	286048.1
1101101004	01101	249	2017	Iquique	354820.7	2017	1101	191468	67936815240	3544	0.0185096	01101	1257484662	1003436491	283136.7
1101101005	01101	481	2017	Iquique	354820.7	2017	1101	191468	67936815240	4911	0.0256492	01101	1742524598	1912635525	389459.5
1101101006	01101	356	2017	Iquique	354820.7	2017	1101	191468	67936815240	3688	0.0192617	01101	1308578847	1423465040	385972.1
1101111001	01101	249	2017	Iquique	354820.7	2017	1101	191468	67936815240	3886	0.0202958	01101	1378833351	1003436491	258218.3
1101111002	01101	184	2017	Iquique	354820.7	2017	1101	191468	67936815240	2312	0.0120751	01101	820345524	747333436	323241.1
1101111003	01101	353	2017	Iquique	354820.7	2017	1101	191468	67936815240	4874	0.0254560	01101	1729396231	1411707831	289640.5
1101111004	01101	279	2017	Iquique	354820.7	2017	1101	191468	67936815240	4543	0.0237272	01101	1611950569	1121362419	246833.0
1101111005	01101	359	2017	Iquique	354820.7	2017	1101	191468	67936815240	4331	0.0226200	01101	1536728575	1435221315	331383.4
1101111006	01101	60	2017	Iquique	354820.7	2017	1101	191468	67936815240	3253	0.0169898	01101	1154231830	254325062	78181.7
1101111007	01101	234	2017	Iquique	354820.7	2017	1101	191468	67936815240	4639	0.0242286	01101	1646013359	944415253	203581.6
1101111008	01101	322	2017	Iquique	354820.7	2017	1101	191468	67936815240	4881	0.0254925	01101	1731879976	1290158943	264322.7
1101111009	01101	317	2017	Iquique	354820.7	2017	1101	191468	67936815240	5006	0.0261454	01101	1776232567	1270543837	253804.2
1101111010	01101	21	2017	Iquique	354820.7	2017	1101	191468	67936815240	366	0.0019115	01101	129864387	95547660	261059.2
1101111011	01101	309	2017	Iquique	354820.7	2017	1101	191468	67936815240	4351	0.0227244	01101	1543824990	1239153213	284797.3
1101111012	01101	109	2017	Iquique	354820.7	2017	1101	191468	67936815240	2926	0.0152819	01101	1038205452	450244500	153877.1
1101111013	01101	227	2017	Iquique	354820.7	2017	1101	191468	67936815240	3390	0.0177053	01101	1202842270	916857254	270459.4
1101111014	01101	138	2017	Iquique	354820.7	2017	1101	191468	67936815240	2940	0.0153550	01101	1043172942	565394838	192311.2
1101112003	01101	9	2017	Iquique	354820.7	2017	1101	191468	67936815240	33	0.0001724	01101	11709084	44994088	1363457.2
1101112013	01101	9	2017	Iquique	354820.7	2017	1101	191468	67936815240	104	0.0005432	01101	36901356	44994088	432635.5
1101112025	01101	1	2017	Iquique	354820.7	2017	1101	191468	67936815240	21	0.0001097	01101	7451235	8656461	412212.4
1101112901	01101	1	2017	Iquique	354820.7	2017	1101	191468	67936815240	6	0.0000313	01101	2128924	8656461	1442743.6
1101991999	01101	68	2017	Iquique	354820.7	2017	1101	191468	67936815240	1062	0.0055466	01101	376819614	286480218	269755.4
1107011001	01107	245	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	4104	0.0378685	01107	1239134756	987701553	240668.0
1107011002	01107	284	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	4360	0.0402307	01107	1316429711	1141003019	261697.9
1107011003	01107	280	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	8549	0.0788835	01107	2581228808	1125290835	131628.4
1107021001	01107	738	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	6701	0.0618316	01107	2023255848	2915401045	435069.5
1107021002	01107	407	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	3971	0.0366413	01107	1198977611	1623203518	408764.4
1107021003	01107	323	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	6349	0.0585836	01107	1916975284	1294081600	203824.5
1107021004	01107	466	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	5125	0.0472895	01107	1547408778	1853999128	361755.9
1107021005	01107	471	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	4451	0.0410704	01107	1343905653	1873546290	420927.0
1107021006	01107	201	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	3864	0.0356540	01107	1166670735	814407547	210768.0
1107021007	01107	466	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	5235	0.0483045	01107	1580621454	1853999128	354154.6
1107021008	01107	416	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	4566	0.0421315	01107	1378627996	1658427271	363212.3
1107031001	01107	358	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	4195	0.0387082	01107	1266610697	1431302660	341192.5
1107031002	01107	594	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	7099	0.0655040	01107	2143425349	2353927506	331585.8
1107031003	01107	251	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	4720	0.0435525	01107	1425125743	1011302891	214259.1
1107032005	01107	5	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	38	0.0003506	01107	11473470	27483614	723253.0
1107041001	01107	233	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	3630	0.0334948	01107	1096018315	940478991	259085.1
1107041002	01107	342	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	5358	0.0494394	01107	1617759265	1368589876	255429.2
1107041003	01107	252	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	4520	0.0417070	01107	1364739059	1015235827	224609.7
1107041004	01107	272	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	5317	0.0490611	01107	1605379994	1093859271	205728.7
1107041005	01107	207	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	3725	0.0343714	01107	1124701990	838063388	224983.5
1107041006	01107	249	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	4009	0.0369919	01107	1210451081	1003436491	250296.0
1107041007	01107	359	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	5217	0.0481384	01107	1575186652	1435221315	275104.7
1107042002	01107	3	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	30	0.0002768	01107	9058003	18388004	612933.5
1107991999	01107	41	2017	Alto Hospicio	301933.4	2017	1107	108375	32722034397	819	0.0075571	01107	247283471	177524973	216758.2
1401011001	01401	197	2017	Pozo Almonte	285981.8	2017	1401	15711	4493059532	2771	0.1763732	01401	792455475	798632116	288210.8
1401011002	01401	411	2017	Pozo Almonte	285981.8	2017	1401	15711	4493059532	6506	0.4141048	01401	1860597372	1638859355	251899.7

Guardamos:

saveRDS(h_y_m_comuna_corr_01, "casen_censo_region_01.rds")

12 Referencias

https://rpubs.com/osoramirez/316691

https://dataintelligencechile.shinyapps.io/casenfinal

Manual_de_usuario_Censo_2017_16R.pdf

http://www.censo2017.cl/microdatos/

Censo de Población y Vivienda

https://www.ine.cl/estadisticas/sociales/censos-de-poblacion-y-vivienda/poblacion-y-vivienda

http://r-statistics.co/Linear-Regression.html