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

1 Variable CENSO

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

1.1 Lectura y filtrado de la tabla censal de viviendas

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

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

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

Despleguemos los códigos de regiones de nuestra tabla:

regiones <- unique(tabla_con_clave$REGION)
regiones

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

Hagamos un subset con la 1:

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

1.2 Cálculo de frecuencias

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

Veamos los primeros 100 registros:

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

zona	unlist.c.	unlist.d.	Freq	anio
6101011001	1	6101	298	2017
6101021001	1	6101	140	2017
6101031001	1	6101	78	2017
6101041001	1	6101	128	2017
6101041002	1	6101	553	2017
6101051001	1	6101	118	2017
6101051002	1	6101	181	2017
6101051003	1	6101	133	2017
6101051004	1	6101	108	2017
6101051005	1	6101	77	2017
6101061001	1	6101	604	2017
6101061002	1	6101	101	2017
6101061003	1	6101	187	2017
6101061004	1	6101	136	2017
6101061005	1	6101	166	2017
6101061006	1	6101	72	2017
6101061007	1	6101	65	2017
6101061008	1	6101	100	2017
6101061009	1	6101	74	2017
6101071001	1	6101	75	2017
6101071002	1	6101	92	2017
6101071003	1	6101	61	2017
6101071004	1	6101	143	2017
6101071005	1	6101	118	2017
6101071006	1	6101	78	2017
6101071007	1	6101	41	2017
6101081001	1	6101	78	2017
6101081002	1	6101	208	2017
6101081003	1	6101	559	2017
6101081004	1	6101	598	2017
6101081005	1	6101	305	2017
6101081006	1	6101	235	2017
6101081007	1	6101	707	2017
6101091001	1	6101	31	2017
6101091002	1	6101	60	2017
6101091003	1	6101	357	2017
6101091004	1	6101	91	2017
6101091005	1	6101	104	2017
6101091006	1	6101	89	2017
6101091007	1	6101	426	2017
6101091008	1	6101	423	2017
6101092004	1	6101	3	2017
6101101001	1	6101	336	2017
6101101002	1	6101	293	2017
6101101003	1	6101	213	2017
6101101004	1	6101	553	2017
6101102003	1	6101	1	2017
6101102007	1	6101	18	2017
6101102009	1	6101	5	2017
6101102015	1	6101	6	2017
6101111001	1	6101	427	2017
6101111002	1	6101	268	2017
6101111003	1	6101	84	2017
6101111004	1	6101	303	2017
6101111005	1	6101	367	2017
6101111006	1	6101	23	2017
6101112015	1	6101	16	2017
6101122002	1	6101	4	2017
6101122008	1	6101	5	2017
6101122901	1	6101	10	2017
6101131001	1	6101	5	2017
6101132005	1	6101	7	2017
6101132008	1	6101	3	2017
6101132013	1	6101	31	2017
6101132014	1	6101	74	2017
6101141001	1	6101	484	2017
6101141002	1	6101	11	2017
6101141003	1	6101	29	2017
6101142010	1	6101	2	2017
6101142011	1	6101	19	2017
6101142013	1	6101	10	2017
6101151001	1	6101	1052	2017
6101151002	1	6101	52	2017
6101151003	1	6101	138	2017
6101151004	1	6101	294	2017
6101151005	1	6101	134	2017
6101151006	1	6101	135	2017
6101151007	1	6101	447	2017
6101151008	1	6101	334	2017
6101151009	1	6101	1673	2017
6101151010	1	6101	750	2017
6101161001	1	6101	297	2017
6101161002	1	6101	270	2017
6101161003	1	6101	52	2017
6101161004	1	6101	189	2017
6101161005	1	6101	157	2017
6101161006	1	6101	80	2017
6101161007	1	6101	126	2017
6101171001	1	6101	220	2017
6101171002	1	6101	99	2017
6101171003	1	6101	646	2017
6101171004	1	6101	159	2017
6101171005	1	6101	769	2017
6101171006	1	6101	86	2017
6101182001	1	6101	42	2017
6101182002	1	6101	9	2017
6101182005	1	6101	20	2017
6101182006	1	6101	4	2017
6101182015	1	6101	29	2017
6101991999	1	6101	48	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
6101011001	298	2017	06101
6101021001	140	2017	06101
6101031001	78	2017	06101
6101041001	128	2017	06101
6101041002	553	2017	06101
6101051001	118	2017	06101
6101051002	181	2017	06101
6101051003	133	2017	06101
6101051004	108	2017	06101
6101051005	77	2017	06101
6101061001	604	2017	06101
6101061002	101	2017	06101
6101061003	187	2017	06101
6101061004	136	2017	06101
6101061005	166	2017	06101
6101061006	72	2017	06101
6101061007	65	2017	06101
6101061008	100	2017	06101
6101061009	74	2017	06101
6101071001	75	2017	06101
6101071002	92	2017	06101
6101071003	61	2017	06101
6101071004	143	2017	06101
6101071005	118	2017	06101
6101071006	78	2017	06101
6101071007	41	2017	06101
6101081001	78	2017	06101
6101081002	208	2017	06101
6101081003	559	2017	06101
6101081004	598	2017	06101
6101081005	305	2017	06101
6101081006	235	2017	06101
6101081007	707	2017	06101
6101091001	31	2017	06101
6101091002	60	2017	06101
6101091003	357	2017	06101
6101091004	91	2017	06101
6101091005	104	2017	06101
6101091006	89	2017	06101
6101091007	426	2017	06101
6101091008	423	2017	06101
6101092004	3	2017	06101
6101101001	336	2017	06101
6101101002	293	2017	06101
6101101003	213	2017	06101
6101101004	553	2017	06101
6101102003	1	2017	06101
6101102007	18	2017	06101
6101102009	5	2017	06101
6101102015	6	2017	06101
6101111001	427	2017	06101
6101111002	268	2017	06101
6101111003	84	2017	06101
6101111004	303	2017	06101
6101111005	367	2017	06101
6101111006	23	2017	06101
6101112015	16	2017	06101
6101122002	4	2017	06101
6101122008	5	2017	06101
6101122901	10	2017	06101
6101131001	5	2017	06101
6101132005	7	2017	06101
6101132008	3	2017	06101
6101132013	31	2017	06101
6101132014	74	2017	06101
6101141001	484	2017	06101
6101141002	11	2017	06101
6101141003	29	2017	06101
6101142010	2	2017	06101
6101142011	19	2017	06101
6101142013	10	2017	06101
6101151001	1052	2017	06101
6101151002	52	2017	06101
6101151003	138	2017	06101
6101151004	294	2017	06101
6101151005	134	2017	06101
6101151006	135	2017	06101
6101151007	447	2017	06101
6101151008	334	2017	06101
6101151009	1673	2017	06101
6101151010	750	2017	06101
6101161001	297	2017	06101
6101161002	270	2017	06101
6101161003	52	2017	06101
6101161004	189	2017	06101
6101161005	157	2017	06101
6101161006	80	2017	06101
6101161007	126	2017	06101
6101171001	220	2017	06101
6101171002	99	2017	06101
6101171003	646	2017	06101
6101171004	159	2017	06101
6101171005	769	2017	06101
6101171006	86	2017	06101
6101182001	42	2017	06101
6101182002	9	2017	06101
6101182005	20	2017	06101
6101182006	4	2017	06101
6101182015	29	2017	06101
6101991999	48	2017	06101

2 Variable CASEN

2.1 Tabla de ingresos expandidos

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

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

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

3 Unión Censo-Casen

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

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

código	zona	Freq	anio	comuna.x	promedio_i	año	comuna.y	personas	Ingresos_expandidos
06101	6101011001	298	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101021001	140	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101031001	78	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101041001	128	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101041002	553	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101051001	118	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101051002	181	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101051003	133	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101051004	108	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101051005	77	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101061001	604	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101061002	101	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101061003	187	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101061004	136	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101061005	166	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101061006	72	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101061007	65	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101061008	100	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101061009	74	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101071001	75	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101071002	92	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101071003	61	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101071004	143	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101071005	118	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101071006	78	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101071007	41	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101081001	78	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101081002	208	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101081003	559	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101081004	598	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101081005	305	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101081006	235	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101081007	707	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101091001	31	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101091002	60	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101091003	357	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101091004	91	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101091005	104	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101091006	89	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101091007	426	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101091008	423	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101092004	3	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101101001	336	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101101002	293	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101101003	213	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101101004	553	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101102003	1	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101102007	18	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101102009	5	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101102015	6	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101111001	427	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101111002	268	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101111003	84	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101111004	303	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101111005	367	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101111006	23	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101112015	16	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101122002	4	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101122008	5	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101122901	10	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101131001	5	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101132005	7	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101132008	3	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101132013	31	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101132014	74	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101141001	484	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101141002	11	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101141003	29	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101142010	2	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101142011	19	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101142013	10	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101151001	1052	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101151002	52	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101151003	138	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101151004	294	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101151005	134	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101151006	135	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101151007	447	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101151008	334	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101151009	1673	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101151010	750	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101161001	297	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101161002	270	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101161003	52	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101161004	189	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101161005	157	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101161006	80	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101161007	126	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101171001	220	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101171002	99	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101171003	646	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101171004	159	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101171005	769	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101171006	86	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101182001	42	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101182002	9	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101182005	20	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101182006	4	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101182015	29	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101991999	48	2017	Rancagua	301853.9	2017	6101	241774	72980418081

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
06101	6101011001	298	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101021001	140	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101031001	78	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101041001	128	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101041002	553	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101051001	118	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101051002	181	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101051003	133	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101051004	108	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101051005	77	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101061001	604	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101061002	101	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101061003	187	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101061004	136	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101061005	166	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101061006	72	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101061007	65	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101061008	100	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101061009	74	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101071001	75	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101071002	92	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101071003	61	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101071004	143	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101071005	118	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101071006	78	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101071007	41	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101081001	78	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101081002	208	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101081003	559	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101081004	598	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101081005	305	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101081006	235	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101081007	707	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101091001	31	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101091002	60	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101091003	357	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101091004	91	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101091005	104	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101091006	89	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101091007	426	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101091008	423	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101092004	3	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101101001	336	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101101002	293	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101101003	213	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101101004	553	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101102003	1	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101102007	18	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101102009	5	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101102015	6	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101111001	427	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101111002	268	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101111003	84	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101111004	303	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101111005	367	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101111006	23	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101112015	16	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101122002	4	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101122008	5	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101122901	10	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101131001	5	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101132005	7	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101132008	3	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101132013	31	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101132014	74	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101141001	484	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101141002	11	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101141003	29	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101142010	2	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101142011	19	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101142013	10	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101151001	1052	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101151002	52	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101151003	138	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101151004	294	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101151005	134	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101151006	135	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101151007	447	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101151008	334	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101151009	1673	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101151010	750	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101161001	297	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101161002	270	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101161003	52	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101161004	189	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101161005	157	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101161006	80	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101161007	126	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101171001	220	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101171002	99	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101171003	646	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101171004	159	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101171005	769	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101171006	86	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101182001	42	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101182002	9	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101182005	20	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101182006	4	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101182015	29	2017	Rancagua	301853.9	2017	6101	241774	72980418081
06101	6101991999	48	2017	Rancagua	301853.9	2017	6101	241774	72980418081

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
6101011001	06101	298	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2931	0.0121229	06101
6101021001	06101	140	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1326	0.0054845	06101
6101031001	06101	78	2017	Rancagua	301853.9	2017	6101	241774	72980418081	893	0.0036935	06101
6101041001	06101	128	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1599	0.0066136	06101
6101041002	06101	553	2017	Rancagua	301853.9	2017	6101	241774	72980418081	3616	0.0149561	06101
6101051001	06101	118	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2105	0.0087065	06101
6101051002	06101	181	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1634	0.0067584	06101
6101051003	06101	133	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1810	0.0074863	06101
6101051004	06101	108	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1724	0.0071306	06101
6101051005	06101	77	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1297	0.0053645	06101
6101061001	06101	604	2017	Rancagua	301853.9	2017	6101	241774	72980418081	3575	0.0147865	06101
6101061002	06101	101	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1868	0.0077262	06101
6101061003	06101	187	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1945	0.0080447	06101
6101061004	06101	136	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2013	0.0083260	06101
6101061005	06101	166	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1941	0.0080282	06101
6101061006	06101	72	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1440	0.0059560	06101
6101061007	06101	65	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1880	0.0077759	06101
6101061008	06101	100	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1255	0.0051908	06101
6101061009	06101	74	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1458	0.0060304	06101
6101071001	06101	75	2017	Rancagua	301853.9	2017	6101	241774	72980418081	3085	0.0127599	06101
6101071002	06101	92	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1951	0.0080695	06101
6101071003	06101	61	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1805	0.0074656	06101
6101071004	06101	143	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2369	0.0097984	06101
6101071005	06101	118	2017	Rancagua	301853.9	2017	6101	241774	72980418081	411	0.0016999	06101
6101071006	06101	78	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1821	0.0075318	06101
6101071007	06101	41	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1281	0.0052983	06101
6101081001	06101	78	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1438	0.0059477	06101
6101081002	06101	208	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2053	0.0084914	06101
6101081003	06101	559	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2627	0.0108655	06101
6101081004	06101	598	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2379	0.0098398	06101
6101081005	06101	305	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2188	0.0090498	06101
6101081006	06101	235	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2502	0.0103485	06101
6101081007	06101	707	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2234	0.0092400	06101
6101091001	06101	31	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2303	0.0095254	06101
6101091002	06101	60	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1991	0.0082350	06101
6101091003	06101	357	2017	Rancagua	301853.9	2017	6101	241774	72980418081	4641	0.0191956	06101
6101091004	06101	91	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1903	0.0078710	06101
6101091005	06101	104	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2187	0.0090456	06101
6101091006	06101	89	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1472	0.0060883	06101
6101091007	06101	426	2017	Rancagua	301853.9	2017	6101	241774	72980418081	8109	0.0335396	06101
6101091008	06101	423	2017	Rancagua	301853.9	2017	6101	241774	72980418081	11700	0.0483923	06101
6101092004	06101	3	2017	Rancagua	301853.9	2017	6101	241774	72980418081	128	0.0005294	06101
6101101001	06101	336	2017	Rancagua	301853.9	2017	6101	241774	72980418081	3965	0.0163996	06101
6101101002	06101	293	2017	Rancagua	301853.9	2017	6101	241774	72980418081	4110	0.0169993	06101
6101101003	06101	213	2017	Rancagua	301853.9	2017	6101	241774	72980418081	4224	0.0174709	06101
6101101004	06101	553	2017	Rancagua	301853.9	2017	6101	241774	72980418081	5803	0.0240018	06101
6101102003	06101	1	2017	Rancagua	301853.9	2017	6101	241774	72980418081	37	0.0001530	06101
6101102007	06101	18	2017	Rancagua	301853.9	2017	6101	241774	72980418081	481	0.0019895	06101
6101102009	06101	5	2017	Rancagua	301853.9	2017	6101	241774	72980418081	88	0.0003640	06101
6101102015	06101	6	2017	Rancagua	301853.9	2017	6101	241774	72980418081	271	0.0011209	06101
6101111001	06101	427	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1303	0.0053893	06101
6101111002	06101	268	2017	Rancagua	301853.9	2017	6101	241774	72980418081	5050	0.0208873	06101
6101111003	06101	84	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2031	0.0084004	06101
6101111004	06101	303	2017	Rancagua	301853.9	2017	6101	241774	72980418081	3455	0.0142902	06101
6101111005	06101	367	2017	Rancagua	301853.9	2017	6101	241774	72980418081	5041	0.0208501	06101
6101111006	06101	23	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1279	0.0052901	06101
6101112015	06101	16	2017	Rancagua	301853.9	2017	6101	241774	72980418081	74	0.0003061	06101
6101122002	06101	4	2017	Rancagua	301853.9	2017	6101	241774	72980418081	84	0.0003474	06101
6101122008	06101	5	2017	Rancagua	301853.9	2017	6101	241774	72980418081	88	0.0003640	06101
6101122901	06101	10	2017	Rancagua	301853.9	2017	6101	241774	72980418081	45	0.0001861	06101
6101131001	06101	5	2017	Rancagua	301853.9	2017	6101	241774	72980418081	175	0.0007238	06101
6101132005	06101	7	2017	Rancagua	301853.9	2017	6101	241774	72980418081	345	0.0014270	06101
6101132008	06101	3	2017	Rancagua	301853.9	2017	6101	241774	72980418081	13	0.0000538	06101
6101132013	06101	31	2017	Rancagua	301853.9	2017	6101	241774	72980418081	432	0.0017868	06101
6101132014	06101	74	2017	Rancagua	301853.9	2017	6101	241774	72980418081	825	0.0034123	06101
6101141001	06101	484	2017	Rancagua	301853.9	2017	6101	241774	72980418081	7033	0.0290891	06101
6101141002	06101	11	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1110	0.0045911	06101
6101141003	06101	29	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1183	0.0048930	06101
6101142010	06101	2	2017	Rancagua	301853.9	2017	6101	241774	72980418081	43	0.0001779	06101
6101142011	06101	19	2017	Rancagua	301853.9	2017	6101	241774	72980418081	253	0.0010464	06101
6101142013	06101	10	2017	Rancagua	301853.9	2017	6101	241774	72980418081	189	0.0007817	06101
6101151001	06101	1052	2017	Rancagua	301853.9	2017	6101	241774	72980418081	9988	0.0413113	06101
6101151002	06101	52	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1136	0.0046986	06101
6101151003	06101	138	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1480	0.0061214	06101
6101151004	06101	294	2017	Rancagua	301853.9	2017	6101	241774	72980418081	5748	0.0237743	06101
6101151005	06101	134	2017	Rancagua	301853.9	2017	6101	241774	72980418081	3234	0.0133761	06101
6101151006	06101	135	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2829	0.0117010	06101
6101151007	06101	447	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2757	0.0114032	06101
6101151008	06101	334	2017	Rancagua	301853.9	2017	6101	241774	72980418081	3771	0.0155972	06101
6101151009	06101	1673	2017	Rancagua	301853.9	2017	6101	241774	72980418081	6283	0.0259871	06101
6101151010	06101	750	2017	Rancagua	301853.9	2017	6101	241774	72980418081	4858	0.0200931	06101
6101161001	06101	297	2017	Rancagua	301853.9	2017	6101	241774	72980418081	6794	0.0281006	06101
6101161002	06101	270	2017	Rancagua	301853.9	2017	6101	241774	72980418081	6040	0.0249820	06101
6101161003	06101	52	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2230	0.0092235	06101
6101161004	06101	189	2017	Rancagua	301853.9	2017	6101	241774	72980418081	6100	0.0252302	06101
6101161005	06101	157	2017	Rancagua	301853.9	2017	6101	241774	72980418081	4455	0.0184263	06101
6101161006	06101	80	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1457	0.0060263	06101
6101161007	06101	126	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1821	0.0075318	06101
6101171001	06101	220	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1666	0.0068907	06101
6101171002	06101	99	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1913	0.0079123	06101
6101171003	06101	646	2017	Rancagua	301853.9	2017	6101	241774	72980418081	3730	0.0154276	06101
6101171004	06101	159	2017	Rancagua	301853.9	2017	6101	241774	72980418081	4000	0.0165444	06101
6101171005	06101	769	2017	Rancagua	301853.9	2017	6101	241774	72980418081	5138	0.0212513	06101
6101171006	06101	86	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1713	0.0070851	06101
6101182001	06101	42	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1112	0.0045993	06101
6101182002	06101	9	2017	Rancagua	301853.9	2017	6101	241774	72980418081	397	0.0016420	06101
6101182005	06101	20	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2002	0.0082805	06101
6101182006	06101	4	2017	Rancagua	301853.9	2017	6101	241774	72980418081	115	0.0004757	06101
6101182015	06101	29	2017	Rancagua	301853.9	2017	6101	241774	72980418081	569	0.0023534	06101
6101991999	06101	48	2017	Rancagua	301853.9	2017	6101	241774	72980418081	520	0.0021508	06101

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
6101011001	06101	298	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2931	0.0121229	06101	884733699
6101021001	06101	140	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1326	0.0054845	06101	400258234
6101031001	06101	78	2017	Rancagua	301853.9	2017	6101	241774	72980418081	893	0.0036935	06101	269555508
6101041001	06101	128	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1599	0.0066136	06101	482664342
6101041002	06101	553	2017	Rancagua	301853.9	2017	6101	241774	72980418081	3616	0.0149561	06101	1091503602
6101051001	06101	118	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2105	0.0087065	06101	635402401
6101051002	06101	181	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1634	0.0067584	06101	493229227
6101051003	06101	133	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1810	0.0074863	06101	546355509
6101051004	06101	108	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1724	0.0071306	06101	520396076
6101051005	06101	77	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1297	0.0053645	06101	391504472
6101061001	06101	604	2017	Rancagua	301853.9	2017	6101	241774	72980418081	3575	0.0147865	06101	1079127593
6101061002	06101	101	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1868	0.0077262	06101	563863033
6101061003	06101	187	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1945	0.0080447	06101	587105781
6101061004	06101	136	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2013	0.0083260	06101	607631845
6101061005	06101	166	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1941	0.0080282	06101	585898366
6101061006	06101	72	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1440	0.0059560	06101	434669576
6101061007	06101	65	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1880	0.0077759	06101	567485280
6101061008	06101	100	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1255	0.0051908	06101	378826610
6101061009	06101	74	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1458	0.0060304	06101	440102946
6101071001	06101	75	2017	Rancagua	301853.9	2017	6101	241774	72980418081	3085	0.0127599	06101	931219196
6101071002	06101	92	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1951	0.0080695	06101	588916905
6101071003	06101	61	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1805	0.0074656	06101	544846239
6101071004	06101	143	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2369	0.0097984	06101	715091823
6101071005	06101	118	2017	Rancagua	301853.9	2017	6101	241774	72980418081	411	0.0016999	06101	124061941
6101071006	06101	78	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1821	0.0075318	06101	549675901
6101071007	06101	41	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1281	0.0052983	06101	386674810
6101081001	06101	78	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1438	0.0059477	06101	434065868
6101081002	06101	208	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2053	0.0084914	06101	619705999
6101081003	06101	559	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2627	0.0108655	06101	792970122
6101081004	06101	598	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2379	0.0098398	06101	718110362
6101081005	06101	305	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2188	0.0090498	06101	660456272
6101081006	06101	235	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2502	0.0103485	06101	755238388
6101081007	06101	707	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2234	0.0092400	06101	674341550
6101091001	06101	31	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2303	0.0095254	06101	695169468
6101091002	06101	60	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1991	0.0082350	06101	600991059
6101091003	06101	357	2017	Rancagua	301853.9	2017	6101	241774	72980418081	4641	0.0191956	06101	1400903821
6101091004	06101	91	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1903	0.0078710	06101	574427919
6101091005	06101	104	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2187	0.0090456	06101	660154418
6101091006	06101	89	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1472	0.0060883	06101	444328900
6101091007	06101	426	2017	Rancagua	301853.9	2017	6101	241774	72980418081	8109	0.0335396	06101	2447733049
6101091008	06101	423	2017	Rancagua	301853.9	2017	6101	241774	72980418081	11700	0.0483923	06101	3531690304
6101092004	06101	3	2017	Rancagua	301853.9	2017	6101	241774	72980418081	128	0.0005294	06101	38637296
6101101001	06101	336	2017	Rancagua	301853.9	2017	6101	241774	72980418081	3965	0.0163996	06101	1196850603
6101101002	06101	293	2017	Rancagua	301853.9	2017	6101	241774	72980418081	4110	0.0169993	06101	1240619414
6101101003	06101	213	2017	Rancagua	301853.9	2017	6101	241774	72980418081	4224	0.0174709	06101	1275030756
6101101004	06101	553	2017	Rancagua	301853.9	2017	6101	241774	72980418081	5803	0.0240018	06101	1751658020
6101102003	06101	1	2017	Rancagua	301853.9	2017	6101	241774	72980418081	37	0.0001530	06101	11168593
6101102007	06101	18	2017	Rancagua	301853.9	2017	6101	241774	72980418081	481	0.0019895	06101	145191712
6101102009	06101	5	2017	Rancagua	301853.9	2017	6101	241774	72980418081	88	0.0003640	06101	26563141
6101102015	06101	6	2017	Rancagua	301853.9	2017	6101	241774	72980418081	271	0.0011209	06101	81802399
6101111001	06101	427	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1303	0.0053893	06101	393315595
6101111002	06101	268	2017	Rancagua	301853.9	2017	6101	241774	72980418081	5050	0.0208873	06101	1524362054
6101111003	06101	84	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2031	0.0084004	06101	613065214
6101111004	06101	303	2017	Rancagua	301853.9	2017	6101	241774	72980418081	3455	0.0142902	06101	1042905128
6101111005	06101	367	2017	Rancagua	301853.9	2017	6101	241774	72980418081	5041	0.0208501	06101	1521645369
6101111006	06101	23	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1279	0.0052901	06101	386071102
6101112015	06101	16	2017	Rancagua	301853.9	2017	6101	241774	72980418081	74	0.0003061	06101	22337187
6101122002	06101	4	2017	Rancagua	301853.9	2017	6101	241774	72980418081	84	0.0003474	06101	25355725
6101122008	06101	5	2017	Rancagua	301853.9	2017	6101	241774	72980418081	88	0.0003640	06101	26563141
6101122901	06101	10	2017	Rancagua	301853.9	2017	6101	241774	72980418081	45	0.0001861	06101	13583424
6101131001	06101	5	2017	Rancagua	301853.9	2017	6101	241774	72980418081	175	0.0007238	06101	52824428
6101132005	06101	7	2017	Rancagua	301853.9	2017	6101	241774	72980418081	345	0.0014270	06101	104139586
6101132008	06101	3	2017	Rancagua	301853.9	2017	6101	241774	72980418081	13	0.0000538	06101	3924100
6101132013	06101	31	2017	Rancagua	301853.9	2017	6101	241774	72980418081	432	0.0017868	06101	130400873
6101132014	06101	74	2017	Rancagua	301853.9	2017	6101	241774	72980418081	825	0.0034123	06101	249029445
6101141001	06101	484	2017	Rancagua	301853.9	2017	6101	241774	72980418081	7033	0.0290891	06101	2122938283
6101141002	06101	11	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1110	0.0045911	06101	335057798
6101141003	06101	29	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1183	0.0048930	06101	357093131
6101142010	06101	2	2017	Rancagua	301853.9	2017	6101	241774	72980418081	43	0.0001779	06101	12979717
6101142011	06101	19	2017	Rancagua	301853.9	2017	6101	241774	72980418081	253	0.0010464	06101	76369030
6101142013	06101	10	2017	Rancagua	301853.9	2017	6101	241774	72980418081	189	0.0007817	06101	57050382
6101151001	06101	1052	2017	Rancagua	301853.9	2017	6101	241774	72980418081	9988	0.0413113	06101	3014916475
6101151002	06101	52	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1136	0.0046986	06101	342905999
6101151003	06101	138	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1480	0.0061214	06101	446743731
6101151004	06101	294	2017	Rancagua	301853.9	2017	6101	241774	72980418081	5748	0.0237743	06101	1735056057
6101151005	06101	134	2017	Rancagua	301853.9	2017	6101	241774	72980418081	3234	0.0133761	06101	976195422
6101151006	06101	135	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2829	0.0117010	06101	853944604
6101151007	06101	447	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2757	0.0114032	06101	832211125
6101151008	06101	334	2017	Rancagua	301853.9	2017	6101	241774	72980418081	3771	0.0155972	06101	1138290952
6101151009	06101	1673	2017	Rancagua	301853.9	2017	6101	241774	72980418081	6283	0.0259871	06101	1896547879
6101151010	06101	750	2017	Rancagua	301853.9	2017	6101	241774	72980418081	4858	0.0200931	06101	1466406111
6101161001	06101	297	2017	Rancagua	301853.9	2017	6101	241774	72980418081	6794	0.0281006	06101	2050795207
6101161002	06101	270	2017	Rancagua	301853.9	2017	6101	241774	72980418081	6040	0.0249820	06101	1823197388
6101161003	06101	52	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2230	0.0092235	06101	673134135
6101161004	06101	189	2017	Rancagua	301853.9	2017	6101	241774	72980418081	6100	0.0252302	06101	1841308620
6101161005	06101	157	2017	Rancagua	301853.9	2017	6101	241774	72980418081	4455	0.0184263	06101	1344759000
6101161006	06101	80	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1457	0.0060263	06101	439801092
6101161007	06101	126	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1821	0.0075318	06101	549675901
6101171001	06101	220	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1666	0.0068907	06101	502888551
6101171002	06101	99	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1913	0.0079123	06101	577446457
6101171003	06101	646	2017	Rancagua	301853.9	2017	6101	241774	72980418081	3730	0.0154276	06101	1125914943
6101171004	06101	159	2017	Rancagua	301853.9	2017	6101	241774	72980418081	4000	0.0165444	06101	1207415489
6101171005	06101	769	2017	Rancagua	301853.9	2017	6101	241774	72980418081	5138	0.0212513	06101	1550925195
6101171006	06101	86	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1713	0.0070851	06101	517075683
6101182001	06101	42	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1112	0.0045993	06101	335661506
6101182002	06101	9	2017	Rancagua	301853.9	2017	6101	241774	72980418081	397	0.0016420	06101	119835987
6101182005	06101	20	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2002	0.0082805	06101	604311452
6101182006	06101	4	2017	Rancagua	301853.9	2017	6101	241774	72980418081	115	0.0004757	06101	34713195
6101182015	06101	29	2017	Rancagua	301853.9	2017	6101	241774	72980418081	569	0.0023534	06101	171754853
6101991999	06101	48	2017	Rancagua	301853.9	2017	6101	241774	72980418081	520	0.0021508	06101	156964014

7 Análisis de regresión

Aplicaremos un análisis de regresión donde:

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

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

7.1 Diagrama de dispersión

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

7.2 Outliers

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

7.3 Modelo lineal

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

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

## 
## Call:
## lm(formula = multi_pob ~ (Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.730e+09 -1.164e+08 -8.386e+07  8.303e+06  2.521e+09 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 125228673    9312263   13.45   <2e-16 ***
## Freq.x        2093124      62558   33.46   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 273400000 on 1017 degrees of freedom
## Multiple R-squared:  0.524,  Adjusted R-squared:  0.5235 
## F-statistic:  1120 on 1 and 1017 DF,  p-value: < 2.2e-16

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

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

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

8 Modelos alternativos

8.1 Modelo cuadrático

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

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

## 
## Call:
## lm(formula = multi_pob ~ (Freq.x^2), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.730e+09 -1.164e+08 -8.386e+07  8.303e+06  2.521e+09 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 125228673    9312263   13.45   <2e-16 ***
## Freq.x        2093124      62558   33.46   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 273400000 on 1017 degrees of freedom
## Multiple R-squared:  0.524,  Adjusted R-squared:  0.5235 
## F-statistic:  1120 on 1 and 1017 DF,  p-value: < 2.2e-16

8.2 Modelo cúbico

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

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

## 
## Call:
## lm(formula = multi_pob ~ (Freq.x^3), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.730e+09 -1.164e+08 -8.386e+07  8.303e+06  2.521e+09 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 125228673    9312263   13.45   <2e-16 ***
## Freq.x        2093124      62558   33.46   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 273400000 on 1017 degrees of freedom
## Multiple R-squared:  0.524,  Adjusted R-squared:  0.5235 
## F-statistic:  1120 on 1 and 1017 DF,  p-value: < 2.2e-16

8.3 Modelo logarítmico

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

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

## 
## Call:
## lm(formula = multi_pob ~ log(Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -508171141 -157250373  -42175841  115655128 2660793482 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)    
## (Intercept) -259597837   15675514  -16.56   <2e-16 ***
## log(Freq.x)  186939819    4964783   37.65   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 256100000 on 1017 degrees of freedom
## Multiple R-squared:  0.5823, Adjusted R-squared:  0.5819 
## F-statistic:  1418 on 1 and 1017 DF,  p-value: < 2.2e-16

8.4 Modelo exponencial

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

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

8.5 Modelo con raíz cuadrada

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

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

## 
## Call:
## lm(formula = multi_pob ~ sqrt(Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -908400277  -74096819  -14941731   36012051 2341552007 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  -95542206    9689003  -9.861   <2e-16 ***
## sqrt(Freq.x)  62511925    1268009  49.299   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 215300000 on 1017 degrees of freedom
## Multiple R-squared:  0.705,  Adjusted R-squared:  0.7047 
## F-statistic:  2430 on 1 and 1017 DF,  p-value: < 2.2e-16

8.6 Modelo raíz-raíz

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

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

## 
## Call:
## lm(formula = sqrt(multi_pob) ~ sqrt(Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -25889.9  -2679.2   -691.3   2080.5  22846.4 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept)   3349.79     222.51   15.05   <2e-16 ***
## sqrt(Freq.x)  1615.79      29.12   55.49   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 4944 on 1017 degrees of freedom
## Multiple R-squared:  0.7517, Adjusted R-squared:  0.7515 
## F-statistic:  3079 on 1 and 1017 DF,  p-value: < 2.2e-16

8.7 Modelo log-raíz

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

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

## 
## Call:
## lm(formula = log(multi_pob) ~ sqrt(Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -5.1118 -0.6336  0.2176  0.7349  2.2615 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  16.912542   0.046260  365.60   <2e-16 ***
## sqrt(Freq.x)  0.233790   0.006054   38.62   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.028 on 1017 degrees of freedom
## Multiple R-squared:  0.5945, Adjusted R-squared:  0.5941 
## F-statistic:  1491 on 1 and 1017 DF,  p-value: < 2.2e-16

8.8 Modelo raíz-log

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

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

## 
## Call:
## lm(formula = sqrt(multi_pob) ~ log(Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -12150.3  -3228.6   -539.3   2674.5  29271.2 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  -2376.3      291.4  -8.155 1.02e-15 ***
## log(Freq.x)   5379.7       92.3  58.288  < 2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 4762 on 1017 degrees of freedom
## Multiple R-squared:  0.7696, Adjusted R-squared:  0.7694 
## F-statistic:  3398 on 1 and 1017 DF,  p-value: < 2.2e-16

8.9 Modelo log-log

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

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

## 
## Call:
## lm(formula = log(multi_pob) ~ log(Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.4949 -0.4516  0.0709  0.4590  2.1394 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 15.76975    0.04379  360.09   <2e-16 ***
## log(Freq.x)  0.89426    0.01387   64.47   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.7156 on 1017 degrees of freedom
## Multiple R-squared:  0.8034, Adjusted R-squared:  0.8032 
## F-statistic:  4157 on 1 and 1017 DF,  p-value: < 2.2e-16

9 Modelo log-log (log-log)

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

9.1 Diagrama de dispersión sobre log-log

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

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

9.2 Modelo log-log

Observemos nuevamente el resultado sobre log-log.

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

## 
## Call:
## lm(formula = log(multi_pob) ~ log(Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.4949 -0.4516  0.0709  0.4590  2.1394 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 15.76975    0.04379  360.09   <2e-16 ***
## log(Freq.x)  0.89426    0.01387   64.47   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.7156 on 1017 degrees of freedom
## Multiple R-squared:  0.8034, Adjusted R-squared:  0.8032 
## F-statistic:  4157 on 1 and 1017 DF,  p-value: < 2.2e-16

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

9.3 Análisis de residuos

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

9.4 Ecuación del modelo

\[ \hat Y = e^{15.76975+0.89426 \cdot ln{X}} \]

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

Esta nueva variable se llamará: est_ing

h_y_m_comuna_corr_01$est_ing <- exp(15.76975+0.89426 * log(h_y_m_comuna_corr_01$Freq.x))


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

zona	código.x	Freq.x	anio	comuna.x	promedio_i	año	comuna.y	personas	Ingresos_expandidos	Freq.y	p_poblacional	código.y	multi_pob	est_ing
6101011001	06101	298	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2931	0.0121229	06101	884733699	1151616934
6101021001	06101	140	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1326	0.0054845	06101	400258234	586019224
6101031001	06101	78	2017	Rancagua	301853.9	2017	6101	241774	72980418081	893	0.0036935	06101	269555508	347328104
6101041001	06101	128	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1599	0.0066136	06101	482664342	540890051
6101041002	06101	553	2017	Rancagua	301853.9	2017	6101	241774	72980418081	3616	0.0149561	06101	1091503602	2001818884
6101051001	06101	118	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2105	0.0087065	06101	635402401	502940501
6101051002	06101	181	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1634	0.0067584	06101	493229227	737338733
6101051003	06101	133	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1810	0.0074863	06101	546355509	559745969
6101051004	06101	108	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1724	0.0071306	06101	520396076	464648922
6101051005	06101	77	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1297	0.0053645	06101	391504472	343343320
6101061001	06101	604	2017	Rancagua	301853.9	2017	6101	241774	72980418081	3575	0.0147865	06101	1079127593	2166134896
6101061002	06101	101	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1868	0.0077262	06101	563863033	437622696
6101061003	06101	187	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1945	0.0080447	06101	587105781	759158539
6101061004	06101	136	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2013	0.0083260	06101	607631845	571023406
6101061005	06101	166	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1941	0.0080282	06101	585898366	682447528
6101061006	06101	72	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1440	0.0059560	06101	434669576	323335630
6101061007	06101	65	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1880	0.0077759	06101	567485280	295074245
6101061008	06101	100	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1255	0.0051908	06101	378826610	433745923
6101061009	06101	74	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1458	0.0060304	06101	440102946	331355790
6101071001	06101	75	2017	Rancagua	301853.9	2017	6101	241774	72980418081	3085	0.0127599	06101	931219196	335357244
6101071002	06101	92	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1951	0.0080695	06101	588916905	402580105
6101071003	06101	61	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1805	0.0074656	06101	544846239	278781830
6101071004	06101	143	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2369	0.0097984	06101	715091823	597236320
6101071005	06101	118	2017	Rancagua	301853.9	2017	6101	241774	72980418081	411	0.0016999	06101	124061941	502940501
6101071006	06101	78	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1821	0.0075318	06101	549675901	347328104
6101071007	06101	41	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1281	0.0052983	06101	386674810	195417520
6101081001	06101	78	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1438	0.0059477	06101	434065868	347328104
6101081002	06101	208	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2053	0.0084914	06101	619705999	834962025
6101081003	06101	559	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2627	0.0108655	06101	792970122	2021230715
6101081004	06101	598	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2379	0.0098398	06101	718110362	2146882158
6101081005	06101	305	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2188	0.0090498	06101	660456272	1175778137
6101081006	06101	235	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2502	0.0103485	06101	755238388	931250572
6101081007	06101	707	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2234	0.0092400	06101	674341550	2493659839
6101091001	06101	31	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2303	0.0095254	06101	695169468	152188037
6101091002	06101	60	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1991	0.0082350	06101	600991059	274691324
6101091003	06101	357	2017	Rancagua	301853.9	2017	6101	241774	72980418081	4641	0.0191956	06101	1400903821	1353519400
6101091004	06101	91	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1903	0.0078710	06101	574427919	398664681
6101091005	06101	104	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2187	0.0090456	06101	660154418	449228851
6101091006	06101	89	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1472	0.0060883	06101	444328900	390820120
6101091007	06101	426	2017	Rancagua	301853.9	2017	6101	241774	72980418081	8109	0.0335396	06101	2447733049	1585226173
6101091008	06101	423	2017	Rancagua	301853.9	2017	6101	241774	72980418081	11700	0.0483923	06101	3531690304	1575239317
6101092004	06101	3	2017	Rancagua	301853.9	2017	6101	241774	72980418081	128	0.0005294	06101	38637296	18853234
6101101001	06101	336	2017	Rancagua	301853.9	2017	6101	241774	72980418081	3965	0.0163996	06101	1196850603	1282093116
6101101002	06101	293	2017	Rancagua	301853.9	2017	6101	241774	72980418081	4110	0.0169993	06101	1240619414	1134322232
6101101003	06101	213	2017	Rancagua	301853.9	2017	6101	241774	72980418081	4224	0.0174709	06101	1275030756	852888287
6101101004	06101	553	2017	Rancagua	301853.9	2017	6101	241774	72980418081	5803	0.0240018	06101	1751658020	2001818884
6101102003	06101	1	2017	Rancagua	301853.9	2017	6101	241774	72980418081	37	0.0001530	06101	11168593	7058549
6101102007	06101	18	2017	Rancagua	301853.9	2017	6101	241774	72980418081	481	0.0019895	06101	145191712	93595592
6101102009	06101	5	2017	Rancagua	301853.9	2017	6101	241774	72980418081	88	0.0003640	06101	26563141	29769828
6101102015	06101	6	2017	Rancagua	301853.9	2017	6101	241774	72980418081	271	0.0011209	06101	81802399	35041682
6101111001	06101	427	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1303	0.0053893	06101	393315595	1588553470
6101111002	06101	268	2017	Rancagua	301853.9	2017	6101	241774	72980418081	5050	0.0208873	06101	1524362054	1047367822
6101111003	06101	84	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2031	0.0084004	06101	613065214	371126017
6101111004	06101	303	2017	Rancagua	301853.9	2017	6101	241774	72980418081	3455	0.0142902	06101	1042905128	1168880978
6101111005	06101	367	2017	Rancagua	301853.9	2017	6101	241774	72980418081	5041	0.0208501	06101	1521645369	1387374413
6101111006	06101	23	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1279	0.0052901	06101	386071102	116534399
6101112015	06101	16	2017	Rancagua	301853.9	2017	6101	241774	72980418081	74	0.0003061	06101	22337187	84238717
6101122002	06101	4	2017	Rancagua	301853.9	2017	6101	241774	72980418081	84	0.0003474	06101	25355725	24384484
6101122008	06101	5	2017	Rancagua	301853.9	2017	6101	241774	72980418081	88	0.0003640	06101	26563141	29769828
6101122901	06101	10	2017	Rancagua	301853.9	2017	6101	241774	72980418081	45	0.0001861	06101	13583424	55331877
6101131001	06101	5	2017	Rancagua	301853.9	2017	6101	241774	72980418081	175	0.0007238	06101	52824428	29769828
6101132005	06101	7	2017	Rancagua	301853.9	2017	6101	241774	72980418081	345	0.0014270	06101	104139586	40220992
6101132008	06101	3	2017	Rancagua	301853.9	2017	6101	241774	72980418081	13	0.0000538	06101	3924100	18853234
6101132013	06101	31	2017	Rancagua	301853.9	2017	6101	241774	72980418081	432	0.0017868	06101	130400873	152188037
6101132014	06101	74	2017	Rancagua	301853.9	2017	6101	241774	72980418081	825	0.0034123	06101	249029445	331355790
6101141001	06101	484	2017	Rancagua	301853.9	2017	6101	241774	72980418081	7033	0.0290891	06101	2122938283	1776909131
6101141002	06101	11	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1110	0.0045911	06101	335057798	60254742
6101141003	06101	29	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1183	0.0048930	06101	357093131	143376984
6101142010	06101	2	2017	Rancagua	301853.9	2017	6101	241774	72980418081	43	0.0001779	06101	12979717	13119416
6101142011	06101	19	2017	Rancagua	301853.9	2017	6101	241774	72980418081	253	0.0010464	06101	76369030	98232139
6101142013	06101	10	2017	Rancagua	301853.9	2017	6101	241774	72980418081	189	0.0007817	06101	57050382	55331877
6101151001	06101	1052	2017	Rancagua	301853.9	2017	6101	241774	72980418081	9988	0.0413113	06101	3014916475	3557813687
6101151002	06101	52	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1136	0.0046986	06101	342905999	241695495
6101151003	06101	138	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1480	0.0061214	06101	446743731	578527060
6101151004	06101	294	2017	Rancagua	301853.9	2017	6101	241774	72980418081	5748	0.0237743	06101	1735056057	1137783653
6101151005	06101	134	2017	Rancagua	301853.9	2017	6101	241774	72980418081	3234	0.0133761	06101	976195422	563508074
6101151006	06101	135	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2829	0.0117010	06101	853944604	567267212
6101151007	06101	447	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2757	0.0114032	06101	832211125	1654929173
6101151008	06101	334	2017	Rancagua	301853.9	2017	6101	241774	72980418081	3771	0.0155972	06101	1138290952	1275266412
6101151009	06101	1673	2017	Rancagua	301853.9	2017	6101	241774	72980418081	6283	0.0259871	06101	1896547879	5387147742
6101151010	06101	750	2017	Rancagua	301853.9	2017	6101	241774	72980418081	4858	0.0200931	06101	1466406111	2628861411
6101161001	06101	297	2017	Rancagua	301853.9	2017	6101	241774	72980418081	6794	0.0281006	06101	2050795207	1148160464
6101161002	06101	270	2017	Rancagua	301853.9	2017	6101	241774	72980418081	6040	0.0249820	06101	1823197388	1054354767
6101161003	06101	52	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2230	0.0092235	06101	673134135	241695495
6101161004	06101	189	2017	Rancagua	301853.9	2017	6101	241774	72980418081	6100	0.0252302	06101	1841308620	766415252
6101161005	06101	157	2017	Rancagua	301853.9	2017	6101	241774	72980418081	4455	0.0184263	06101	1344759000	649262963
6101161006	06101	80	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1457	0.0060263	06101	439801092	355281552
6101161007	06101	126	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1821	0.0075318	06101	549675901	533326016
6101171001	06101	220	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1666	0.0068907	06101	502888551	877910640
6101171002	06101	99	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1913	0.0079123	06101	577446457	429865049
6101171003	06101	646	2017	Rancagua	301853.9	2017	6101	241774	72980418081	3730	0.0154276	06101	1125914943	2300350097
6101171004	06101	159	2017	Rancagua	301853.9	2017	6101	241774	72980418081	4000	0.0165444	06101	1207415489	656654309
6101171005	06101	769	2017	Rancagua	301853.9	2017	6101	241774	72980418081	5138	0.0212513	06101	1550925195	2688338147
6101171006	06101	86	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1713	0.0070851	06101	517075683	379018136
6101182001	06101	42	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1112	0.0045993	06101	335661506	199674367
6101182002	06101	9	2017	Rancagua	301853.9	2017	6101	241774	72980418081	397	0.0016420	06101	119835987	50356590
6101182005	06101	20	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2002	0.0082805	06101	604311452	102842942
6101182006	06101	4	2017	Rancagua	301853.9	2017	6101	241774	72980418081	115	0.0004757	06101	34713195	24384484
6101182015	06101	29	2017	Rancagua	301853.9	2017	6101	241774	72980418081	569	0.0023534	06101	171754853	143376984
6101991999	06101	48	2017	Rancagua	301853.9	2017	6101	241774	72980418081	520	0.0021508	06101	156964014	224999833

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

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

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

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

zona	código.x	Freq.x	anio	comuna.x	promedio_i	año	comuna.y	personas	Ingresos_expandidos	Freq.y	p_poblacional	código.y	multi_pob	est_ing	ing_medio_zona
6101011001	06101	298	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2931	0.0121229	06101	884733699	1151616934	392909.22
6101021001	06101	140	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1326	0.0054845	06101	400258234	586019224	441945.12
6101031001	06101	78	2017	Rancagua	301853.9	2017	6101	241774	72980418081	893	0.0036935	06101	269555508	347328104	388945.25
6101041001	06101	128	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1599	0.0066136	06101	482664342	540890051	338267.70
6101041002	06101	553	2017	Rancagua	301853.9	2017	6101	241774	72980418081	3616	0.0149561	06101	1091503602	2001818884	553600.36
6101051001	06101	118	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2105	0.0087065	06101	635402401	502940501	238926.60
6101051002	06101	181	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1634	0.0067584	06101	493229227	737338733	451247.69
6101051003	06101	133	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1810	0.0074863	06101	546355509	559745969	309251.92
6101051004	06101	108	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1724	0.0071306	06101	520396076	464648922	269517.94
6101051005	06101	77	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1297	0.0053645	06101	391504472	343343320	264721.14
6101061001	06101	604	2017	Rancagua	301853.9	2017	6101	241774	72980418081	3575	0.0147865	06101	1079127593	2166134896	605911.86
6101061002	06101	101	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1868	0.0077262	06101	563863033	437622696	234273.39
6101061003	06101	187	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1945	0.0080447	06101	587105781	759158539	390312.87
6101061004	06101	136	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2013	0.0083260	06101	607631845	571023406	283667.86
6101061005	06101	166	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1941	0.0080282	06101	585898366	682447528	351595.84
6101061006	06101	72	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1440	0.0059560	06101	434669576	323335630	224538.63
6101061007	06101	65	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1880	0.0077759	06101	567485280	295074245	156954.39
6101061008	06101	100	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1255	0.0051908	06101	378826610	433745923	345614.28
6101061009	06101	74	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1458	0.0060304	06101	440102946	331355790	227267.35
6101071001	06101	75	2017	Rancagua	301853.9	2017	6101	241774	72980418081	3085	0.0127599	06101	931219196	335357244	108705.75
6101071002	06101	92	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1951	0.0080695	06101	588916905	402580105	206345.52
6101071003	06101	61	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1805	0.0074656	06101	544846239	278781830	154449.77
6101071004	06101	143	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2369	0.0097984	06101	715091823	597236320	252104.82
6101071005	06101	118	2017	Rancagua	301853.9	2017	6101	241774	72980418081	411	0.0016999	06101	124061941	502940501	1223699.52
6101071006	06101	78	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1821	0.0075318	06101	549675901	347328104	190734.82
6101071007	06101	41	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1281	0.0052983	06101	386674810	195417520	152550.76
6101081001	06101	78	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1438	0.0059477	06101	434065868	347328104	241535.54
6101081002	06101	208	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2053	0.0084914	06101	619705999	834962025	406703.37
6101081003	06101	559	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2627	0.0108655	06101	792970122	2021230715	769406.44
6101081004	06101	598	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2379	0.0098398	06101	718110362	2146882158	902430.50
6101081005	06101	305	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2188	0.0090498	06101	660456272	1175778137	537375.75
6101081006	06101	235	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2502	0.0103485	06101	755238388	931250572	372202.47
6101081007	06101	707	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2234	0.0092400	06101	674341550	2493659839	1116230.90
6101091001	06101	31	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2303	0.0095254	06101	695169468	152188037	66082.52
6101091002	06101	60	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1991	0.0082350	06101	600991059	274691324	137966.51
6101091003	06101	357	2017	Rancagua	301853.9	2017	6101	241774	72980418081	4641	0.0191956	06101	1400903821	1353519400	291643.91
6101091004	06101	91	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1903	0.0078710	06101	574427919	398664681	209492.74
6101091005	06101	104	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2187	0.0090456	06101	660154418	449228851	205408.71
6101091006	06101	89	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1472	0.0060883	06101	444328900	390820120	265502.80
6101091007	06101	426	2017	Rancagua	301853.9	2017	6101	241774	72980418081	8109	0.0335396	06101	2447733049	1585226173	195489.72
6101091008	06101	423	2017	Rancagua	301853.9	2017	6101	241774	72980418081	11700	0.0483923	06101	3531690304	1575239317	134635.84
6101092004	06101	3	2017	Rancagua	301853.9	2017	6101	241774	72980418081	128	0.0005294	06101	38637296	18853234	147290.89
6101101001	06101	336	2017	Rancagua	301853.9	2017	6101	241774	72980418081	3965	0.0163996	06101	1196850603	1282093116	323352.61
6101101002	06101	293	2017	Rancagua	301853.9	2017	6101	241774	72980418081	4110	0.0169993	06101	1240619414	1134322232	275990.81
6101101003	06101	213	2017	Rancagua	301853.9	2017	6101	241774	72980418081	4224	0.0174709	06101	1275030756	852888287	201914.84
6101101004	06101	553	2017	Rancagua	301853.9	2017	6101	241774	72980418081	5803	0.0240018	06101	1751658020	2001818884	344962.76
6101102003	06101	1	2017	Rancagua	301853.9	2017	6101	241774	72980418081	37	0.0001530	06101	11168593	7058549	190771.58
6101102007	06101	18	2017	Rancagua	301853.9	2017	6101	241774	72980418081	481	0.0019895	06101	145191712	93595592	194585.43
6101102009	06101	5	2017	Rancagua	301853.9	2017	6101	241774	72980418081	88	0.0003640	06101	26563141	29769828	338293.50
6101102015	06101	6	2017	Rancagua	301853.9	2017	6101	241774	72980418081	271	0.0011209	06101	81802399	35041682	129305.10
6101111001	06101	427	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1303	0.0053893	06101	393315595	1588553470	1219150.78
6101111002	06101	268	2017	Rancagua	301853.9	2017	6101	241774	72980418081	5050	0.0208873	06101	1524362054	1047367822	207399.57
6101111003	06101	84	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2031	0.0084004	06101	613065214	371126017	182730.68
6101111004	06101	303	2017	Rancagua	301853.9	2017	6101	241774	72980418081	3455	0.0142902	06101	1042905128	1168880978	338315.77
6101111005	06101	367	2017	Rancagua	301853.9	2017	6101	241774	72980418081	5041	0.0208501	06101	1521645369	1387374413	275218.09
6101111006	06101	23	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1279	0.0052901	06101	386071102	116534399	91113.68
6101112015	06101	16	2017	Rancagua	301853.9	2017	6101	241774	72980418081	74	0.0003061	06101	22337187	84238717	1138361.04
6101122002	06101	4	2017	Rancagua	301853.9	2017	6101	241774	72980418081	84	0.0003474	06101	25355725	24384484	290291.48
6101122008	06101	5	2017	Rancagua	301853.9	2017	6101	241774	72980418081	88	0.0003640	06101	26563141	29769828	338293.50
6101122901	06101	10	2017	Rancagua	301853.9	2017	6101	241774	72980418081	45	0.0001861	06101	13583424	55331877	1229597.28
6101131001	06101	5	2017	Rancagua	301853.9	2017	6101	241774	72980418081	175	0.0007238	06101	52824428	29769828	170113.30
6101132005	06101	7	2017	Rancagua	301853.9	2017	6101	241774	72980418081	345	0.0014270	06101	104139586	40220992	116582.59
6101132008	06101	3	2017	Rancagua	301853.9	2017	6101	241774	72980418081	13	0.0000538	06101	3924100	18853234	1450248.77
6101132013	06101	31	2017	Rancagua	301853.9	2017	6101	241774	72980418081	432	0.0017868	06101	130400873	152188037	352287.12
6101132014	06101	74	2017	Rancagua	301853.9	2017	6101	241774	72980418081	825	0.0034123	06101	249029445	331355790	401643.38
6101141001	06101	484	2017	Rancagua	301853.9	2017	6101	241774	72980418081	7033	0.0290891	06101	2122938283	1776909131	252653.08
6101141002	06101	11	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1110	0.0045911	06101	335057798	60254742	54283.55
6101141003	06101	29	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1183	0.0048930	06101	357093131	143376984	121197.79
6101142010	06101	2	2017	Rancagua	301853.9	2017	6101	241774	72980418081	43	0.0001779	06101	12979717	13119416	305102.69
6101142011	06101	19	2017	Rancagua	301853.9	2017	6101	241774	72980418081	253	0.0010464	06101	76369030	98232139	388269.32
6101142013	06101	10	2017	Rancagua	301853.9	2017	6101	241774	72980418081	189	0.0007817	06101	57050382	55331877	292761.26
6101151001	06101	1052	2017	Rancagua	301853.9	2017	6101	241774	72980418081	9988	0.0413113	06101	3014916475	3557813687	356208.82
6101151002	06101	52	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1136	0.0046986	06101	342905999	241695495	212760.12
6101151003	06101	138	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1480	0.0061214	06101	446743731	578527060	390896.66
6101151004	06101	294	2017	Rancagua	301853.9	2017	6101	241774	72980418081	5748	0.0237743	06101	1735056057	1137783653	197944.27
6101151005	06101	134	2017	Rancagua	301853.9	2017	6101	241774	72980418081	3234	0.0133761	06101	976195422	563508074	174244.92
6101151006	06101	135	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2829	0.0117010	06101	853944604	567267212	200518.63
6101151007	06101	447	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2757	0.0114032	06101	832211125	1654929173	600264.48
6101151008	06101	334	2017	Rancagua	301853.9	2017	6101	241774	72980418081	3771	0.0155972	06101	1138290952	1275266412	338177.25
6101151009	06101	1673	2017	Rancagua	301853.9	2017	6101	241774	72980418081	6283	0.0259871	06101	1896547879	5387147742	857416.48
6101151010	06101	750	2017	Rancagua	301853.9	2017	6101	241774	72980418081	4858	0.0200931	06101	1466406111	2628861411	541140.68
6101161001	06101	297	2017	Rancagua	301853.9	2017	6101	241774	72980418081	6794	0.0281006	06101	2050795207	1148160464	168996.24
6101161002	06101	270	2017	Rancagua	301853.9	2017	6101	241774	72980418081	6040	0.0249820	06101	1823197388	1054354767	174562.05
6101161003	06101	52	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2230	0.0092235	06101	673134135	241695495	108383.63
6101161004	06101	189	2017	Rancagua	301853.9	2017	6101	241774	72980418081	6100	0.0252302	06101	1841308620	766415252	125641.84
6101161005	06101	157	2017	Rancagua	301853.9	2017	6101	241774	72980418081	4455	0.0184263	06101	1344759000	649262963	145738.04
6101161006	06101	80	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1457	0.0060263	06101	439801092	355281552	243844.58
6101161007	06101	126	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1821	0.0075318	06101	549675901	533326016	292875.35
6101171001	06101	220	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1666	0.0068907	06101	502888551	877910640	526957.17
6101171002	06101	99	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1913	0.0079123	06101	577446457	429865049	224707.29
6101171003	06101	646	2017	Rancagua	301853.9	2017	6101	241774	72980418081	3730	0.0154276	06101	1125914943	2300350097	616715.84
6101171004	06101	159	2017	Rancagua	301853.9	2017	6101	241774	72980418081	4000	0.0165444	06101	1207415489	656654309	164163.58
6101171005	06101	769	2017	Rancagua	301853.9	2017	6101	241774	72980418081	5138	0.0212513	06101	1550925195	2688338147	523226.58
6101171006	06101	86	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1713	0.0070851	06101	517075683	379018136	221259.86
6101182001	06101	42	2017	Rancagua	301853.9	2017	6101	241774	72980418081	1112	0.0045993	06101	335661506	199674367	179563.28
6101182002	06101	9	2017	Rancagua	301853.9	2017	6101	241774	72980418081	397	0.0016420	06101	119835987	50356590	126842.80
6101182005	06101	20	2017	Rancagua	301853.9	2017	6101	241774	72980418081	2002	0.0082805	06101	604311452	102842942	51370.10
6101182006	06101	4	2017	Rancagua	301853.9	2017	6101	241774	72980418081	115	0.0004757	06101	34713195	24384484	212038.99
6101182015	06101	29	2017	Rancagua	301853.9	2017	6101	241774	72980418081	569	0.0023534	06101	171754853	143376984	251980.64
6101991999	06101	48	2017	Rancagua	301853.9	2017	6101	241774	72980418081	520	0.0021508	06101	156964014	224999833	432691.99

Guardamos:

saveRDS(h_y_m_comuna_corr_01, "casen_censo_region_06.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