library(haven)
EHPM_2019 <- read_sav("C:/Users/johan/OneDrive/Escritorio/prueba/EHPM 2019.sav")Se seleccionan únicamente las muestras que actualmente se encuentran estudiando y están cursand parvularia (1), básica (2) o educación media (3). Es decir, estudiantes menores de 18 años (r204). Además, se seleccionan únicamente los estudiantes que asisten a un centro escolar público (r210a)
Posteriormente, se muestran las columnas sobre el nivel que cursan actualmente (r204), área geográfica (area), condición de pobreza del hogar (pobreza), si el hogar tiene internet (r3243a) y/o computadora (r326609a)
library(dplyr)
library(tidyverse)
library(knitr)
library(kableExtra)
BD2019 <-EHPM_2019 %>%
filter(r204%in% 1:3, r210a == 1) %>%
select(r204, area, pobreza, r3243a, r32609a)| pobreza | total | Con acceso a internet | Sin acceso a internet | Con acceso a una computadora | Sin acceso a una computadora |
|---|---|---|---|---|---|
| Pobreza extrema | 1136 | 42 | 1094 | 11 | 1125 |
| Pobreza relativa | 4170 | 378 | 3792 | 177 | 3993 |
| No pobre | 8697 | 1707 | 6990 | 1298 | 7399 |
| Note: | |||||
| Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2019 |
# Cálculo de los porcentajes
segun_pobreza_porcentaje <- segun_pobreza %>%
mutate(
`Porcentaje con acceso a internet` = round((`Con acceso a internet` / total) * 100,2),
`Porcentaje sin acceso a internet` = round((`Sin acceso a internet` / total) * 100,2),
`Porcentaje con acceso a una computadora` = round(( `Con acceso a una computadora` / total) * 100,2),
`Porcentaje sin acceso a una computadora` = round(( `Sin acceso a una computadora` / total) * 100,2),
)%>%
select(pobreza, total, `Porcentaje con acceso a internet`, `Porcentaje sin acceso a internet`,`Porcentaje con acceso a internet`, `Porcentaje con acceso a una computadora` , `Porcentaje sin acceso a una computadora` )
segun_pobreza_porcentaje %>%
kable(caption = "Tabla II: Porcentaje de acceso a internet y computadora de los estudiantes menores de 18 años según el nivel de pobreza del hogar durante 2019") %>%
kable_styling("hover", full_width = FALSE) %>%
row_spec(0, bold = TRUE, align = "c") %>%
kable_classic(html_font = "Arial", font_size = 12) %>%
footnote(general = "Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2019")| pobreza | total | Porcentaje con acceso a internet | Porcentaje sin acceso a internet | Porcentaje con acceso a una computadora | Porcentaje sin acceso a una computadora |
|---|---|---|---|---|---|
| Pobreza extrema | 1136 | 3.70 | 96.30 | 0.97 | 99.03 |
| Pobreza relativa | 4170 | 9.06 | 90.94 | 4.24 | 95.76 |
| No pobre | 8697 | 19.63 | 80.37 | 14.92 | 85.08 |
| Note: | |||||
| Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2019 |
ee2019 <- BD2019 %>%
mutate(area = as_factor(area))
# Cálculo del acceso a internet según el nivel de pobreza
segun_area <- ee2019 %>%
group_by(area) %>%
summarise(
total = n(),
con_internet = sum(r3243a == 1),
sin_internet = sum(r3243a == 2),
con_computadora = sum(r32609a == 1),
sin_computadora = sum(r32609a == 2)) %>%
rename(
`Con acceso a internet` = con_internet,
`Sin acceso a internet` = sin_internet,
`Con acceso a una computadora` = con_computadora,
`Sin acceso a una computadora` = sin_computadora
)
# Personalizar
segun_area %>%
kable(caption = "Tabla III: Acceso a internet y computadora de los estudiantes menores de 18 años según el área geográfica del hogar durante 2019") %>%
kable_styling("hover", full_width = FALSE) %>%
row_spec(0, bold = TRUE, align = "c") %>%
kable_classic(html_font = "Arial", font_size = 12) %>%
footnote(general = "Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2019")| area | total | Con acceso a internet | Sin acceso a internet | Con acceso a una computadora | Sin acceso a una computadora |
|---|---|---|---|---|---|
| Rural | 7762 | 403 | 7359 | 436 | 7326 |
| Urbano | 6241 | 1724 | 4517 | 1050 | 5191 |
| Note: | |||||
| Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2019 |
# Cálculo de los porcentajes
segun_area_porcentaje <- segun_area %>%
mutate(
`Porcentaje con acceso a internet` = round((`Con acceso a internet` / total) * 100,2),
`Porcentaje sin acceso a internet` = round((`Sin acceso a internet` / total) * 100,2),
`Porcentaje con acceso a una computadora` = round(( `Con acceso a una computadora` / total) * 100,2),
`Porcentaje sin acceso a una computadora` = round(( `Sin acceso a una computadora` / total) * 100,2),
)%>%
select(area, total, `Porcentaje con acceso a internet`, `Porcentaje sin acceso a internet`,`Porcentaje con acceso a internet`, `Porcentaje con acceso a una computadora` , `Porcentaje sin acceso a una computadora` )
segun_area_porcentaje %>%
kable(caption = "Tabla IV: Porcentaje de acceso a internet y computadoras de los estudiantes menores de 18 años según el área geográfica del hogar durante 2019") %>%
kable_styling("hover", full_width = FALSE) %>%
row_spec(0, bold = TRUE, align = "c") %>%
kable_classic(html_font = "Arial", font_size = 12) %>%
footnote(general = "Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2019")| area | total | Porcentaje con acceso a internet | Porcentaje sin acceso a internet | Porcentaje con acceso a una computadora | Porcentaje sin acceso a una computadora |
|---|---|---|---|---|---|
| Rural | 7762 | 5.19 | 94.81 | 5.62 | 94.38 |
| Urbano | 6241 | 27.62 | 72.38 | 16.82 | 83.18 |
| Note: | |||||
| Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2019 |
eee2019 <- BD2019 %>%
mutate(r204 = as_factor(r204))
# Cálculo del acceso a internet según el nivel de pobreza
segun_estudio <- eee2019 %>%
group_by(r204) %>%
summarise(
total = n(),
con_internet = sum(r3243a == 1),
sin_internet = sum(r3243a == 2),
con_computadora = sum(r32609a == 1),
sin_computadora = sum(r32609a == 2)) %>%
rename(
`Con acceso a internet` = con_internet,
`Sin acceso a internet` = sin_internet,
`Con acceso a una computadora` = con_computadora,
`Sin acceso a una computadora` = sin_computadora, `Nivel de estudio` = r204
)
# Personalizar
segun_estudio %>%
kable(caption = "Tabla V: Acceso a internet y computadora de los estudiantes menores de 18 años según su nivel de estudio durante 2019") %>%
kable_styling("hover", full_width = FALSE) %>%
row_spec(0, bold = TRUE, align = "c") %>%
kable_classic(html_font = "Arial", font_size = 12) %>%
footnote(general = "Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2019")| Nivel de estudio | total | Con acceso a internet | Sin acceso a internet | Con acceso a una computadora | Sin acceso a una computadora |
|---|---|---|---|---|---|
| Parvularia (1° a 3°) | 2074 | 266 | 1808 | 164 | 1910 |
| Básica (1° a 9°) | 9925 | 1388 | 8537 | 943 | 8982 |
| Media (10° a 13°) | 2004 | 473 | 1531 | 379 | 1625 |
| Note: | |||||
| Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2019 |
# Cálculo de los porcentajes
segun_estudio_porcentaje <- segun_estudio %>%
mutate(
`Porcentaje con acceso a internet` = round((`Con acceso a internet` / total) * 100,2),
`Porcentaje sin acceso a internet` = round((`Sin acceso a internet` / total) * 100,2),
`Porcentaje con acceso a una computadora` = round(( `Con acceso a una computadora` / total) * 100,2),
`Porcentaje sin acceso a una computadora` = round(( `Sin acceso a una computadora` / total) * 100,2),
)%>%
select(`Nivel de estudio`, total, `Porcentaje con acceso a internet`, `Porcentaje sin acceso a internet`,`Porcentaje con acceso a internet`, `Porcentaje con acceso a una computadora` , `Porcentaje sin acceso a una computadora` )
segun_estudio_porcentaje %>%
kable(caption = "Tabla VI: Porcentaje de acceso a internet y computadoras de los estudiantes menores de 18 años según su nivel de estudio durante 2019") %>%
kable_styling("hover", full_width = FALSE) %>%
row_spec(0, bold = TRUE, align = "c") %>%
kable_classic(html_font = "Arial", font_size = 12) %>%
footnote(general = "Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2019")| Nivel de estudio | total | Porcentaje con acceso a internet | Porcentaje sin acceso a internet | Porcentaje con acceso a una computadora | Porcentaje sin acceso a una computadora |
|---|---|---|---|---|---|
| Parvularia (1° a 3°) | 2074 | 12.83 | 87.17 | 7.91 | 92.09 |
| Básica (1° a 9°) | 9925 | 13.98 | 86.02 | 9.50 | 90.50 |
| Media (10° a 13°) | 2004 | 23.60 | 76.40 | 18.91 | 81.09 |
| Note: | |||||
| Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2019 |
library(haven)
EHPM_2020 <- read_sav("C:/Users/johan/OneDrive/Escritorio/prueba/EHPM 2020.sav")Se seleccionan únicamente las muestras que actualmente se encuentran estudiando y están cursand parvularia (1), básica (2) o educación media (3). Es decir, estudiantes menores de 18 años (r204). Además, se seleccionan únicamente los estudiantes que asisten a un centro escolar público (r210a)
Posteriormente, se muestran las columnas sobre el nivel que cursan actualmente (r204), área geográfica (area), condición de pobreza del hogar (pobreza), si el hogar tiene internet ( r3213a) y/o computadora (r32309a)
BD2020 <-EHPM_2020 %>%
filter(r204%in% 1:3, r210a == 1) %>%
select(r204, area, pobreza, r3213a,r32309a)| pobreza | total | Con acceso a internet | Sin acceso a internet | Con acceso a una computadora | Sin acceso a una computadora |
|---|---|---|---|---|---|
| Pobreza extrema | 937 | 86 | 851 | 32 | 905 |
| Pobreza relativa | 1860 | 253 | 1607 | 102 | 1758 |
| No pobre | 3978 | 877 | 3101 | 510 | 3468 |
| Note: | |||||
| Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2020 |
# Cálculo de los porcentajes
segun_pobreza_porcentaje2 <- segun_pobreza2 %>%
mutate(
`Porcentaje con acceso a internet` = round((`Con acceso a internet` / total) * 100,2),
`Porcentaje sin acceso a internet` = round((`Sin acceso a internet` / total) * 100,2),
`Porcentaje con acceso a una computadora` = round(( `Con acceso a una computadora` / total) * 100,2),
`Porcentaje sin acceso a una computadora` = round(( `Sin acceso a una computadora` / total) * 100,2),
)%>%
select(pobreza, total, `Porcentaje con acceso a internet`, `Porcentaje sin acceso a internet`,`Porcentaje con acceso a internet`, `Porcentaje con acceso a una computadora` , `Porcentaje sin acceso a una computadora` )
segun_pobreza_porcentaje2 %>%
kable(caption = "Tabla VIII: Porcentaje de acceso a internet y computadora de los estudiantes menores de 18 años según el nivel de pobreza del hogar durante 2020") %>%
kable_styling("hover", full_width = FALSE) %>%
row_spec(0, bold = TRUE, align = "c") %>%
kable_classic(html_font = "Arial", font_size = 12) %>%
footnote(general = "Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2020")| pobreza | total | Porcentaje con acceso a internet | Porcentaje sin acceso a internet | Porcentaje con acceso a una computadora | Porcentaje sin acceso a una computadora |
|---|---|---|---|---|---|
| Pobreza extrema | 937 | 9.18 | 90.82 | 3.42 | 96.58 |
| Pobreza relativa | 1860 | 13.60 | 86.40 | 5.48 | 94.52 |
| No pobre | 3978 | 22.05 | 77.95 | 12.82 | 87.18 |
| Note: | |||||
| Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2020 |
ee2020 <- BD2020 %>%
mutate(area = as_factor(area))
# Cálculo del acceso a internet según el nivel de pobreza
segun_area2 <- ee2020 %>%
group_by(area) %>%
summarise(
total = n(),
con_internet = sum(r3213a == 1),
sin_internet = sum(r3213a == 2),
con_computadora = sum(r32309a == 1),
sin_computadora = sum(r32309a == 2)) %>%
rename(
`Con acceso a internet` = con_internet,
`Sin acceso a internet` = sin_internet,
`Con acceso a una computadora` = con_computadora,
`Sin acceso a una computadora` = sin_computadora
)
# Personalizar
segun_area2 %>%
kable(caption = "Tabla IX: Acceso a internet y computadora de los estudiantes menores de 18 años según el área geográfica del hogar durante 2020") %>%
kable_styling("hover", full_width = FALSE) %>%
row_spec(0, bold = TRUE, align = "c") %>%
kable_classic(html_font = "Arial", font_size = 12) %>%
footnote(general = "Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2020")| area | total | Con acceso a internet | Sin acceso a internet | Con acceso a una computadora | Sin acceso a una computadora |
|---|---|---|---|---|---|
| Rural | 3768 | 256 | 3512 | 200 | 3568 |
| Urbano | 3007 | 960 | 2047 | 444 | 2563 |
| Note: | |||||
| Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2020 |
# Cálculo de los porcentajes
segun_area_porcentaje2 <- segun_area2 %>%
mutate(
`Porcentaje con acceso a internet` = round((`Con acceso a internet` / total) * 100,2),
`Porcentaje sin acceso a internet` = round((`Sin acceso a internet` / total) * 100,2),
`Porcentaje con acceso a una computadora` = round(( `Con acceso a una computadora` / total) * 100,2),
`Porcentaje sin acceso a una computadora` = round(( `Sin acceso a una computadora` / total) * 100,2),
)%>%
select(area, total, `Porcentaje con acceso a internet`, `Porcentaje sin acceso a internet`,`Porcentaje con acceso a internet`, `Porcentaje con acceso a una computadora` , `Porcentaje sin acceso a una computadora` )
segun_area_porcentaje2 %>%
kable(caption = "Tabla X: Porcentaje de acceso a internet y computadoras de los estudiantes menores de 18 años según el área geográfica del hogar durante 2020") %>%
kable_styling("hover", full_width = FALSE) %>%
row_spec(0, bold = TRUE, align = "c") %>%
kable_classic(html_font = "Arial", font_size = 12) %>%
footnote(general = "Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2020")| area | total | Porcentaje con acceso a internet | Porcentaje sin acceso a internet | Porcentaje con acceso a una computadora | Porcentaje sin acceso a una computadora |
|---|---|---|---|---|---|
| Rural | 3768 | 6.79 | 93.21 | 5.31 | 94.69 |
| Urbano | 3007 | 31.93 | 68.07 | 14.77 | 85.23 |
| Note: | |||||
| Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2020 |
eee2020 <- BD2020 %>%
mutate(r204 = as_factor(r204))
# Cálculo del acceso a internet según el nivel de pobreza
segun_estudio2 <- eee2020 %>%
group_by(r204) %>%
summarise(
total = n(),
con_internet = sum(r3213a == 1),
sin_internet = sum(r3213a == 2),
con_computadora = sum(r32309a == 1),
sin_computadora = sum(r32309a == 2)) %>%
rename(
`Con acceso a internet` = con_internet,
`Sin acceso a internet` = sin_internet,
`Con acceso a una computadora` = con_computadora,
`Sin acceso a una computadora` = sin_computadora, `Nivel de estudio` = r204
)
# Personalizar
segun_estudio2 %>%
kable(caption = "Tabla XI: Acceso a internet y computadora de los estudiantes menores de 18 años según su nivel de estudio durante 2020") %>%
kable_styling("hover", full_width = FALSE) %>%
row_spec(0, bold = TRUE, align = "c") %>%
kable_classic(html_font = "Arial", font_size = 12) %>%
footnote(general = "Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2020")| Nivel de estudio | total | Con acceso a internet | Sin acceso a internet | Con acceso a una computadora | Sin acceso a una computadora |
|---|---|---|---|---|---|
| Parvularia (1° a 3°) | 1004 | 165 | 839 | 82 | 922 |
| Básica (1° a 9°) | 4790 | 794 | 3996 | 388 | 4402 |
| Media (10° a 13°) | 981 | 257 | 724 | 174 | 807 |
| Note: | |||||
| Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2020 |
# Cálculo de los porcentajes
segun_estudio_porcentaje2 <- segun_estudio2 %>%
mutate(
`Porcentaje con acceso a internet` = round((`Con acceso a internet` / total) * 100,2),
`Porcentaje sin acceso a internet` = round((`Sin acceso a internet` / total) * 100,2),
`Porcentaje con acceso a una computadora` = round(( `Con acceso a una computadora` / total) * 100,2),
`Porcentaje sin acceso a una computadora` = round(( `Sin acceso a una computadora` / total) * 100,2),
)%>%
select(`Nivel de estudio`, total, `Porcentaje con acceso a internet`, `Porcentaje sin acceso a internet`,`Porcentaje con acceso a internet`, `Porcentaje con acceso a una computadora` , `Porcentaje sin acceso a una computadora` )
segun_estudio_porcentaje2 %>%
kable(caption = "Tabla XII: Porcentaje de acceso a internet y computadoras de los estudiantes menores de 18 años según su nivel de estudio durante 2020") %>%
kable_styling("hover", full_width = FALSE) %>%
row_spec(0, bold = TRUE, align = "c") %>%
kable_classic(html_font = "Arial", font_size = 12) %>%
footnote(general = "Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2020")| Nivel de estudio | total | Porcentaje con acceso a internet | Porcentaje sin acceso a internet | Porcentaje con acceso a una computadora | Porcentaje sin acceso a una computadora |
|---|---|---|---|---|---|
| Parvularia (1° a 3°) | 1004 | 16.43 | 83.57 | 8.17 | 91.83 |
| Básica (1° a 9°) | 4790 | 16.58 | 83.42 | 8.10 | 91.90 |
| Media (10° a 13°) | 981 | 26.20 | 73.80 | 17.74 | 82.26 |
| Note: | |||||
| Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2020 |
library(haven)
EHPM_2021 <- read_sav("C:/Users/johan/OneDrive/Escritorio/prueba/EHPM 2021.sav")Se seleccionan únicamente las muestras que actualmente se encuentran estudiando y están cursand parvularia (1), básica (2) o educación media (3). Es decir, estudiantes menores de 18 años (r204). Además, se seleccionan únicamente los estudiantes que asisten a un centro escolar público (r210a)
Posteriormente, se muestran las columnas sobre el nivel que cursan actualmente (r204), área geográfica (area), condición de pobreza del hogar (pobreza), si el hogar tiene internet ( r3213a) y/o computadora (r32309a)
BD2021 <-EHPM_2021%>%
filter(r204%in% 1:3, r210a == 1) %>%
select(r204, area, pobreza, r3213a,r32309a)| pobreza | total | Con acceso a internet | Sin acceso a internet | Con acceso a una computadora | Sin acceso a una computadora |
|---|---|---|---|---|---|
| Pobreza extrema | 1428 | 157 | 1271 | 140 | 1288 |
| Pobreza relativa | 3083 | 536 | 2547 | 373 | 2710 |
| No pobres | 7207 | 2188 | 5019 | 1829 | 5378 |
| Note: | |||||
| Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2021 |
# Cálculo de los porcentajes
segun_pobreza_porcentaje3 <- segun_pobreza3 %>%
mutate(
`Porcentaje con acceso a internet` = round((`Con acceso a internet` / total) * 100,2),
`Porcentaje sin acceso a internet` = round((`Sin acceso a internet` / total) * 100,2),
`Porcentaje con acceso a una computadora` = round(( `Con acceso a una computadora` / total) * 100,2),
`Porcentaje sin acceso a una computadora` = round(( `Sin acceso a una computadora` / total) * 100,2),
)%>%
select(pobreza, total, `Porcentaje con acceso a internet`, `Porcentaje sin acceso a internet`,`Porcentaje con acceso a internet`, `Porcentaje con acceso a una computadora` , `Porcentaje sin acceso a una computadora` )
segun_pobreza_porcentaje3 %>%
kable(caption = "Tabla XIV: Porcentaje de acceso a internet y computadora de los estudiantes menores de 18 años según el nivel de pobreza del hogar durante 2021") %>%
kable_styling("hover", full_width = FALSE) %>%
row_spec(0, bold = TRUE, align = "c") %>%
kable_classic(html_font = "Arial", font_size = 12) %>%
footnote(general = "Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2021")| pobreza | total | Porcentaje con acceso a internet | Porcentaje sin acceso a internet | Porcentaje con acceso a una computadora | Porcentaje sin acceso a una computadora |
|---|---|---|---|---|---|
| Pobreza extrema | 1428 | 10.99 | 89.01 | 9.80 | 90.20 |
| Pobreza relativa | 3083 | 17.39 | 82.61 | 12.10 | 87.90 |
| No pobres | 7207 | 30.36 | 69.64 | 25.38 | 74.62 |
| Note: | |||||
| Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2021 |
ee2021 <- BD2021 %>%
mutate(area = as_factor(area))
# Cálculo del acceso a internet según el nivel de pobreza
segun_area3 <- ee2021 %>%
group_by(area) %>%
summarise(
total = n(),
con_internet = sum(r3213a == 1),
sin_internet = sum(r3213a == 2),
con_computadora = sum(r32309a == 1),
sin_computadora = sum(r32309a == 2)) %>%
rename(
`Con acceso a internet` = con_internet,
`Sin acceso a internet` = sin_internet,
`Con acceso a una computadora` = con_computadora,
`Sin acceso a una computadora` = sin_computadora
)
# Personalizar
segun_area3 %>%
kable(caption = "Tabla XV: Acceso a internet y computadora de los estudiantes menores de 18 años según el área geográfica del hogar durante 2021") %>%
kable_styling("hover", full_width = FALSE) %>%
row_spec(0, bold = TRUE, align = "c") %>%
kable_classic(html_font = "Arial", font_size = 12) %>%
footnote(general = "Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2021")| area | total | Con acceso a internet | Sin acceso a internet | Con acceso a una computadora | Sin acceso a una computadora |
|---|---|---|---|---|---|
| Rural | 6057 | 604 | 5453 | 918 | 5139 |
| Urbano | 5661 | 2277 | 3384 | 1424 | 4237 |
| Note: | |||||
| Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2021 |
# Cálculo de los porcentajes
segun_area_porcentaje3 <- segun_area3 %>%
mutate(
`Porcentaje con acceso a internet` = round((`Con acceso a internet` / total) * 100,2),
`Porcentaje sin acceso a internet` = round((`Sin acceso a internet` / total) * 100,2),
`Porcentaje con acceso a una computadora` = round(( `Con acceso a una computadora` / total) * 100,2),
`Porcentaje sin acceso a una computadora` = round(( `Sin acceso a una computadora` / total) * 100,2),
)%>%
select(area, total, `Porcentaje con acceso a internet`, `Porcentaje sin acceso a internet`,`Porcentaje con acceso a internet`, `Porcentaje con acceso a una computadora` , `Porcentaje sin acceso a una computadora` )
segun_area_porcentaje3 %>%
kable(caption = "Tabla XVI: Porcentaje de acceso a internet y computadoras de los estudiantes menores de 18 años según el área geográfica del hogar durante 2020") %>%
kable_styling("hover", full_width = FALSE) %>%
row_spec(0, bold = TRUE, align = "c") %>%
kable_classic(html_font = "Arial", font_size = 12) %>%
footnote(general = "Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2020")| area | total | Porcentaje con acceso a internet | Porcentaje sin acceso a internet | Porcentaje con acceso a una computadora | Porcentaje sin acceso a una computadora |
|---|---|---|---|---|---|
| Rural | 6057 | 9.97 | 90.03 | 15.16 | 84.84 |
| Urbano | 5661 | 40.22 | 59.78 | 25.15 | 74.85 |
| Note: | |||||
| Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2020 |
eee2021 <- BD2021 %>%
mutate(r204 = as_factor(r204))
# Cálculo del acceso a internet según el nivel de pobreza
segun_estudio3 <- eee2021 %>%
group_by(r204) %>%
summarise(
total = n(),
con_internet = sum(r3213a == 1),
sin_internet = sum(r3213a == 2),
con_computadora = sum(r32309a == 1),
sin_computadora = sum(r32309a == 2)) %>%
rename(
`Con acceso a internet` = con_internet,
`Sin acceso a internet` = sin_internet,
`Con acceso a una computadora` = con_computadora,
`Sin acceso a una computadora` = sin_computadora, `Nivel de estudio` = r204
)
# Personalizar
segun_estudio3 %>%
kable(caption = "Tabla XVII: Acceso a internet y computadora de los estudiantes menores de 18 años según su nivel de estudio durante 2021") %>%
kable_styling("hover", full_width = FALSE) %>%
row_spec(0, bold = TRUE, align = "c") %>%
kable_classic(html_font = "Arial", font_size = 12) %>%
footnote(general = "Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2021")| Nivel de estudio | total | Con acceso a internet | Sin acceso a internet | Con acceso a una computadora | Sin acceso a una computadora |
|---|---|---|---|---|---|
| Parvularia (1° a 3°) | 1664 | 383 | 1281 | 232 | 1432 |
| Básica (1° a 9°) | 8443 | 1902 | 6541 | 1465 | 6978 |
| Media (10° a 13°) | 1611 | 596 | 1015 | 645 | 966 |
| Note: | |||||
| Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2021 |
# Cálculo de los porcentajes
segun_estudio_porcentaje3 <- segun_estudio3 %>%
mutate(
`Porcentaje con acceso a internet` = round((`Con acceso a internet` / total) * 100,2),
`Porcentaje sin acceso a internet` = round((`Sin acceso a internet` / total) * 100,2),
`Porcentaje con acceso a una computadora` = round(( `Con acceso a una computadora` / total) * 100,2),
`Porcentaje sin acceso a una computadora` = round(( `Sin acceso a una computadora` / total) * 100,2),
)%>%
select(`Nivel de estudio`, total, `Porcentaje con acceso a internet`, `Porcentaje sin acceso a internet`,`Porcentaje con acceso a internet`, `Porcentaje con acceso a una computadora` , `Porcentaje sin acceso a una computadora` )
segun_estudio_porcentaje3 %>%
kable(caption = "Tabla XVIII: Porcentaje de acceso a internet y computadoras de los estudiantes menores de 18 años según su nivel de estudio durante 2021") %>%
kable_styling("hover", full_width = FALSE) %>%
row_spec(0, bold = TRUE, align = "c") %>%
kable_classic(html_font = "Arial", font_size = 12) %>%
footnote(general = "Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2021")| Nivel de estudio | total | Porcentaje con acceso a internet | Porcentaje sin acceso a internet | Porcentaje con acceso a una computadora | Porcentaje sin acceso a una computadora |
|---|---|---|---|---|---|
| Parvularia (1° a 3°) | 1664 | 23.02 | 76.98 | 13.94 | 86.06 |
| Básica (1° a 9°) | 8443 | 22.53 | 77.47 | 17.35 | 82.65 |
| Media (10° a 13°) | 1611 | 37.00 | 63.00 | 40.04 | 59.96 |
| Note: | |||||
| Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2021 |
library(haven)
EHPM_2022 <- read_sav("C:/Users/johan/OneDrive/Escritorio/prueba/EHPM 2022.sav")Se seleccionan únicamente las muestras que actualmente se encuentran estudiando y están cursand parvularia (1), básica (2) o educación media (3). Es decir, estudiantes menores de 18 años (r204). Además, se seleccionan únicamente los estudiantes que asisten a un centro escolar público (r210a)
Posteriormente, se muestran las columnas sobre el nivel que cursan actualmente (r204), área geográfica (area), condición de pobreza del hogar (pobreza), si el hogar tiene internet ( r3213a) y/o computadora (r32309a)
BD2022 <-EHPM_2022%>%
filter(r204%in% 1:3, r210a == 1) %>%
select(r204, area, pobreza, r3213a,r32309a)| pobreza | total | Con acceso a internet | Sin acceso a internet | Con acceso a una computadora | Sin acceso a una computadora |
|---|---|---|---|---|---|
| Pobreza extrema | 1454 | 213 | 1241 | 1016 | 438 |
| Pobreza relativa | 3101 | 736 | 2365 | 2220 | 881 |
| No pobres | 6372 | 2100 | 4272 | 4794 | 1578 |
| Note: | |||||
| Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2022 |
# Cálculo de los porcentajes
segun_pobreza_porcentaje4 <- segun_pobreza4 %>%
mutate(
`Porcentaje con acceso a internet` = round((`Con acceso a internet` / total) * 100,2),
`Porcentaje sin acceso a internet` = round((`Sin acceso a internet` / total) * 100,2),
`Porcentaje con acceso a una computadora` = round(( `Con acceso a una computadora` / total) * 100,2),
`Porcentaje sin acceso a una computadora` = round(( `Sin acceso a una computadora` / total) * 100,2),
)%>%
select(pobreza, total, `Porcentaje con acceso a internet`, `Porcentaje sin acceso a internet`,`Porcentaje con acceso a internet`, `Porcentaje con acceso a una computadora` , `Porcentaje sin acceso a una computadora` )
segun_pobreza_porcentaje4 %>%
kable(caption = "Tabla XX: Porcentaje de acceso a internet y computadora de los estudiantes menores de 18 años según el nivel de pobreza del hogar durante 2022") %>%
kable_styling("hover", full_width = FALSE) %>%
row_spec(0, bold = TRUE, align = "c") %>%
kable_classic(html_font = "Arial", font_size = 12) %>%
footnote(general = "Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2022")| pobreza | total | Porcentaje con acceso a internet | Porcentaje sin acceso a internet | Porcentaje con acceso a una computadora | Porcentaje sin acceso a una computadora |
|---|---|---|---|---|---|
| Pobreza extrema | 1454 | 14.65 | 85.35 | 69.88 | 30.12 |
| Pobreza relativa | 3101 | 23.73 | 76.27 | 71.59 | 28.41 |
| No pobres | 6372 | 32.96 | 67.04 | 75.24 | 24.76 |
| Note: | |||||
| Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2022 |
ee2022 <- BD2022 %>%
mutate(area = as_factor(area))
# Cálculo del acceso a internet según el nivel de pobreza
segun_area4 <- ee2022 %>%
group_by(area) %>%
summarise(
total = n(),
con_internet = sum(r3213a == 1),
sin_internet = sum(r3213a == 2),
con_computadora = sum(r32309a == 1),
sin_computadora = sum(r32309a == 2)) %>%
rename(
`Con acceso a internet` = con_internet,
`Sin acceso a internet` = sin_internet,
`Con acceso a una computadora` = con_computadora,
`Sin acceso a una computadora` = sin_computadora
)
# Personalizar
segun_area4 %>%
kable(caption = "Tabla XXI: Acceso a internet y computadora de los estudiantes menores de 18 años según el área geográfica del hogar durante 2022") %>%
kable_styling("hover", full_width = FALSE) %>%
row_spec(0, bold = TRUE, align = "c") %>%
kable_classic(html_font = "Arial", font_size = 12) %>%
footnote(general = "Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2022")| area | total | Con acceso a internet | Sin acceso a internet | Con acceso a una computadora | Sin acceso a una computadora |
|---|---|---|---|---|---|
| Rural | 5747 | 743 | 5004 | 4133 | 1614 |
| Urbano | 5180 | 2306 | 2874 | 3897 | 1283 |
| Note: | |||||
| Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2022 |
# Cálculo de los porcentajes
segun_area_porcentaje4 <- segun_area4 %>%
mutate(
`Porcentaje con acceso a internet` = round((`Con acceso a internet` / total) * 100,2),
`Porcentaje sin acceso a internet` = round((`Sin acceso a internet` / total) * 100,2),
`Porcentaje con acceso a una computadora` = round(( `Con acceso a una computadora` / total) * 100,2),
`Porcentaje sin acceso a una computadora` = round(( `Sin acceso a una computadora` / total) * 100,2),
)%>%
select(area, total, `Porcentaje con acceso a internet`, `Porcentaje sin acceso a internet`,`Porcentaje con acceso a internet`, `Porcentaje con acceso a una computadora` , `Porcentaje sin acceso a una computadora` )
segun_area_porcentaje4 %>%
kable(caption = "Tabla XXII: Porcentaje de acceso a internet y computadoras de los estudiantes menores de 18 años según el área geográfica del hogar durante 2022") %>%
kable_styling("hover", full_width = FALSE) %>%
row_spec(0, bold = TRUE, align = "c") %>%
kable_classic(html_font = "Arial", font_size = 12) %>%
footnote(general = "Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2022")| area | total | Porcentaje con acceso a internet | Porcentaje sin acceso a internet | Porcentaje con acceso a una computadora | Porcentaje sin acceso a una computadora |
|---|---|---|---|---|---|
| Rural | 5747 | 12.93 | 87.07 | 71.92 | 28.08 |
| Urbano | 5180 | 44.52 | 55.48 | 75.23 | 24.77 |
| Note: | |||||
| Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2022 |
eee2022 <- BD2022 %>%
mutate(r204 = as_factor(r204))
# Cálculo del acceso a internet según el nivel de pobreza
segun_estudio4 <- eee2022 %>%
group_by(r204) %>%
summarise(
total = n(),
con_internet = sum(r3213a == 1),
sin_internet = sum(r3213a == 2),
con_computadora = sum(r32309a == 1),
sin_computadora = sum(r32309a == 2)) %>%
rename(
`Con acceso a internet` = con_internet,
`Sin acceso a internet` = sin_internet,
`Con acceso a una computadora` = con_computadora,
`Sin acceso a una computadora` = sin_computadora, `Nivel de estudio` = r204
)
# Personalizar
segun_estudio4 %>%
kable(caption = "Tabla XXIII: Acceso a internet y computadora de los estudiantes menores de 18 años según su nivel de estudio durante 2022") %>%
kable_styling("hover", full_width = FALSE) %>%
row_spec(0, bold = TRUE, align = "c") %>%
kable_classic(html_font = "Arial", font_size = 12) %>%
footnote(general = "Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2022")| Nivel de estudio | total | Con acceso a internet | Sin acceso a internet | Con acceso a una computadora | Sin acceso a una computadora |
|---|---|---|---|---|---|
| Parvularia (1° a 3°) | 1614 | 394 | 1220 | 746 | 868 |
| Básica (1° a 9°) | 7933 | 2094 | 5839 | 6076 | 1857 |
| Media (10° a 13°) | 1380 | 561 | 819 | 1208 | 172 |
| Note: | |||||
| Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2022 |
# Cálculo de los porcentajes
segun_estudio_porcentaje4 <- segun_estudio4 %>%
mutate(
`Porcentaje con acceso a internet` = round((`Con acceso a internet` / total) * 100,2),
`Porcentaje sin acceso a internet` = round((`Sin acceso a internet` / total) * 100,2),
`Porcentaje con acceso a una computadora` = round(( `Con acceso a una computadora` / total) * 100,2),
`Porcentaje sin acceso a una computadora` = round(( `Sin acceso a una computadora` / total) * 100,2),
)%>%
select(`Nivel de estudio`, total, `Porcentaje con acceso a internet`, `Porcentaje sin acceso a internet`,`Porcentaje con acceso a internet`, `Porcentaje con acceso a una computadora` , `Porcentaje sin acceso a una computadora` )
segun_estudio_porcentaje4 %>%
kable(caption = "Tabla XXIV: Porcentaje de acceso a internet y computadoras de los estudiantes menores de 18 años según su nivel de estudio durante 2022") %>%
kable_styling("hover", full_width = FALSE) %>%
row_spec(0, bold = TRUE, align = "c") %>%
kable_classic(html_font = "Arial", font_size = 12) %>%
footnote(general = "Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2022")| Nivel de estudio | total | Porcentaje con acceso a internet | Porcentaje sin acceso a internet | Porcentaje con acceso a una computadora | Porcentaje sin acceso a una computadora |
|---|---|---|---|---|---|
| Parvularia (1° a 3°) | 1614 | 24.41 | 75.59 | 46.22 | 53.78 |
| Básica (1° a 9°) | 7933 | 26.40 | 73.60 | 76.59 | 23.41 |
| Media (10° a 13°) | 1380 | 40.65 | 59.35 | 87.54 | 12.46 |
| Note: | |||||
| Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2022 |
library(haven)
EHPM_2023 <- read_sav("C:/Users/johan/OneDrive/Escritorio/prueba/EHPM 2023.sav")Se seleccionan únicamente las muestras que actualmente se encuentran estudiando y están cursand parvularia (1), básica (2) o educación media (3). Es decir, estudiantes menores de 18 años (r204). Además, se seleccionan únicamente los estudiantes que asisten a un centro escolar público (r210a)
Posteriormente, se muestran las columnas sobre el nivel que cursan actualmente (r204), área geográfica (area), condición de pobreza del hogar (pobreza), si el hogar tiene internet ( r3213a) y/o computadora (r32309a)
BD2023 <-EHPM_2023%>%
filter(r204%in% 1:3, r210a == 1) %>%
select(r204, area, pobreza, r3213a,r32309a)| pobreza | total | Con acceso a internet | Sin acceso a internet | Con acceso a una computadora | Sin acceso a una computadora |
|---|---|---|---|---|---|
| Pobreza extrema | 1409 | 248 | 1161 | 1272 | 137 |
| Pobreza relativa | 2916 | 815 | 2101 | 2646 | 270 |
| No pobres | 6030 | 2303 | 3727 | 5546 | 484 |
| Note: | |||||
| Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2023 |
# Cálculo de los porcentajes
segun_pobreza_porcentaje5 <- segun_pobreza5 %>%
mutate(
`Porcentaje con acceso a internet` = round((`Con acceso a internet` / total) * 100,2),
`Porcentaje sin acceso a internet` = round((`Sin acceso a internet` / total) * 100,2),
`Porcentaje con acceso a una computadora` = round(( `Con acceso a una computadora` / total) * 100,2),
`Porcentaje sin acceso a una computadora` = round(( `Sin acceso a una computadora` / total) * 100,2),
)%>%
select(pobreza, total, `Porcentaje con acceso a internet`, `Porcentaje sin acceso a internet`,`Porcentaje con acceso a internet`, `Porcentaje con acceso a una computadora` , `Porcentaje sin acceso a una computadora` )
segun_pobreza_porcentaje5 %>%
kable(caption = "Tabla XXVI: Porcentaje de acceso a internet y computadora de los estudiantes menores de 18 años según el nivel de pobreza del hogar durante 2023") %>%
kable_styling("hover", full_width = FALSE) %>%
row_spec(0, bold = TRUE, align = "c") %>%
kable_classic(html_font = "Arial", font_size = 12) %>%
footnote(general = "Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2023")| pobreza | total | Porcentaje con acceso a internet | Porcentaje sin acceso a internet | Porcentaje con acceso a una computadora | Porcentaje sin acceso a una computadora |
|---|---|---|---|---|---|
| Pobreza extrema | 1409 | 17.60 | 82.40 | 90.28 | 9.72 |
| Pobreza relativa | 2916 | 27.95 | 72.05 | 90.74 | 9.26 |
| No pobres | 6030 | 38.19 | 61.81 | 91.97 | 8.03 |
| Note: | |||||
| Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2023 |
ee2023 <- BD2023 %>%
mutate(area = as_factor(area))
# Cálculo del acceso a internet según el nivel de pobreza
segun_area5 <- ee2023 %>%
group_by(area) %>%
summarise(
total = n(),
con_internet = sum(r3213a == 1),
sin_internet = sum(r3213a == 2),
con_computadora = sum(r32309a == 1),
sin_computadora = sum(r32309a == 2)) %>%
rename(
`Con acceso a internet` = con_internet,
`Sin acceso a internet` = sin_internet,
`Con acceso a una computadora` = con_computadora,
`Sin acceso a una computadora` = sin_computadora
)
# Personalizar
segun_area5 %>%
kable(caption = "Tabla XXVII: Acceso a internet y computadora de los estudiantes menores de 18 años según el área geográfica del hogar durante 2023") %>%
kable_styling("hover", full_width = FALSE) %>%
row_spec(0, bold = TRUE, align = "c") %>%
kable_classic(html_font = "Arial", font_size = 12) %>%
footnote(general = "Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2023")| area | total | Con acceso a internet | Sin acceso a internet | Con acceso a una computadora | Sin acceso a una computadora |
|---|---|---|---|---|---|
| Rural | 5374 | 842 | 4532 | 4902 | 472 |
| Urbano | 4981 | 2524 | 2457 | 4562 | 419 |
| Note: | |||||
| Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2023 |
# Cálculo de los porcentajes
segun_area_porcentaje5 <- segun_area5 %>%
mutate(
`Porcentaje con acceso a internet` = round((`Con acceso a internet` / total) * 100,2),
`Porcentaje sin acceso a internet` = round((`Sin acceso a internet` / total) * 100,2),
`Porcentaje con acceso a una computadora` = round(( `Con acceso a una computadora` / total) * 100,2),
`Porcentaje sin acceso a una computadora` = round(( `Sin acceso a una computadora` / total) * 100,2),
)%>%
select(area, total, `Porcentaje con acceso a internet`, `Porcentaje sin acceso a internet`,`Porcentaje con acceso a internet`, `Porcentaje con acceso a una computadora` , `Porcentaje sin acceso a una computadora` )
segun_area_porcentaje5 %>%
kable(caption = "Tabla XXVIII: Porcentaje de acceso a internet y computadoras de los estudiantes menores de 18 años según el área geográfica del hogar durante 2023") %>%
kable_styling("hover", full_width = FALSE) %>%
row_spec(0, bold = TRUE, align = "c") %>%
kable_classic(html_font = "Arial", font_size = 12) %>%
footnote(general = "Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2023")| area | total | Porcentaje con acceso a internet | Porcentaje sin acceso a internet | Porcentaje con acceso a una computadora | Porcentaje sin acceso a una computadora |
|---|---|---|---|---|---|
| Rural | 5374 | 15.67 | 84.33 | 91.22 | 8.78 |
| Urbano | 4981 | 50.67 | 49.33 | 91.59 | 8.41 |
| Note: | |||||
| Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2023 |
eee2023 <- BD2023 %>%
mutate(r204 = as_factor(r204))
# Cálculo del acceso a internet según el nivel de pobreza
segun_estudio5 <- eee2023 %>%
group_by(r204) %>%
summarise(
total = n(),
con_internet = sum(r3213a == 1),
sin_internet = sum(r3213a == 2),
con_computadora = sum(r32309a == 1),
sin_computadora = sum(r32309a == 2)) %>%
rename(
`Con acceso a internet` = con_internet,
`Sin acceso a internet` = sin_internet,
`Con acceso a una computadora` = con_computadora,
`Sin acceso a una computadora` = sin_computadora, `Nivel de estudio` = r204
)
# Personalizar
segun_estudio5 %>%
kable(caption = "Tabla XXIX: Acceso a internet y computadora de los estudiantes menores de 18 años según su nivel de estudio durante 2023") %>%
kable_styling("hover", full_width = FALSE) %>%
row_spec(0, bold = TRUE, align = "c") %>%
kable_classic(html_font = "Arial", font_size = 12) %>%
footnote(general = "Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2022")| Nivel de estudio | total | Con acceso a internet | Sin acceso a internet | Con acceso a una computadora | Sin acceso a una computadora |
|---|---|---|---|---|---|
| Parvularia (1° a 3°) | 1611 | 479 | 1132 | 1332 | 279 |
| Básica (1° a 9°) | 7424 | 2309 | 5115 | 6874 | 550 |
| Media (10° a 13°) | 1320 | 578 | 742 | 1258 | 62 |
| Note: | |||||
| Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2022 |
# Cálculo de los porcentajes
segun_estudio_porcentaje5 <- segun_estudio5 %>%
mutate(
`Porcentaje con acceso a internet` = round((`Con acceso a internet` / total) * 100,2),
`Porcentaje sin acceso a internet` = round((`Sin acceso a internet` / total) * 100,2),
`Porcentaje con acceso a una computadora` = round(( `Con acceso a una computadora` / total) * 100,2),
`Porcentaje sin acceso a una computadora` = round(( `Sin acceso a una computadora` / total) * 100,2),
)%>%
select(`Nivel de estudio`, total, `Porcentaje con acceso a internet`, `Porcentaje sin acceso a internet`,`Porcentaje con acceso a internet`, `Porcentaje con acceso a una computadora` , `Porcentaje sin acceso a una computadora` )
segun_estudio_porcentaje5 %>%
kable(caption = "Tabla XXX: Porcentaje de acceso a internet y computadoras de los estudiantes menores de 18 años según su nivel de estudio durante 2023") %>%
kable_styling("hover", full_width = FALSE) %>%
row_spec(0, bold = TRUE, align = "c") %>%
kable_classic(html_font = "Arial", font_size = 12) %>%
footnote(general = "Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2023")| Nivel de estudio | total | Porcentaje con acceso a internet | Porcentaje sin acceso a internet | Porcentaje con acceso a una computadora | Porcentaje sin acceso a una computadora |
|---|---|---|---|---|---|
| Parvularia (1° a 3°) | 1611 | 29.73 | 70.27 | 82.68 | 17.32 |
| Básica (1° a 9°) | 7424 | 31.10 | 68.90 | 92.59 | 7.41 |
| Media (10° a 13°) | 1320 | 43.79 | 56.21 | 95.30 | 4.70 |
| Note: | |||||
| Elaboración propia en base a la Encuesta de Hogares de Propósitos Múltiples de 2023 |