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

1 Variable CENSO

Necesitamos calcular las frecuencias a nivel censal de las respuestas correspondientes a la categoría: “Parquet, piso flotante, cerámico, madera, alfombra, flexit, cubrepiso u otro similar, sobre radier o vigas de madera” del campo P03C del Censo de viviendas. Recordemos que ésta fué la más alta correlación en relación a los ingresos expandidos (ver punto 1.2 aquí).

1.1 Lectura y filtrado de la tabla censal de viviendas

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

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

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

Despleguemos los códigos de regiones de nuestra tabla:

regiones <- unique(tabla_con_clave$REGION)

Hagamos un subset con la 1:

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

1.2 Cálculo de frecuencias

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

aterial de construcción del piso

names(tabla_con_clave_f)[2] <- "Tipo de piso"

# Ahora filtramos por Tipo de techo = 1.
tabla_con_clave_ff <- filter(tabla_con_clave_f, tabla_con_clave_f$`Tipo de piso` == 1)

# Determinamos las frecuencias por zona:
b <- tabla_con_clave_ff$clave
c <- tabla_con_clave_ff$`Tipo de piso`
d <- tabla_con_clave_ff$COMUNA
cross_tab =  xtabs( ~ unlist(b) + unlist(c)+ unlist(d))
tabla <- as.data.frame(cross_tab)
d <-tabla[!(tabla$Freq == 0),]
names(d)[1] <- "zona" 
d$anio <- "2017"

Veamos los primeros 100 registros:

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

	zona	unlist.c.	unlist.d.	Freq	anio
1	8101011001	1	8101	618	2017
2	8101021001	1	8101	633	2017
3	8101021002	1	8101	949	2017
4	8101021003	1	8101	662	2017
5	8101031001	1	8101	1188	2017
6	8101041001	1	8101	517	2017
7	8101051001	1	8101	610	2017
8	8101051002	1	8101	779	2017
9	8101051003	1	8101	879	2017
10	8101061001	1	8101	1175	2017
11	8101071001	1	8101	449	2017
12	8101071002	1	8101	810	2017
13	8101081001	1	8101	587	2017
14	8101081002	1	8101	234	2017
15	8101081003	1	8101	805	2017
16	8101081004	1	8101	471	2017
17	8101081005	1	8101	864	2017
18	8101091001	1	8101	1151	2017
19	8101101001	1	8101	472	2017
20	8101101002	1	8101	1596	2017
21	8101101003	1	8101	916	2017
22	8101101004	1	8101	574	2017
23	8101111001	1	8101	1570	2017
24	8101121001	1	8101	999	2017
25	8101131001	1	8101	1327	2017
26	8101141001	1	8101	892	2017
27	8101151001	1	8101	617	2017
28	8101151002	1	8101	609	2017
29	8101151003	1	8101	861	2017
30	8101151004	1	8101	552	2017
31	8101151005	1	8101	719	2017
32	8101151006	1	8101	548	2017
33	8101161001	1	8101	1123	2017
34	8101161002	1	8101	936	2017
35	8101161003	1	8101	930	2017
36	8101161004	1	8101	1084	2017
37	8101161005	1	8101	1417	2017
38	8101161006	1	8101	946	2017
39	8101161007	1	8101	828	2017
40	8101161008	1	8101	1668	2017
41	8101161009	1	8101	1022	2017
42	8101161010	1	8101	892	2017
43	8101161011	1	8101	527	2017
44	8101161012	1	8101	1114	2017
45	8101161013	1	8101	971	2017
46	8101161014	1	8101	1050	2017
47	8101171001	1	8101	1211	2017
48	8101171002	1	8101	1018	2017
49	8101171003	1	8101	374	2017
50	8101181001	1	8101	1378	2017
51	8101191001	1	8101	544	2017
52	8101191002	1	8101	1262	2017
53	8101201001	1	8101	1196	2017
54	8101211001	1	8101	1645	2017
55	8101221001	1	8101	1207	2017
56	8101221002	1	8101	771	2017
57	8101231001	1	8101	704	2017
58	8101241001	1	8101	779	2017
59	8101241002	1	8101	569	2017
60	8101241003	1	8101	614	2017
61	8101251001	1	8101	1118	2017
62	8101251002	1	8101	815	2017
63	8101251003	1	8101	1273	2017
64	8101251004	1	8101	648	2017
65	8101251005	1	8101	1406	2017
66	8101261001	1	8101	388	2017
67	8101261002	1	8101	606	2017
68	8101261003	1	8101	746	2017
69	8101271001	1	8101	1011	2017
70	8101281001	1	8101	556	2017
71	8101281002	1	8101	1272	2017
72	8101321001	1	8101	1194	2017
73	8101321002	1	8101	1329	2017
74	8101321003	1	8101	916	2017
75	8101321004	1	8101	1623	2017
76	8101321005	1	8101	1010	2017
77	8101991999	1	8101	201	2017
561	8102011001	1	8102	82	2017
562	8102011002	1	8102	701	2017
563	8102021001	1	8102	1197	2017
564	8102021002	1	8102	759	2017
565	8102021003	1	8102	1174	2017
566	8102021004	1	8102	700	2017
567	8102021005	1	8102	742	2017
568	8102031001	1	8102	921	2017
569	8102031002	1	8102	473	2017
570	8102031003	1	8102	1288	2017
571	8102031004	1	8102	400	2017
572	8102031005	1	8102	475	2017
573	8102041001	1	8102	947	2017
574	8102041002	1	8102	1123	2017
575	8102041003	1	8102	1248	2017
576	8102041004	1	8102	875	2017
577	8102051001	1	8102	20	2017
578	8102081001	1	8102	911	2017
579	8102081002	1	8102	563	2017
580	8102081003	1	8102	646	2017
581	8102111001	1	8102	1022	2017
582	8102111002	1	8102	981	2017
583	8102111003	1	8102	754	2017

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

codigos <- d$unlist.d.
rango <- seq(1:nrow(d))
cadena <- paste("0",codigos[rango], sep = "")
cadena <- substr(cadena,(nchar(cadena)[rango])-(4),6)
codigos <- as.data.frame(codigos)
cadena <- as.data.frame(cadena)
comuna_corr <- cbind(d,cadena)
comuna_corr <- comuna_corr[,-c(2,3),drop=FALSE]
names(comuna_corr)[4] <- "código" 
r3_100 <- comuna_corr[c(1:100),]
kbl(r3_100) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	zona	Freq	anio	código
1	8101011001	618	2017	08101
2	8101021001	633	2017	08101
3	8101021002	949	2017	08101
4	8101021003	662	2017	08101
5	8101031001	1188	2017	08101
6	8101041001	517	2017	08101
7	8101051001	610	2017	08101
8	8101051002	779	2017	08101
9	8101051003	879	2017	08101
10	8101061001	1175	2017	08101
11	8101071001	449	2017	08101
12	8101071002	810	2017	08101
13	8101081001	587	2017	08101
14	8101081002	234	2017	08101
15	8101081003	805	2017	08101
16	8101081004	471	2017	08101
17	8101081005	864	2017	08101
18	8101091001	1151	2017	08101
19	8101101001	472	2017	08101
20	8101101002	1596	2017	08101
21	8101101003	916	2017	08101
22	8101101004	574	2017	08101
23	8101111001	1570	2017	08101
24	8101121001	999	2017	08101
25	8101131001	1327	2017	08101
26	8101141001	892	2017	08101
27	8101151001	617	2017	08101
28	8101151002	609	2017	08101
29	8101151003	861	2017	08101
30	8101151004	552	2017	08101
31	8101151005	719	2017	08101
32	8101151006	548	2017	08101
33	8101161001	1123	2017	08101
34	8101161002	936	2017	08101
35	8101161003	930	2017	08101
36	8101161004	1084	2017	08101
37	8101161005	1417	2017	08101
38	8101161006	946	2017	08101
39	8101161007	828	2017	08101
40	8101161008	1668	2017	08101
41	8101161009	1022	2017	08101
42	8101161010	892	2017	08101
43	8101161011	527	2017	08101
44	8101161012	1114	2017	08101
45	8101161013	971	2017	08101
46	8101161014	1050	2017	08101
47	8101171001	1211	2017	08101
48	8101171002	1018	2017	08101
49	8101171003	374	2017	08101
50	8101181001	1378	2017	08101
51	8101191001	544	2017	08101
52	8101191002	1262	2017	08101
53	8101201001	1196	2017	08101
54	8101211001	1645	2017	08101
55	8101221001	1207	2017	08101
56	8101221002	771	2017	08101
57	8101231001	704	2017	08101
58	8101241001	779	2017	08101
59	8101241002	569	2017	08101
60	8101241003	614	2017	08101
61	8101251001	1118	2017	08101
62	8101251002	815	2017	08101
63	8101251003	1273	2017	08101
64	8101251004	648	2017	08101
65	8101251005	1406	2017	08101
66	8101261001	388	2017	08101
67	8101261002	606	2017	08101
68	8101261003	746	2017	08101
69	8101271001	1011	2017	08101
70	8101281001	556	2017	08101
71	8101281002	1272	2017	08101
72	8101321001	1194	2017	08101
73	8101321002	1329	2017	08101
74	8101321003	916	2017	08101
75	8101321004	1623	2017	08101
76	8101321005	1010	2017	08101
77	8101991999	201	2017	08101
561	8102011001	82	2017	08102
562	8102011002	701	2017	08102
563	8102021001	1197	2017	08102
564	8102021002	759	2017	08102
565	8102021003	1174	2017	08102
566	8102021004	700	2017	08102
567	8102021005	742	2017	08102
568	8102031001	921	2017	08102
569	8102031002	473	2017	08102
570	8102031003	1288	2017	08102
571	8102031004	400	2017	08102
572	8102031005	475	2017	08102
573	8102041001	947	2017	08102
574	8102041002	1123	2017	08102
575	8102041003	1248	2017	08102
576	8102041004	875	2017	08102
577	8102051001	20	2017	08102
578	8102081001	911	2017	08102
579	8102081002	563	2017	08102
580	8102081003	646	2017	08102
581	8102111001	1022	2017	08102
582	8102111002	981	2017	08102
583	8102111003	754	2017	08102

2 Variable CASEN

2.1 Tabla de ingresos expandidos

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

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

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

3 Unión Censo-Casen

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

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

código	zona	Freq	anio	comuna.x	promedio_i	año	comuna.y	personas	Ingresos_expandidos
08101	8101011001	618	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101021001	633	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101021002	949	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101021003	662	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101031001	1188	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101041001	517	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101051001	610	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101051002	779	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101051003	879	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101061001	1175	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101071001	449	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101071002	810	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101081001	587	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101081002	234	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101081003	805	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101081004	471	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101081005	864	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101091001	1151	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101101001	472	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101101002	1596	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101101003	916	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101101004	574	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101111001	1570	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101121001	999	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101131001	1327	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101141001	892	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101151001	617	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101151002	609	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101151003	861	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101151004	552	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101151005	719	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101151006	548	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101161001	1123	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101161002	936	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101161003	930	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101161004	1084	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101161005	1417	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101161006	946	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101161007	828	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101161008	1668	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101161009	1022	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101161010	892	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101161011	527	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101161012	1114	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101161013	971	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101161014	1050	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101171001	1211	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101171002	1018	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101171003	374	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101181001	1378	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101191001	544	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101191002	1262	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101201001	1196	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101211001	1645	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101221001	1207	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101221002	771	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101231001	704	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101241001	779	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101241002	569	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101241003	614	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101251001	1118	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101251002	815	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101251003	1273	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101251004	648	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101251005	1406	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101261001	388	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101261002	606	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101261003	746	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101271001	1011	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101281001	556	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101281002	1272	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101321001	1194	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101321002	1329	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101321003	916	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101321004	1623	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101321005	1010	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101991999	201	2017	Concepción	323059.6	2017	8101	223574	72227728923
08102	8102011001	82	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102011002	701	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102021001	1197	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102021002	759	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102021003	1174	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102021004	700	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102021005	742	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102031001	921	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102031002	473	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102031003	1288	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102031004	400	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102031005	475	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102041001	947	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102041002	1123	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102041003	1248	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102041004	875	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102051001	20	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102081001	911	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102081002	563	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102081003	646	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102111001	1022	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102111002	981	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102111003	754	2017	Coronel	277633.4	2017	8102	116262	32278209118

4 Proporción poblacional zonal respecto a la comunal

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

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

Veamos los 100 primeros registros:

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

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

5 Ingreso medio

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

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

código	zona	Freq	anio	comuna.x	promedio_i	año	comuna.y	personas	Ingresos_expandidos
08101	8101011001	618	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101021001	633	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101021002	949	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101021003	662	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101031001	1188	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101041001	517	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101051001	610	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101051002	779	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101051003	879	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101061001	1175	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101071001	449	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101071002	810	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101081001	587	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101081002	234	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101081003	805	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101081004	471	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101081005	864	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101091001	1151	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101101001	472	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101101002	1596	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101101003	916	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101101004	574	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101111001	1570	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101121001	999	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101131001	1327	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101141001	892	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101151001	617	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101151002	609	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101151003	861	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101151004	552	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101151005	719	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101151006	548	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101161001	1123	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101161002	936	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101161003	930	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101161004	1084	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101161005	1417	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101161006	946	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101161007	828	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101161008	1668	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101161009	1022	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101161010	892	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101161011	527	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101161012	1114	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101161013	971	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101161014	1050	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101171001	1211	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101171002	1018	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101171003	374	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101181001	1378	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101191001	544	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101191002	1262	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101201001	1196	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101211001	1645	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101221001	1207	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101221002	771	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101231001	704	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101241001	779	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101241002	569	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101241003	614	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101251001	1118	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101251002	815	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101251003	1273	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101251004	648	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101251005	1406	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101261001	388	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101261002	606	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101261003	746	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101271001	1011	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101281001	556	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101281002	1272	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101321001	1194	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101321002	1329	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101321003	916	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101321004	1623	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101321005	1010	2017	Concepción	323059.6	2017	8101	223574	72227728923
08101	8101991999	201	2017	Concepción	323059.6	2017	8101	223574	72227728923
08102	8102011001	82	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102011002	701	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102021001	1197	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102021002	759	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102021003	1174	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102021004	700	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102021005	742	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102031001	921	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102031002	473	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102031003	1288	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102031004	400	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102031005	475	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102041001	947	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102041002	1123	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102041003	1248	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102041004	875	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102051001	20	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102081001	911	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102081002	563	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102081003	646	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102111001	1022	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102111002	981	2017	Coronel	277633.4	2017	8102	116262	32278209118
08102	8102111003	754	2017	Coronel	277633.4	2017	8102	116262	32278209118

6 Ingreso promedio expandido por zona (multi_pob)

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

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

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

h_y_m_comuna_corr_01 = merge( x = comunas_con_ing_exp, y = prop_pob, by = "zona", all.x = TRUE)
tablamadre <- head(h_y_m_comuna_corr_01,100)
kbl(tablamadre) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

zona	código.x	Freq.x	anio	comuna.x	promedio_i	año	comuna.y	personas	Ingresos_expandidos	Freq.y	p_poblacional	código.y
8101011001	08101	618	2017	Concepción	323059.6	2017	8101	223574	72227728923	1455	0.0065079	08101
8101021001	08101	633	2017	Concepción	323059.6	2017	8101	223574	72227728923	1516	0.0067808	08101
8101021002	08101	949	2017	Concepción	323059.6	2017	8101	223574	72227728923	1874	0.0083820	08101
8101021003	08101	662	2017	Concepción	323059.6	2017	8101	223574	72227728923	1349	0.0060338	08101
8101031001	08101	1188	2017	Concepción	323059.6	2017	8101	223574	72227728923	2590	0.0115845	08101
8101041001	08101	517	2017	Concepción	323059.6	2017	8101	223574	72227728923	1373	0.0061411	08101
8101051001	08101	610	2017	Concepción	323059.6	2017	8101	223574	72227728923	1825	0.0081628	08101
8101051002	08101	779	2017	Concepción	323059.6	2017	8101	223574	72227728923	2383	0.0106587	08101
8101051003	08101	879	2017	Concepción	323059.6	2017	8101	223574	72227728923	2945	0.0131724	08101
8101061001	08101	1175	2017	Concepción	323059.6	2017	8101	223574	72227728923	2976	0.0133110	08101
8101071001	08101	449	2017	Concepción	323059.6	2017	8101	223574	72227728923	1523	0.0068121	08101
8101071002	08101	810	2017	Concepción	323059.6	2017	8101	223574	72227728923	2187	0.0097820	08101
8101081001	08101	587	2017	Concepción	323059.6	2017	8101	223574	72227728923	1852	0.0082836	08101
8101081002	08101	234	2017	Concepción	323059.6	2017	8101	223574	72227728923	836	0.0037393	08101
8101081003	08101	805	2017	Concepción	323059.6	2017	8101	223574	72227728923	2570	0.0114951	08101
8101081004	08101	471	2017	Concepción	323059.6	2017	8101	223574	72227728923	1420	0.0063514	08101
8101081005	08101	864	2017	Concepción	323059.6	2017	8101	223574	72227728923	3105	0.0138880	08101
8101091001	08101	1151	2017	Concepción	323059.6	2017	8101	223574	72227728923	3351	0.0149883	08101
8101101001	08101	472	2017	Concepción	323059.6	2017	8101	223574	72227728923	1345	0.0060159	08101
8101101002	08101	1596	2017	Concepción	323059.6	2017	8101	223574	72227728923	4045	0.0180924	08101
8101101003	08101	916	2017	Concepción	323059.6	2017	8101	223574	72227728923	2968	0.0132752	08101
8101101004	08101	574	2017	Concepción	323059.6	2017	8101	223574	72227728923	2134	0.0095449	08101
8101111001	08101	1570	2017	Concepción	323059.6	2017	8101	223574	72227728923	3916	0.0175155	08101
8101121001	08101	999	2017	Concepción	323059.6	2017	8101	223574	72227728923	2733	0.0122241	08101
8101131001	08101	1327	2017	Concepción	323059.6	2017	8101	223574	72227728923	3498	0.0156458	08101
8101141001	08101	892	2017	Concepción	323059.6	2017	8101	223574	72227728923	2701	0.0120810	08101
8101151001	08101	617	2017	Concepción	323059.6	2017	8101	223574	72227728923	2271	0.0101577	08101
8101151002	08101	609	2017	Concepción	323059.6	2017	8101	223574	72227728923	2231	0.0099788	08101
8101151003	08101	861	2017	Concepción	323059.6	2017	8101	223574	72227728923	3075	0.0137538	08101
8101151004	08101	552	2017	Concepción	323059.6	2017	8101	223574	72227728923	1854	0.0082926	08101
8101151005	08101	719	2017	Concepción	323059.6	2017	8101	223574	72227728923	2355	0.0105334	08101
8101151006	08101	548	2017	Concepción	323059.6	2017	8101	223574	72227728923	2089	0.0093437	08101
8101161001	08101	1123	2017	Concepción	323059.6	2017	8101	223574	72227728923	3863	0.0172784	08101
8101161002	08101	936	2017	Concepción	323059.6	2017	8101	223574	72227728923	3464	0.0154938	08101
8101161003	08101	930	2017	Concepción	323059.6	2017	8101	223574	72227728923	3640	0.0162810	08101
8101161004	08101	1084	2017	Concepción	323059.6	2017	8101	223574	72227728923	3612	0.0161557	08101
8101161005	08101	1417	2017	Concepción	323059.6	2017	8101	223574	72227728923	4756	0.0212726	08101
8101161006	08101	946	2017	Concepción	323059.6	2017	8101	223574	72227728923	3401	0.0152120	08101
8101161007	08101	828	2017	Concepción	323059.6	2017	8101	223574	72227728923	2944	0.0131679	08101
8101161008	08101	1668	2017	Concepción	323059.6	2017	8101	223574	72227728923	5013	0.0224221	08101
8101161009	08101	1022	2017	Concepción	323059.6	2017	8101	223574	72227728923	3072	0.0137404	08101
8101161010	08101	892	2017	Concepción	323059.6	2017	8101	223574	72227728923	2380	0.0106452	08101
8101161011	08101	527	2017	Concepción	323059.6	2017	8101	223574	72227728923	2320	0.0103769	08101
8101161012	08101	1114	2017	Concepción	323059.6	2017	8101	223574	72227728923	3886	0.0173813	08101
8101161013	08101	971	2017	Concepción	323059.6	2017	8101	223574	72227728923	2922	0.0130695	08101
8101161014	08101	1050	2017	Concepción	323059.6	2017	8101	223574	72227728923	3814	0.0170592	08101
8101171001	08101	1211	2017	Concepción	323059.6	2017	8101	223574	72227728923	3284	0.0146886	08101
8101171002	08101	1018	2017	Concepción	323059.6	2017	8101	223574	72227728923	3682	0.0164688	08101
8101171003	08101	374	2017	Concepción	323059.6	2017	8101	223574	72227728923	1315	0.0058817	08101
8101181001	08101	1378	2017	Concepción	323059.6	2017	8101	223574	72227728923	4508	0.0201633	08101
8101191001	08101	544	2017	Concepción	323059.6	2017	8101	223574	72227728923	1629	0.0072862	08101
8101191002	08101	1262	2017	Concepción	323059.6	2017	8101	223574	72227728923	3336	0.0149212	08101
8101201001	08101	1196	2017	Concepción	323059.6	2017	8101	223574	72227728923	3154	0.0141072	08101
8101211001	08101	1645	2017	Concepción	323059.6	2017	8101	223574	72227728923	4901	0.0219212	08101
8101221001	08101	1207	2017	Concepción	323059.6	2017	8101	223574	72227728923	2688	0.0120229	08101
8101221002	08101	771	2017	Concepción	323059.6	2017	8101	223574	72227728923	1855	0.0082970	08101
8101231001	08101	704	2017	Concepción	323059.6	2017	8101	223574	72227728923	2503	0.0111954	08101
8101241001	08101	779	2017	Concepción	323059.6	2017	8101	223574	72227728923	2763	0.0123583	08101
8101241002	08101	569	2017	Concepción	323059.6	2017	8101	223574	72227728923	1864	0.0083373	08101
8101241003	08101	614	2017	Concepción	323059.6	2017	8101	223574	72227728923	1888	0.0084446	08101
8101251001	08101	1118	2017	Concepción	323059.6	2017	8101	223574	72227728923	3790	0.0169519	08101
8101251002	08101	815	2017	Concepción	323059.6	2017	8101	223574	72227728923	3121	0.0139596	08101
8101251003	08101	1273	2017	Concepción	323059.6	2017	8101	223574	72227728923	4587	0.0205167	08101
8101251004	08101	648	2017	Concepción	323059.6	2017	8101	223574	72227728923	2288	0.0102337	08101
8101251005	08101	1406	2017	Concepción	323059.6	2017	8101	223574	72227728923	4334	0.0193851	08101
8101261001	08101	388	2017	Concepción	323059.6	2017	8101	223574	72227728923	1200	0.0053674	08101
8101261002	08101	606	2017	Concepción	323059.6	2017	8101	223574	72227728923	2084	0.0093213	08101
8101261003	08101	746	2017	Concepción	323059.6	2017	8101	223574	72227728923	2696	0.0120586	08101
8101271001	08101	1011	2017	Concepción	323059.6	2017	8101	223574	72227728923	2727	0.0121973	08101
8101281001	08101	556	2017	Concepción	323059.6	2017	8101	223574	72227728923	3513	0.0157129	08101
8101281002	08101	1272	2017	Concepción	323059.6	2017	8101	223574	72227728923	3737	0.0167148	08101
8101321001	08101	1194	2017	Concepción	323059.6	2017	8101	223574	72227728923	4131	0.0184771	08101
8101321002	08101	1329	2017	Concepción	323059.6	2017	8101	223574	72227728923	4089	0.0182892	08101
8101321003	08101	916	2017	Concepción	323059.6	2017	8101	223574	72227728923	2991	0.0133781	08101
8101321004	08101	1623	2017	Concepción	323059.6	2017	8101	223574	72227728923	5956	0.0266399	08101
8101321005	08101	1010	2017	Concepción	323059.6	2017	8101	223574	72227728923	3491	0.0156145	08101
8101991999	08101	201	2017	Concepción	323059.6	2017	8101	223574	72227728923	1520	0.0067986	08101
8102011001	08102	82	2017	Coronel	277633.4	2017	8102	116262	32278209118	231	0.0019869	08102
8102011002	08102	701	2017	Coronel	277633.4	2017	8102	116262	32278209118	2650	0.0227933	08102
8102021001	08102	1197	2017	Coronel	277633.4	2017	8102	116262	32278209118	4404	0.0378800	08102
8102021002	08102	759	2017	Coronel	277633.4	2017	8102	116262	32278209118	2895	0.0249007	08102
8102021003	08102	1174	2017	Coronel	277633.4	2017	8102	116262	32278209118	4041	0.0347577	08102
8102021004	08102	700	2017	Coronel	277633.4	2017	8102	116262	32278209118	2507	0.0215634	08102
8102021005	08102	742	2017	Coronel	277633.4	2017	8102	116262	32278209118	2879	0.0247630	08102
8102031001	08102	921	2017	Coronel	277633.4	2017	8102	116262	32278209118	3680	0.0316526	08102
8102031002	08102	473	2017	Coronel	277633.4	2017	8102	116262	32278209118	1697	0.0145963	08102
8102031003	08102	1288	2017	Coronel	277633.4	2017	8102	116262	32278209118	5338	0.0459135	08102
8102031004	08102	400	2017	Coronel	277633.4	2017	8102	116262	32278209118	1446	0.0124374	08102
8102031005	08102	475	2017	Coronel	277633.4	2017	8102	116262	32278209118	1870	0.0160844	08102
8102041001	08102	947	2017	Coronel	277633.4	2017	8102	116262	32278209118	3438	0.0295711	08102
8102041002	08102	1123	2017	Coronel	277633.4	2017	8102	116262	32278209118	4279	0.0368048	08102
8102041003	08102	1248	2017	Coronel	277633.4	2017	8102	116262	32278209118	4627	0.0397980	08102
8102041004	08102	875	2017	Coronel	277633.4	2017	8102	116262	32278209118	2601	0.0223719	08102
8102051001	08102	20	2017	Coronel	277633.4	2017	8102	116262	32278209118	77	0.0006623	08102
8102081001	08102	911	2017	Coronel	277633.4	2017	8102	116262	32278209118	3302	0.0284014	08102
8102081002	08102	563	2017	Coronel	277633.4	2017	8102	116262	32278209118	2248	0.0193356	08102
8102081003	08102	646	2017	Coronel	277633.4	2017	8102	116262	32278209118	2303	0.0198087	08102
8102111001	08102	1022	2017	Coronel	277633.4	2017	8102	116262	32278209118	3295	0.0283412	08102
8102111002	08102	981	2017	Coronel	277633.4	2017	8102	116262	32278209118	3487	0.0299926	08102
8102111003	08102	754	2017	Coronel	277633.4	2017	8102	116262	32278209118	2783	0.0239373	08102

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

h_y_m_comuna_corr_01$multi_pob <- h_y_m_comuna_corr_01$promedio_i * h_y_m_comuna_corr_01$personas * h_y_m_comuna_corr_01$p_poblacional
tablamadre <- head(h_y_m_comuna_corr_01,100)
kbl(tablamadre) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

zona	código.x	Freq.x	anio	comuna.x	promedio_i	año	comuna.y	personas	Ingresos_expandidos	Freq.y	p_poblacional	código.y	multi_pob
8101011001	08101	618	2017	Concepción	323059.6	2017	8101	223574	72227728923	1455	0.0065079	08101	470051730
8101021001	08101	633	2017	Concepción	323059.6	2017	8101	223574	72227728923	1516	0.0067808	08101	489758367
8101021002	08101	949	2017	Concepción	323059.6	2017	8101	223574	72227728923	1874	0.0083820	08101	605413706
8101021003	08101	662	2017	Concepción	323059.6	2017	8101	223574	72227728923	1349	0.0060338	08101	435807412
8101031001	08101	1188	2017	Concepción	323059.6	2017	8101	223574	72227728923	2590	0.0115845	08101	836724386
8101041001	08101	517	2017	Concepción	323059.6	2017	8101	223574	72227728923	1373	0.0061411	08101	443560843
8101051001	08101	610	2017	Concepción	323059.6	2017	8101	223574	72227728923	1825	0.0081628	08101	589583786
8101051002	08101	779	2017	Concepción	323059.6	2017	8101	223574	72227728923	2383	0.0106587	08101	769851047
8101051003	08101	879	2017	Concepción	323059.6	2017	8101	223574	72227728923	2945	0.0131724	08101	951410547
8101061001	08101	1175	2017	Concepción	323059.6	2017	8101	223574	72227728923	2976	0.0133110	08101	961425395
8101071001	08101	449	2017	Concepción	323059.6	2017	8101	223574	72227728923	1523	0.0068121	08101	492019784
8101071002	08101	810	2017	Concepción	323059.6	2017	8101	223574	72227728923	2187	0.0097820	08101	706531364
8101081001	08101	587	2017	Concepción	323059.6	2017	8101	223574	72227728923	1852	0.0082836	08101	598306395
8101081002	08101	234	2017	Concepción	323059.6	2017	8101	223574	72227728923	836	0.0037393	08101	270077833
8101081003	08101	805	2017	Concepción	323059.6	2017	8101	223574	72227728923	2570	0.0114951	08101	830263194
8101081004	08101	471	2017	Concepción	323059.6	2017	8101	223574	72227728923	1420	0.0063514	08101	458744644
8101081005	08101	864	2017	Concepción	323059.6	2017	8101	223574	72227728923	3105	0.0138880	08101	1003100085
8101091001	08101	1151	2017	Concepción	323059.6	2017	8101	223574	72227728923	3351	0.0149883	08101	1082572748
8101101001	08101	472	2017	Concepción	323059.6	2017	8101	223574	72227728923	1345	0.0060159	08101	434515174
8101101002	08101	1596	2017	Concepción	323059.6	2017	8101	223574	72227728923	4045	0.0180924	08101	1306776117
8101101003	08101	916	2017	Concepción	323059.6	2017	8101	223574	72227728923	2968	0.0132752	08101	958840918
8101101004	08101	574	2017	Concepción	323059.6	2017	8101	223574	72227728923	2134	0.0095449	08101	689409205
8101111001	08101	1570	2017	Concepción	323059.6	2017	8101	223574	72227728923	3916	0.0175155	08101	1265101427
8101121001	08101	999	2017	Concepción	323059.6	2017	8101	223574	72227728923	2733	0.0122241	08101	882921910
8101131001	08101	1327	2017	Concepción	323059.6	2017	8101	223574	72227728923	3498	0.0156458	08101	1130062511
8101141001	08101	892	2017	Concepción	323059.6	2017	8101	223574	72227728923	2701	0.0120810	08101	872584003
8101151001	08101	617	2017	Concepción	323059.6	2017	8101	223574	72227728923	2271	0.0101577	08101	733668371
8101151002	08101	609	2017	Concepción	323059.6	2017	8101	223574	72227728923	2231	0.0099788	08101	720745987
8101151003	08101	861	2017	Concepción	323059.6	2017	8101	223574	72227728923	3075	0.0137538	08101	993408296
8101151004	08101	552	2017	Concepción	323059.6	2017	8101	223574	72227728923	1854	0.0082926	08101	598952514
8101151005	08101	719	2017	Concepción	323059.6	2017	8101	223574	72227728923	2355	0.0105334	08101	760805378
8101151006	08101	548	2017	Concepción	323059.6	2017	8101	223574	72227728923	2089	0.0093437	08101	674871522
8101161001	08101	1123	2017	Concepción	323059.6	2017	8101	223574	72227728923	3863	0.0172784	08101	1247979268
8101161002	08101	936	2017	Concepción	323059.6	2017	8101	223574	72227728923	3464	0.0154938	08101	1119078484
8101161003	08101	930	2017	Concepción	323059.6	2017	8101	223574	72227728923	3640	0.0162810	08101	1175936975
8101161004	08101	1084	2017	Concepción	323059.6	2017	8101	223574	72227728923	3612	0.0161557	08101	1166891306
8101161005	08101	1417	2017	Concepción	323059.6	2017	8101	223574	72227728923	4756	0.0212726	08101	1536471498
8101161006	08101	946	2017	Concepción	323059.6	2017	8101	223574	72227728923	3401	0.0152120	08101	1098725729
8101161007	08101	828	2017	Concepción	323059.6	2017	8101	223574	72227728923	2944	0.0131679	08101	951087488
8101161008	08101	1668	2017	Concepción	323059.6	2017	8101	223574	72227728923	5013	0.0224221	08101	1619497818
8101161009	08101	1022	2017	Concepción	323059.6	2017	8101	223574	72227728923	3072	0.0137404	08101	992439117
8101161010	08101	892	2017	Concepción	323059.6	2017	8101	223574	72227728923	2380	0.0106452	08101	768881868
8101161011	08101	527	2017	Concepción	323059.6	2017	8101	223574	72227728923	2320	0.0103769	08101	749498292
8101161012	08101	1114	2017	Concepción	323059.6	2017	8101	223574	72227728923	3886	0.0173813	08101	1255409639
8101161013	08101	971	2017	Concepción	323059.6	2017	8101	223574	72227728923	2922	0.0130695	08101	943980176
8101161014	08101	1050	2017	Concepción	323059.6	2017	8101	223574	72227728923	3814	0.0170592	08101	1232149347
8101171001	08101	1211	2017	Concepción	323059.6	2017	8101	223574	72227728923	3284	0.0146886	08101	1060927755
8101171002	08101	1018	2017	Concepción	323059.6	2017	8101	223574	72227728923	3682	0.0164688	08101	1189505479
8101171003	08101	374	2017	Concepción	323059.6	2017	8101	223574	72227728923	1315	0.0058817	08101	424823385
8101181001	08101	1378	2017	Concepción	323059.6	2017	8101	223574	72227728923	4508	0.0201633	08101	1456352715
8101191001	08101	544	2017	Concepción	323059.6	2017	8101	223574	72227728923	1629	0.0072862	08101	526264102
8101191002	08101	1262	2017	Concepción	323059.6	2017	8101	223574	72227728923	3336	0.0149212	08101	1077726854
8101201001	08101	1196	2017	Concepción	323059.6	2017	8101	223574	72227728923	3154	0.0141072	08101	1018930005
8101211001	08101	1645	2017	Concepción	323059.6	2017	8101	223574	72227728923	4901	0.0219212	08101	1583315142
8101221001	08101	1207	2017	Concepción	323059.6	2017	8101	223574	72227728923	2688	0.0120229	08101	868384228
8101221002	08101	771	2017	Concepción	323059.6	2017	8101	223574	72227728923	1855	0.0082970	08101	599275574
8101231001	08101	704	2017	Concepción	323059.6	2017	8101	223574	72227728923	2503	0.0111954	08101	808618200
8101241001	08101	779	2017	Concepción	323059.6	2017	8101	223574	72227728923	2763	0.0123583	08101	892613698
8101241002	08101	569	2017	Concepción	323059.6	2017	8101	223574	72227728923	1864	0.0083373	08101	602183110
8101241003	08101	614	2017	Concepción	323059.6	2017	8101	223574	72227728923	1888	0.0084446	08101	609936541
8101251001	08101	1118	2017	Concepción	323059.6	2017	8101	223574	72227728923	3790	0.0169519	08101	1224395916
8101251002	08101	815	2017	Concepción	323059.6	2017	8101	223574	72227728923	3121	0.0139596	08101	1008269038
8101251003	08101	1273	2017	Concepción	323059.6	2017	8101	223574	72227728923	4587	0.0205167	08101	1481874424
8101251004	08101	648	2017	Concepción	323059.6	2017	8101	223574	72227728923	2288	0.0102337	08101	739160384
8101251005	08101	1406	2017	Concepción	323059.6	2017	8101	223574	72227728923	4334	0.0193851	08101	1400140343
8101261001	08101	388	2017	Concepción	323059.6	2017	8101	223574	72227728923	1200	0.0053674	08101	387671530
8101261002	08101	606	2017	Concepción	323059.6	2017	8101	223574	72227728923	2084	0.0093213	08101	673256224
8101261003	08101	746	2017	Concepción	323059.6	2017	8101	223574	72227728923	2696	0.0120586	08101	870968705
8101271001	08101	1011	2017	Concepción	323059.6	2017	8101	223574	72227728923	2727	0.0121973	08101	880983553
8101281001	08101	556	2017	Concepción	323059.6	2017	8101	223574	72227728923	3513	0.0157129	08101	1134908405
8101281002	08101	1272	2017	Concepción	323059.6	2017	8101	223574	72227728923	3737	0.0167148	08101	1207273757
8101321001	08101	1194	2017	Concepción	323059.6	2017	8101	223574	72227728923	4131	0.0184771	08101	1334559243
8101321002	08101	1329	2017	Concepción	323059.6	2017	8101	223574	72227728923	4089	0.0182892	08101	1320990739
8101321003	08101	916	2017	Concepción	323059.6	2017	8101	223574	72227728923	2991	0.0133781	08101	966271289
8101321004	08101	1623	2017	Concepción	323059.6	2017	8101	223574	72227728923	5956	0.0266399	08101	1924143029
8101321005	08101	1010	2017	Concepción	323059.6	2017	8101	223574	72227728923	3491	0.0156145	08101	1127801093
8101991999	08101	201	2017	Concepción	323059.6	2017	8101	223574	72227728923	1520	0.0067986	08101	491050605
8102011001	08102	82	2017	Coronel	277633.4	2017	8102	116262	32278209118	231	0.0019869	08102	64133305
8102011002	08102	701	2017	Coronel	277633.4	2017	8102	116262	32278209118	2650	0.0227933	08102	735728391
8102021001	08102	1197	2017	Coronel	277633.4	2017	8102	116262	32278209118	4404	0.0378800	08102	1222697295
8102021002	08102	759	2017	Coronel	277633.4	2017	8102	116262	32278209118	2895	0.0249007	08102	803748563
8102021003	08102	1174	2017	Coronel	277633.4	2017	8102	116262	32278209118	4041	0.0347577	08102	1121916388
8102021004	08102	700	2017	Coronel	277633.4	2017	8102	116262	32278209118	2507	0.0215634	08102	696026821
8102021005	08102	742	2017	Coronel	277633.4	2017	8102	116262	32278209118	2879	0.0247630	08102	799306429
8102031001	08102	921	2017	Coronel	277633.4	2017	8102	116262	32278209118	3680	0.0316526	08102	1021690746
8102031002	08102	473	2017	Coronel	277633.4	2017	8102	116262	32278209118	1697	0.0145963	08102	471143803
8102031003	08102	1288	2017	Coronel	277633.4	2017	8102	116262	32278209118	5338	0.0459135	08102	1482006849
8102031004	08102	400	2017	Coronel	277633.4	2017	8102	116262	32278209118	1446	0.0124374	08102	401457831
8102031005	08102	475	2017	Coronel	277633.4	2017	8102	116262	32278209118	1870	0.0160844	08102	519174374
8102041001	08102	947	2017	Coronel	277633.4	2017	8102	116262	32278209118	3438	0.0295711	08102	954503474
8102041002	08102	1123	2017	Coronel	277633.4	2017	8102	116262	32278209118	4279	0.0368048	08102	1187993126
8102041003	08102	1248	2017	Coronel	277633.4	2017	8102	116262	32278209118	4627	0.0397980	08102	1284609534
8102041004	08102	875	2017	Coronel	277633.4	2017	8102	116262	32278209118	2601	0.0223719	08102	722124356
8102051001	08102	20	2017	Coronel	277633.4	2017	8102	116262	32278209118	77	0.0006623	08102	21377768
8102081001	08102	911	2017	Coronel	277633.4	2017	8102	116262	32278209118	3302	0.0284014	08102	916745338
8102081002	08102	563	2017	Coronel	277633.4	2017	8102	116262	32278209118	2248	0.0193356	08102	624119782
8102081003	08102	646	2017	Coronel	277633.4	2017	8102	116262	32278209118	2303	0.0198087	08102	639389617
8102111001	08102	1022	2017	Coronel	277633.4	2017	8102	116262	32278209118	3295	0.0283412	08102	914801905
8102111002	08102	981	2017	Coronel	277633.4	2017	8102	116262	32278209118	3487	0.0299926	08102	968107509
8102111003	08102	754	2017	Coronel	277633.4	2017	8102	116262	32278209118	2783	0.0239373	08102	772653627

7 Análisis de regresión

Aplicaremos un análisis de regresión donde:

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

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

7.1 Diagrama de dispersión loess

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

7.2 Outliers

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

7.3 Modelo lineal

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

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

## 
## Call:
## lm(formula = multi_pob ~ (Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -367674808  -68263505   -6058782   71648268  576845790 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 19144365   13106465   1.461    0.145    
## Freq.x        969277      14201  68.255   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 129200000 on 481 degrees of freedom
## Multiple R-squared:  0.9064, Adjusted R-squared:  0.9062 
## F-statistic:  4659 on 1 and 481 DF,  p-value: < 2.2e-16

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

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

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

8 Modelos alternativos

### 8.1 Modelo cuadrático

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

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

kbl(modelos_bind) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	modelo	dato	sintaxis	latex
3	logarítmico	0.595611280526104	linearMod <- lm( multi_pob~log(Freq.x) , data=h_y_m_comuna_corr_01)	\[ ''hat Y = ''beta_0 + ''beta_1 ln X \]
7	raíz-log	0.819532525857978	linearMod <- lm( sqrt(multi_pob)~log(Freq.x) , data=h_y_m_comuna_corr_01)	\[ ''hat Y = {''beta_0}^2 + 2 ''beta_0 ''beta_1 ''ln{X}+ ''beta_1^2 ln^2X \]
6	log-raíz	0.827378050963413	linearMod <- lm( log(multi_pob)~sqrt(Freq.x) , data=h_y_m_comuna_corr_01)	\[ ''hat Y = e^{''beta_0 + ''beta_1 ''sqrt{X}} \]
4	raíz cuadrada	0.848902051336615	linearMod <- lm( multi_pob~sqrt(Freq.x) , data=h_y_m_comuna_corr_01)	\[ ''hat Y = ''beta_0 + ''beta_1 ''sqrt {X} \]
1	cuadrático	0.906221367222404	linearMod <- lm( multi_pob~(Freq.x^2) , data=h_y_m_comuna_corr_01)	\[ ''hat Y = ''beta_0 + ''beta_1 X^2 \]
2	cúbico	0.906221367222404	linearMod <- lm( multi_pob~(Freq.x^3) , data=h_y_m_comuna_corr_01)	\[ ''hat Y = ''beta_0 + ''beta_1 X^3 \]
5	raíz-raíz	0.940710487903116	linearMod <- lm( sqrt(multi_pob)~sqrt(Freq.x) , data=h_y_m_comuna_corr_01)	\[ ''hat Y = {''beta_0}^2 + 2 ''beta_0 ''beta_1 ''sqrt{X}+ ''beta_1^2 X \]
8	log-log	0.96942237945086	linearMod <- lm( log(multi_pob)~log(Freq.x) , data=h_y_m_comuna_corr_01)	\[ ''hat Y = e^{''beta_0+''beta_1 ln{X}} \]

h_y_m_comuna_corr <- h_y_m_comuna_corr_01
metodo <- 8


switch (metodo,
        case = linearMod <- lm( multi_pob~(Freq.x^2) , data=h_y_m_comuna_corr),
        case = linearMod <- lm( multi_pob~(Freq.x^3) , data=h_y_m_comuna_corr),
        case = linearMod <- lm( multi_pob~log(Freq.x) , data=h_y_m_comuna_corr),
        case = linearMod <- lm( multi_pob~sqrt(Freq.x) , data=h_y_m_comuna_corr),
        case = linearMod <- lm( sqrt(multi_pob)~sqrt(Freq.x) , data=h_y_m_comuna_corr),
        case = linearMod <- lm( log(multi_pob)~sqrt(Freq.x) , data=h_y_m_comuna_corr),
        case = linearMod <- lm( sqrt(multi_pob)~log(Freq.x) , data=h_y_m_comuna_corr),
        case = linearMod <- lm( log(multi_pob)~log(Freq.x) , data=h_y_m_comuna_corr)
)
summary(linearMod)

## 
## Call:
## lm(formula = log(multi_pob) ~ log(Freq.x), data = h_y_m_comuna_corr)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.85032 -0.09752  0.01527  0.11089  1.73062 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 13.637585   0.053928   252.9   <2e-16 ***
## log(Freq.x)  1.023807   0.008282   123.6   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.2046 on 481 degrees of freedom
## Multiple R-squared:  0.9695, Adjusted R-squared:  0.9694 
## F-statistic: 1.528e+04 on 1 and 481 DF,  p-value: < 2.2e-16

aa <- linearMod$coefficients[1]
aa

## (Intercept) 
##    13.63759

bb <- linearMod$coefficients[2]
bb

## log(Freq.x) 
##    1.023807

9 Modelo log-log (log-log)

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

9.1 Diagrama de dispersión sobre log-log

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

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

9.2 Modelo log-log

Observemos nuevamente el resultado sobre log-log.

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

## 
## Call:
## lm(formula = log(multi_pob) ~ log(Freq.x), data = h_y_m_comuna_corr)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.85032 -0.09752  0.01527  0.11089  1.73062 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 13.637585   0.053928   252.9   <2e-16 ***
## log(Freq.x)  1.023807   0.008282   123.6   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.2046 on 481 degrees of freedom
## Multiple R-squared:  0.9695, Adjusted R-squared:  0.9694 
## F-statistic: 1.528e+04 on 1 and 481 DF,  p-value: < 2.2e-16

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

9.3 Análisis de residuos

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

9.4 Ecuación del modelo

\[ \hat Y = e^{13.63759 +1.023807 \cdot ln{X}} \]

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

Esta nueva variable se llamará: est_ing

h_y_m_comuna_corr$est_ing <- exp(aa+bb * log(h_y_m_comuna_corr$Freq.x))

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

zona	código.x	Freq.x	anio	comuna.x	promedio_i	año	comuna.y	personas	Ingresos_expandidos	Freq.y	p_poblacional	código.y	multi_pob	est_ing
8101011001	08101	618	2017	Concepción	323059.6	2017	8101	223574	72227728923	1455	0.0065079	08101	470051730	602783742
8101021001	08101	633	2017	Concepción	323059.6	2017	8101	223574	72227728923	1516	0.0067808	08101	489758367	617767022
8101021002	08101	949	2017	Concepción	323059.6	2017	8101	223574	72227728923	1874	0.0083820	08101	605413706	935134296
8101021003	08101	662	2017	Concepción	323059.6	2017	8101	223574	72227728923	1349	0.0060338	08101	435807412	646758505
8101031001	08101	1188	2017	Concepción	323059.6	2017	8101	223574	72227728923	2590	0.0115845	08101	836724386	1176919051
8101041001	08101	517	2017	Concepción	323059.6	2017	8101	223574	72227728923	1373	0.0061411	08101	443560843	502132815
8101051001	08101	610	2017	Concepción	323059.6	2017	8101	223574	72227728923	1825	0.0081628	08101	589583786	594796186
8101051002	08101	779	2017	Concepción	323059.6	2017	8101	223574	72227728923	2383	0.0106587	08101	769851047	764019220
8101051003	08101	879	2017	Concepción	323059.6	2017	8101	223574	72227728923	2945	0.0131724	08101	951410547	864578464
8101061001	08101	1175	2017	Concepción	323059.6	2017	8101	223574	72227728923	2976	0.0133110	08101	961425395	1163735427
8101071001	08101	449	2017	Concepción	323059.6	2017	8101	223574	72227728923	1523	0.0068121	08101	492019784	434626657
8101071002	08101	810	2017	Concepción	323059.6	2017	8101	223574	72227728923	2187	0.0097820	08101	706531364	795161449
8101081001	08101	587	2017	Concepción	323059.6	2017	8101	223574	72227728923	1852	0.0082836	08101	598306395	571845965
8101081002	08101	234	2017	Concepción	323059.6	2017	8101	223574	72227728923	836	0.0037393	08101	270077833	223022030
8101081003	08101	805	2017	Concepción	323059.6	2017	8101	223574	72227728923	2570	0.0114951	08101	830263194	790136560
8101081004	08101	471	2017	Concepción	323059.6	2017	8101	223574	72227728923	1420	0.0063514	08101	458744644	456441902
8101081005	08101	864	2017	Concepción	323059.6	2017	8101	223574	72227728923	3105	0.0138880	08101	1003100085	849476405
8101091001	08101	1151	2017	Concepción	323059.6	2017	8101	223574	72227728923	3351	0.0149883	08101	1082572748	1139405577
8101101001	08101	472	2017	Concepción	323059.6	2017	8101	223574	72227728923	1345	0.0060159	08101	434515174	457434089
8101101002	08101	1596	2017	Concepción	323059.6	2017	8101	223574	72227728923	4045	0.0180924	08101	1306776117	1592265519
8101101003	08101	916	2017	Concepción	323059.6	2017	8101	223574	72227728923	2968	0.0132752	08101	958840918	901856240
8101101004	08101	574	2017	Concepción	323059.6	2017	8101	223574	72227728923	2134	0.0095449	08101	689409205	558883515
8101111001	08101	1570	2017	Concepción	323059.6	2017	8101	223574	72227728923	3916	0.0175155	08101	1265101427	1565714000
8101121001	08101	999	2017	Concepción	323059.6	2017	8101	223574	72227728923	2733	0.0122241	08101	882921910	985607818
8101131001	08101	1327	2017	Concepción	323059.6	2017	8101	223574	72227728923	3498	0.0156458	08101	1130062511	1318090133
8101141001	08101	892	2017	Concepción	323059.6	2017	8101	223574	72227728923	2701	0.0120810	08101	872584003	877671883
8101151001	08101	617	2017	Concepción	323059.6	2017	8101	223574	72227728923	2271	0.0101577	08101	733668371	601785162
8101151002	08101	609	2017	Concepción	323059.6	2017	8101	223574	72227728923	2231	0.0099788	08101	720745987	593797916
8101151003	08101	861	2017	Concepción	323059.6	2017	8101	223574	72227728923	3075	0.0137538	08101	993408296	846456738
8101151004	08101	552	2017	Concepción	323059.6	2017	8101	223574	72227728923	1854	0.0082926	08101	598952514	536963064
8101151005	08101	719	2017	Concepción	323059.6	2017	8101	223574	72227728923	2355	0.0105334	08101	760805378	703828792
8101151006	08101	548	2017	Concepción	323059.6	2017	8101	223574	72227728923	2089	0.0093437	08101	674871522	532979738
8101161001	08101	1123	2017	Concepción	323059.6	2017	8101	223574	72227728923	3863	0.0172784	08101	1247979268	1111036033
8101161002	08101	936	2017	Concepción	323059.6	2017	8101	223574	72227728923	3464	0.0154938	08101	1119078484	922021416
8101161003	08101	930	2017	Concepción	323059.6	2017	8101	223574	72227728923	3640	0.0162810	08101	1175936975	915970776
8101161004	08101	1084	2017	Concepción	323059.6	2017	8101	223574	72227728923	3612	0.0161557	08101	1166891306	1071549458
8101161005	08101	1417	2017	Concepción	323059.6	2017	8101	223574	72227728923	4756	0.0212726	08101	1536471498	1409686404
8101161006	08101	946	2017	Concepción	323059.6	2017	8101	223574	72227728923	3401	0.0152120	08101	1098725729	932107865
8101161007	08101	828	2017	Concepción	323059.6	2017	8101	223574	72227728923	2944	0.0131679	08101	951087488	813257130
8101161008	08101	1668	2017	Concepción	323059.6	2017	8101	223574	72227728923	5013	0.0224221	08101	1619497818	1665846066
8101161009	08101	1022	2017	Concepción	323059.6	2017	8101	223574	72227728923	3072	0.0137404	08101	992439117	1008846031
8101161010	08101	892	2017	Concepción	323059.6	2017	8101	223574	72227728923	2380	0.0106452	08101	768881868	877671883
8101161011	08101	527	2017	Concepción	323059.6	2017	8101	223574	72227728923	2320	0.0103769	08101	749498292	512078748
8101161012	08101	1114	2017	Concepción	323059.6	2017	8101	223574	72227728923	3886	0.0173813	08101	1255409639	1101920807
8101161013	08101	971	2017	Concepción	323059.6	2017	8101	223574	72227728923	2922	0.0130695	08101	943980176	957335038
8101161014	08101	1050	2017	Concepción	323059.6	2017	8101	223574	72227728923	3814	0.0170592	08101	1232149347	1037152812
8101171001	08101	1211	2017	Concepción	323059.6	2017	8101	223574	72227728923	3284	0.0146886	08101	1060927755	1200252318
8101171002	08101	1018	2017	Concepción	323059.6	2017	8101	223574	72227728923	3682	0.0164688	08101	1189505479	1004803700
8101171003	08101	374	2017	Concepción	323059.6	2017	8101	223574	72227728923	1315	0.0058817	08101	424823385	360455740
8101181001	08101	1378	2017	Concepción	323059.6	2017	8101	223574	72227728923	4508	0.0201633	08101	1456352715	1369977146
8101191001	08101	544	2017	Concepción	323059.6	2017	8101	223574	72227728923	1629	0.0072862	08101	526264102	528997104
8101191002	08101	1262	2017	Concepción	323059.6	2017	8101	223574	72227728923	3336	0.0149212	08101	1077726854	1252028667
8101201001	08101	1196	2017	Concepción	323059.6	2017	8101	223574	72227728923	3154	0.0141072	08101	1018930005	1185033761
8101211001	08101	1645	2017	Concepción	323059.6	2017	8101	223574	72227728923	4901	0.0219212	08101	1583315142	1642332789
8101221001	08101	1207	2017	Concepción	323059.6	2017	8101	223574	72227728923	2688	0.0120229	08101	868384228	1196193595
8101221002	08101	771	2017	Concepción	323059.6	2017	8101	223574	72227728923	1855	0.0082970	08101	599275574	755987258
8101231001	08101	704	2017	Concepción	323059.6	2017	8101	223574	72227728923	2503	0.0111954	08101	808618200	688799487
8101241001	08101	779	2017	Concepción	323059.6	2017	8101	223574	72227728923	2763	0.0123583	08101	892613698	764019220
8101241002	08101	569	2017	Concepción	323059.6	2017	8101	223574	72227728923	1864	0.0083373	08101	602183110	553899810
8101241003	08101	614	2017	Concepción	323059.6	2017	8101	223574	72227728923	1888	0.0084446	08101	609936541	598789654
8101251001	08101	1118	2017	Concepción	323059.6	2017	8101	223574	72227728923	3790	0.0169519	08101	1224395916	1105971803
8101251002	08101	815	2017	Concepción	323059.6	2017	8101	223574	72227728923	3121	0.0139596	08101	1008269038	800187076
8101251003	08101	1273	2017	Concepción	323059.6	2017	8101	223574	72227728923	4587	0.0205167	08101	1481874424	1263202718
8101251004	08101	648	2017	Concepción	323059.6	2017	8101	223574	72227728923	2288	0.0102337	08101	739160384	632758758
8101251005	08101	1406	2017	Concepción	323059.6	2017	8101	223574	72227728923	4334	0.0193851	08101	1400140343	1398483690
8101261001	08101	388	2017	Concepción	323059.6	2017	8101	223574	72227728923	1200	0.0053674	08101	387671530	374276045
8101261002	08101	606	2017	Concepción	323059.6	2017	8101	223574	72227728923	2084	0.0093213	08101	673256224	590803341
8101261003	08101	746	2017	Concepción	323059.6	2017	8101	223574	72227728923	2696	0.0120586	08101	870968705	730900257
8101271001	08101	1011	2017	Concepción	323059.6	2017	8101	223574	72227728923	2727	0.0121973	08101	880983553	997730532
8101281001	08101	556	2017	Concepción	323059.6	2017	8101	223574	72227728923	3513	0.0157129	08101	1134908405	540947078
8101281002	08101	1272	2017	Concepción	323059.6	2017	8101	223574	72227728923	3737	0.0167148	08101	1207273757	1262186800
8101321001	08101	1194	2017	Concepción	323059.6	2017	8101	223574	72227728923	4131	0.0184771	08101	1334559243	1183004962
8101321002	08101	1329	2017	Concepción	323059.6	2017	8101	223574	72227728923	4089	0.0182892	08101	1320990739	1320124036
8101321003	08101	916	2017	Concepción	323059.6	2017	8101	223574	72227728923	2991	0.0133781	08101	966271289	901856240
8101321004	08101	1623	2017	Concepción	323059.6	2017	8101	223574	72227728923	5956	0.0266399	08101	1924143029	1619849151
8101321005	08101	1010	2017	Concepción	323059.6	2017	8101	223574	72227728923	3491	0.0156145	08101	1127801093	996720175
8101991999	08101	201	2017	Concepción	323059.6	2017	8101	223574	72227728923	1520	0.0067986	08101	491050605	190878156
8102011001	08102	82	2017	Coronel	277633.4	2017	8102	116262	32278209118	231	0.0019869	08102	64133305	76226152
8102011002	08102	701	2017	Coronel	277633.4	2017	8102	116262	32278209118	2650	0.0227933	08102	735728391	685794536
8102021001	08102	1197	2017	Coronel	277633.4	2017	8102	116262	32278209118	4404	0.0378800	08102	1222697295	1186048191
8102021002	08102	759	2017	Coronel	277633.4	2017	8102	116262	32278209118	2895	0.0249007	08102	803748563	743943042
8102021003	08102	1174	2017	Coronel	277633.4	2017	8102	116262	32278209118	4041	0.0347577	08102	1121916388	1162721445
8102021004	08102	700	2017	Coronel	277633.4	2017	8102	116262	32278209118	2507	0.0215634	08102	696026821	684792953
8102021005	08102	742	2017	Coronel	277633.4	2017	8102	116262	32278209118	2879	0.0247630	08102	799306429	726888177
8102031001	08102	921	2017	Coronel	277633.4	2017	8102	116262	32278209118	3680	0.0316526	08102	1021690746	906896560
8102031002	08102	473	2017	Coronel	277633.4	2017	8102	116262	32278209118	1697	0.0145963	08102	471143803	458426327
8102031003	08102	1288	2017	Coronel	277633.4	2017	8102	116262	32278209118	5338	0.0459135	08102	1482006849	1278443761
8102031004	08102	400	2017	Coronel	277633.4	2017	8102	116262	32278209118	1446	0.0124374	08102	401457831	386131492
8102031005	08102	475	2017	Coronel	277633.4	2017	8102	116262	32278209118	1870	0.0160844	08102	519174374	460410951
8102041001	08102	947	2017	Coronel	277633.4	2017	8102	116262	32278209118	3438	0.0295711	08102	954503474	933116650
8102041002	08102	1123	2017	Coronel	277633.4	2017	8102	116262	32278209118	4279	0.0368048	08102	1187993126	1111036033
8102041003	08102	1248	2017	Coronel	277633.4	2017	8102	116262	32278209118	4627	0.0397980	08102	1284609534	1237810504
8102041004	08102	875	2017	Coronel	277633.4	2017	8102	116262	32278209118	2601	0.0223719	08102	722124356	860550644
8102051001	08102	20	2017	Coronel	277633.4	2017	8102	116262	32278209118	77	0.0006623	08102	21377768	17977595
8102081001	08102	911	2017	Coronel	277633.4	2017	8102	116262	32278209118	3302	0.0284014	08102	916745338	896816575
8102081002	08102	563	2017	Coronel	277633.4	2017	8102	116262	32278209118	2248	0.0193356	08102	624119782	547920740
8102081003	08102	646	2017	Coronel	277633.4	2017	8102	116262	32278209118	2303	0.0198087	08102	639389617	630759378
8102111001	08102	1022	2017	Coronel	277633.4	2017	8102	116262	32278209118	3295	0.0283412	08102	914801905	1008846031
8102111002	08102	981	2017	Coronel	277633.4	2017	8102	116262	32278209118	3487	0.0299926	08102	968107509	967430260
8102111003	08102	754	2017	Coronel	277633.4	2017	8102	116262	32278209118	2783	0.0239373	08102	772653627	738925952

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

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

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

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

zona	código.x	Freq.x	anio	comuna.x	promedio_i	año	comuna.y	personas	Ingresos_expandidos	Freq.y	p_poblacional	código.y	multi_pob	est_ing	ing_medio_zona
8101011001	08101	618	2017	Concepción	323059.6	2017	8101	223574	72227728923	1455	0.0065079	08101	470051730	602783742	414284.4
8101021001	08101	633	2017	Concepción	323059.6	2017	8101	223574	72227728923	1516	0.0067808	08101	489758367	617767022	407498.0
8101021002	08101	949	2017	Concepción	323059.6	2017	8101	223574	72227728923	1874	0.0083820	08101	605413706	935134296	499004.4
8101021003	08101	662	2017	Concepción	323059.6	2017	8101	223574	72227728923	1349	0.0060338	08101	435807412	646758505	479435.5
8101031001	08101	1188	2017	Concepción	323059.6	2017	8101	223574	72227728923	2590	0.0115845	08101	836724386	1176919051	454408.9
8101041001	08101	517	2017	Concepción	323059.6	2017	8101	223574	72227728923	1373	0.0061411	08101	443560843	502132815	365719.5
8101051001	08101	610	2017	Concepción	323059.6	2017	8101	223574	72227728923	1825	0.0081628	08101	589583786	594796186	325915.7
8101051002	08101	779	2017	Concepción	323059.6	2017	8101	223574	72227728923	2383	0.0106587	08101	769851047	764019220	320612.3
8101051003	08101	879	2017	Concepción	323059.6	2017	8101	223574	72227728923	2945	0.0131724	08101	951410547	864578464	293575.0
8101061001	08101	1175	2017	Concepción	323059.6	2017	8101	223574	72227728923	2976	0.0133110	08101	961425395	1163735427	391040.1
8101071001	08101	449	2017	Concepción	323059.6	2017	8101	223574	72227728923	1523	0.0068121	08101	492019784	434626657	285375.3
8101071002	08101	810	2017	Concepción	323059.6	2017	8101	223574	72227728923	2187	0.0097820	08101	706531364	795161449	363585.5
8101081001	08101	587	2017	Concepción	323059.6	2017	8101	223574	72227728923	1852	0.0082836	08101	598306395	571845965	308772.1
8101081002	08101	234	2017	Concepción	323059.6	2017	8101	223574	72227728923	836	0.0037393	08101	270077833	223022030	266772.8
8101081003	08101	805	2017	Concepción	323059.6	2017	8101	223574	72227728923	2570	0.0114951	08101	830263194	790136560	307446.1
8101081004	08101	471	2017	Concepción	323059.6	2017	8101	223574	72227728923	1420	0.0063514	08101	458744644	456441902	321438.0
8101081005	08101	864	2017	Concepción	323059.6	2017	8101	223574	72227728923	3105	0.0138880	08101	1003100085	849476405	273583.4
8101091001	08101	1151	2017	Concepción	323059.6	2017	8101	223574	72227728923	3351	0.0149883	08101	1082572748	1139405577	340019.6
8101101001	08101	472	2017	Concepción	323059.6	2017	8101	223574	72227728923	1345	0.0060159	08101	434515174	457434089	340099.7
8101101002	08101	1596	2017	Concepción	323059.6	2017	8101	223574	72227728923	4045	0.0180924	08101	1306776117	1592265519	393638.0
8101101003	08101	916	2017	Concepción	323059.6	2017	8101	223574	72227728923	2968	0.0132752	08101	958840918	901856240	303859.9
8101101004	08101	574	2017	Concepción	323059.6	2017	8101	223574	72227728923	2134	0.0095449	08101	689409205	558883515	261894.8
8101111001	08101	1570	2017	Concepción	323059.6	2017	8101	223574	72227728923	3916	0.0175155	08101	1265101427	1565714000	399824.8
8101121001	08101	999	2017	Concepción	323059.6	2017	8101	223574	72227728923	2733	0.0122241	08101	882921910	985607818	360632.2
8101131001	08101	1327	2017	Concepción	323059.6	2017	8101	223574	72227728923	3498	0.0156458	08101	1130062511	1318090133	376812.5
8101141001	08101	892	2017	Concepción	323059.6	2017	8101	223574	72227728923	2701	0.0120810	08101	872584003	877671883	324943.3
8101151001	08101	617	2017	Concepción	323059.6	2017	8101	223574	72227728923	2271	0.0101577	08101	733668371	601785162	264986.9
8101151002	08101	609	2017	Concepción	323059.6	2017	8101	223574	72227728923	2231	0.0099788	08101	720745987	593797916	266157.7
8101151003	08101	861	2017	Concepción	323059.6	2017	8101	223574	72227728923	3075	0.0137538	08101	993408296	846456738	275270.5
8101151004	08101	552	2017	Concepción	323059.6	2017	8101	223574	72227728923	1854	0.0082926	08101	598952514	536963064	289624.1
8101151005	08101	719	2017	Concepción	323059.6	2017	8101	223574	72227728923	2355	0.0105334	08101	760805378	703828792	298865.7
8101151006	08101	548	2017	Concepción	323059.6	2017	8101	223574	72227728923	2089	0.0093437	08101	674871522	532979738	255136.3
8101161001	08101	1123	2017	Concepción	323059.6	2017	8101	223574	72227728923	3863	0.0172784	08101	1247979268	1111036033	287609.6
8101161002	08101	936	2017	Concepción	323059.6	2017	8101	223574	72227728923	3464	0.0154938	08101	1119078484	922021416	266172.5
8101161003	08101	930	2017	Concepción	323059.6	2017	8101	223574	72227728923	3640	0.0162810	08101	1175936975	915970776	251640.3
8101161004	08101	1084	2017	Concepción	323059.6	2017	8101	223574	72227728923	3612	0.0161557	08101	1166891306	1071549458	296663.7
8101161005	08101	1417	2017	Concepción	323059.6	2017	8101	223574	72227728923	4756	0.0212726	08101	1536471498	1409686404	296401.7
8101161006	08101	946	2017	Concepción	323059.6	2017	8101	223574	72227728923	3401	0.0152120	08101	1098725729	932107865	274068.8
8101161007	08101	828	2017	Concepción	323059.6	2017	8101	223574	72227728923	2944	0.0131679	08101	951087488	813257130	276242.2
8101161008	08101	1668	2017	Concepción	323059.6	2017	8101	223574	72227728923	5013	0.0224221	08101	1619497818	1665846066	332305.2
8101161009	08101	1022	2017	Concepción	323059.6	2017	8101	223574	72227728923	3072	0.0137404	08101	992439117	1008846031	328400.4
8101161010	08101	892	2017	Concepción	323059.6	2017	8101	223574	72227728923	2380	0.0106452	08101	768881868	877671883	368769.7
8101161011	08101	527	2017	Concepción	323059.6	2017	8101	223574	72227728923	2320	0.0103769	08101	749498292	512078748	220723.6
8101161012	08101	1114	2017	Concepción	323059.6	2017	8101	223574	72227728923	3886	0.0173813	08101	1255409639	1101920807	283561.7
8101161013	08101	971	2017	Concepción	323059.6	2017	8101	223574	72227728923	2922	0.0130695	08101	943980176	957335038	327630.1
8101161014	08101	1050	2017	Concepción	323059.6	2017	8101	223574	72227728923	3814	0.0170592	08101	1232149347	1037152812	271933.1
8101171001	08101	1211	2017	Concepción	323059.6	2017	8101	223574	72227728923	3284	0.0146886	08101	1060927755	1200252318	365484.9
8101171002	08101	1018	2017	Concepción	323059.6	2017	8101	223574	72227728923	3682	0.0164688	08101	1189505479	1004803700	272896.2
8101171003	08101	374	2017	Concepción	323059.6	2017	8101	223574	72227728923	1315	0.0058817	08101	424823385	360455740	274110.8
8101181001	08101	1378	2017	Concepción	323059.6	2017	8101	223574	72227728923	4508	0.0201633	08101	1456352715	1369977146	303899.1
8101191001	08101	544	2017	Concepción	323059.6	2017	8101	223574	72227728923	1629	0.0072862	08101	526264102	528997104	324737.3
8101191002	08101	1262	2017	Concepción	323059.6	2017	8101	223574	72227728923	3336	0.0149212	08101	1077726854	1252028667	375308.4
8101201001	08101	1196	2017	Concepción	323059.6	2017	8101	223574	72227728923	3154	0.0141072	08101	1018930005	1185033761	375724.1
8101211001	08101	1645	2017	Concepción	323059.6	2017	8101	223574	72227728923	4901	0.0219212	08101	1583315142	1642332789	335101.6
8101221001	08101	1207	2017	Concepción	323059.6	2017	8101	223574	72227728923	2688	0.0120229	08101	868384228	1196193595	445012.5
8101221002	08101	771	2017	Concepción	323059.6	2017	8101	223574	72227728923	1855	0.0082970	08101	599275574	755987258	407540.3
8101231001	08101	704	2017	Concepción	323059.6	2017	8101	223574	72227728923	2503	0.0111954	08101	808618200	688799487	275189.6
8101241001	08101	779	2017	Concepción	323059.6	2017	8101	223574	72227728923	2763	0.0123583	08101	892613698	764019220	276518.0
8101241002	08101	569	2017	Concepción	323059.6	2017	8101	223574	72227728923	1864	0.0083373	08101	602183110	553899810	297156.6
8101241003	08101	614	2017	Concepción	323059.6	2017	8101	223574	72227728923	1888	0.0084446	08101	609936541	598789654	317155.5
8101251001	08101	1118	2017	Concepción	323059.6	2017	8101	223574	72227728923	3790	0.0169519	08101	1224395916	1105971803	291813.1
8101251002	08101	815	2017	Concepción	323059.6	2017	8101	223574	72227728923	3121	0.0139596	08101	1008269038	800187076	256388.0
8101251003	08101	1273	2017	Concepción	323059.6	2017	8101	223574	72227728923	4587	0.0205167	08101	1481874424	1263202718	275387.6
8101251004	08101	648	2017	Concepción	323059.6	2017	8101	223574	72227728923	2288	0.0102337	08101	739160384	632758758	276555.4
8101251005	08101	1406	2017	Concepción	323059.6	2017	8101	223574	72227728923	4334	0.0193851	08101	1400140343	1398483690	322677.4
8101261001	08101	388	2017	Concepción	323059.6	2017	8101	223574	72227728923	1200	0.0053674	08101	387671530	374276045	311896.7
8101261002	08101	606	2017	Concepción	323059.6	2017	8101	223574	72227728923	2084	0.0093213	08101	673256224	590803341	283494.9
8101261003	08101	746	2017	Concepción	323059.6	2017	8101	223574	72227728923	2696	0.0120586	08101	870968705	730900257	271105.4
8101271001	08101	1011	2017	Concepción	323059.6	2017	8101	223574	72227728923	2727	0.0121973	08101	880983553	997730532	365871.1
8101281001	08101	556	2017	Concepción	323059.6	2017	8101	223574	72227728923	3513	0.0157129	08101	1134908405	540947078	153984.4
8101281002	08101	1272	2017	Concepción	323059.6	2017	8101	223574	72227728923	3737	0.0167148	08101	1207273757	1262186800	337754.0
8101321001	08101	1194	2017	Concepción	323059.6	2017	8101	223574	72227728923	4131	0.0184771	08101	1334559243	1183004962	286372.5
8101321002	08101	1329	2017	Concepción	323059.6	2017	8101	223574	72227728923	4089	0.0182892	08101	1320990739	1320124036	322847.6
8101321003	08101	916	2017	Concepción	323059.6	2017	8101	223574	72227728923	2991	0.0133781	08101	966271289	901856240	301523.3
8101321004	08101	1623	2017	Concepción	323059.6	2017	8101	223574	72227728923	5956	0.0266399	08101	1924143029	1619849151	271969.3
8101321005	08101	1010	2017	Concepción	323059.6	2017	8101	223574	72227728923	3491	0.0156145	08101	1127801093	996720175	285511.4
8101991999	08101	201	2017	Concepción	323059.6	2017	8101	223574	72227728923	1520	0.0067986	08101	491050605	190878156	125577.7
8102011001	08102	82	2017	Coronel	277633.4	2017	8102	116262	32278209118	231	0.0019869	08102	64133305	76226152	329983.3
8102011002	08102	701	2017	Coronel	277633.4	2017	8102	116262	32278209118	2650	0.0227933	08102	735728391	685794536	258790.4
8102021001	08102	1197	2017	Coronel	277633.4	2017	8102	116262	32278209118	4404	0.0378800	08102	1222697295	1186048191	269311.6
8102021002	08102	759	2017	Coronel	277633.4	2017	8102	116262	32278209118	2895	0.0249007	08102	803748563	743943042	256975.1
8102021003	08102	1174	2017	Coronel	277633.4	2017	8102	116262	32278209118	4041	0.0347577	08102	1121916388	1162721445	287731.1
8102021004	08102	700	2017	Coronel	277633.4	2017	8102	116262	32278209118	2507	0.0215634	08102	696026821	684792953	273152.4
8102021005	08102	742	2017	Coronel	277633.4	2017	8102	116262	32278209118	2879	0.0247630	08102	799306429	726888177	252479.4
8102031001	08102	921	2017	Coronel	277633.4	2017	8102	116262	32278209118	3680	0.0316526	08102	1021690746	906896560	246439.3
8102031002	08102	473	2017	Coronel	277633.4	2017	8102	116262	32278209118	1697	0.0145963	08102	471143803	458426327	270139.3
8102031003	08102	1288	2017	Coronel	277633.4	2017	8102	116262	32278209118	5338	0.0459135	08102	1482006849	1278443761	239498.6
8102031004	08102	400	2017	Coronel	277633.4	2017	8102	116262	32278209118	1446	0.0124374	08102	401457831	386131492	267034.2
8102031005	08102	475	2017	Coronel	277633.4	2017	8102	116262	32278209118	1870	0.0160844	08102	519174374	460410951	246209.1
8102041001	08102	947	2017	Coronel	277633.4	2017	8102	116262	32278209118	3438	0.0295711	08102	954503474	933116650	271412.6
8102041002	08102	1123	2017	Coronel	277633.4	2017	8102	116262	32278209118	4279	0.0368048	08102	1187993126	1111036033	259648.5
8102041003	08102	1248	2017	Coronel	277633.4	2017	8102	116262	32278209118	4627	0.0397980	08102	1284609534	1237810504	267519.0
8102041004	08102	875	2017	Coronel	277633.4	2017	8102	116262	32278209118	2601	0.0223719	08102	722124356	860550644	330853.8
8102051001	08102	20	2017	Coronel	277633.4	2017	8102	116262	32278209118	77	0.0006623	08102	21377768	17977595	233475.3
8102081001	08102	911	2017	Coronel	277633.4	2017	8102	116262	32278209118	3302	0.0284014	08102	916745338	896816575	271598.0
8102081002	08102	563	2017	Coronel	277633.4	2017	8102	116262	32278209118	2248	0.0193356	08102	624119782	547920740	243737.0
8102081003	08102	646	2017	Coronel	277633.4	2017	8102	116262	32278209118	2303	0.0198087	08102	639389617	630759378	273886.0
8102111001	08102	1022	2017	Coronel	277633.4	2017	8102	116262	32278209118	3295	0.0283412	08102	914801905	1008846031	306174.8
8102111002	08102	981	2017	Coronel	277633.4	2017	8102	116262	32278209118	3487	0.0299926	08102	968107509	967430260	277439.1
8102111003	08102	754	2017	Coronel	277633.4	2017	8102	116262	32278209118	2783	0.0239373	08102	772653627	738925952	265514.2

Guardamos:

saveRDS(h_y_m_comuna_corr, "P03C/region_08_P03C_u.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