Estudio
Christian Castro
2026-01-07
censo2024
Contacto
Si tienes dudas, puedes escribirme:
https://censo2024.ine.gob.cl/resultados/
Base de microdatos - Viviendas Censo 2024 (csv) – zip, 70,7 MB
Base de microdatos - Hogares Censo 2024 (csv) – zip, 58,2 MB
Base de microdatos - Personas Censo 2024 (csv) – zip, 416 MB
Base de microdatos - Viviendas, hogares, personas Censo 2024 (parquet) – zip, 377 MB
Manual de Uso de Microdatos Censo 2024 – pdf, 2 MB
Diccionario de variables microdatos Censo 2024 – xlsx, 154 KB
Base a nivel de manzana – entidad Censo 2024 (csv) – zip, 24,2 MB
Base a nivel de zona – localidad Censo 2024 (csv) – zip, 2,76 MB
Base a nivel de urbanos (csv) – zip, 236 KB
Base a nivel de aldeas (csv) – zip, 152 KB
Diccionario de variables y glosas datos agregados – xlsx, 2,7 MB
Ciudades, Pueblos, Aldeas y Caseríos Censo 2024 (html) – 2 MB
# personas_censo2024 <- read.csv2(
# "personas_censo2024.csv",
# stringsAsFactors = FALSE
# )
# # personas_censo2024 <- read.csv("personas_censo2024.csv")
# saveRDS(personas_censo2024, "personas_censo2024.rds")# personas_censo2024 <- readRDS("personas_censo2024.rds")Estudio geográfico censal de la RM
# Base_manzana_entidad_CPV24 <- read.csv2(
# "Base_manzana_entidad_CPV24.csv",
# stringsAsFactors = FALSE
# )
# saveRDS(Base_manzana_entidad_CPV24, "Base_manzana_entidad_CPV24.rds")Base_manzana_entidad_CPV24 <- readRDS("Base_manzana_entidad_CPV24.rds")| CONTENEDOR_COMUNAL | COD_REGION | REGION | PROVINCIA | CUT | COMUNA | AREA_C | MANZENT | DISTRITO | COD_DISTRITO | COD_LOCALIDAD | COD_ZONA | LOCALIDAD | COD_ENTIDAD | COD_MANZANA | ENTIDAD | TIPO_MZ | COD_CATEGORIA | CATEGORIA | ID_ENTIDAD | ID_LOCALIDAD | ID_DISTRITO | ID_ZONA | n_per | n_hombres | n_mujeres | n_edad_0_5 | n_edad_6_13 | n_edad_14_17 | n_edad_18_24 | n_edad_25_44 | n_edad_45_59 | n_edad_60_mas | prom_edad | n_inmigrantes | n_nacionalidad | n_pueblos_orig | n_afrodescendencia | n_lengua_indigena | n_religion | n_dificultad_ver | n_dificultad_oir | n_dificultad_mover | n_dificultad_cogni | n_dificultad_cuidado | n_dificultad_comunic | n_discapacidad | n_estcivcon_casado | n_estcivcon_conviviente | n_estcivcon_conv_civil | n_estcivcon_anul_sep_div | n_estcivcon_viudo | n_estcivcon_soltero | prom_escolaridad18 | n_asistencia_parv | n_asistencia_basica | n_asistencia_media | n_asistencia_superior | n_cine_nunca_curso_primera_infancia | n_cine_primaria | n_cine_secundaria | n_cine_terciaria_maestria_doctorado | n_cine_especial_diferencial | n_analfabet | n_ocupado | n_desocupado | n_fuera_fuerza_trabajo | n_cise_rec_independientes | n_cise_rec_dependientes | n_cise_rec_trabajador_no_remunerado | n_ciuo_1 | n_ciuo_2 | n_ciuo_3 | n_ciuo_4 | n_ciuo_5 | n_ciuo_6 | n_ciuo_7 | n_ciuo_8 | n_ciuo_9 | n_ciuo_0 | n_caenes_A | n_caenes_B | n_caenes_C | n_caenes_D | n_caenes_E | n_caenes_F | n_caenes_G | n_caenes_H | n_caenes_I | n_caenes_J | n_caenes_K | n_caenes_L | n_caenes_M | n_caenes_N | n_caenes_O | n_caenes_P | n_caenes_Q | n_caenes_R | n_caenes_S | n_caenes_T | n_caenes_U | n_transporte_auto | n_transporte_publico | n_transporte_camina | n_transporte_bicicleta | n_transporte_motocicleta | n_transporte_cab_lan_bote | n_transporte_otros | n_hog | prom_per_hog | n_hog_unipersonales | n_hog_60 | n_hog_menores | n_jefatura_mujer | n_tenencia_propia_pagada | n_tenencia_propia_pagandose | n_tenencia_arrendada_contrato | n_tenencia_arrendada_sin_contrato | n_tenencia_cedida_trabajo | n_tenencia_cedida_familiar | n_tenencia_otro | n_comb_cocina_gas | n_comb_cocina_parafina | n_comb_cocina_lena | n_comb_cocina_pellet | n_comb_cocina_carbon | n_comb_cocina_electricidad | n_comb_cocina_solar | n_comb_cocina_no_utiliza | n_comb_calefaccion_gas | n_comb_calefaccion_parafina | n_comb_calefaccion_lena | n_comb_calefaccion_pellet | n_comb_calefaccion_carbon | n_comb_calefaccion_electricidad | n_comb_calefaccion_otra | n_comb_calefaccion_no_utiliza | n_serv_tel_movil | n_serv_compu | n_serv_tablet | n_serv_internet_fija | n_serv_internet_movil | n_serv_internet_satelital | n_internet | n_vp | n_vp_ocupada | n_vp_desocupada | n_tipo_viv_casa | n_tipo_viv_depto | n_tipo_viv_indigena | n_tipo_viv_pieza | n_tipo_viv_mediagua | n_tipo_viv_movil | n_tipo_viv_otro | n_dormitorios_1 | n_dormitorios_2 | n_dormitorios_3 | n_dormitorios_4 | n_dormitorios_5 | n_dormitorios_6_o_mas | n_viv_hacinadas | n_viv_irrecuperables | n_hog_allegados | n_nucleos_hacinados_allegados | n_viv_no_ampliables | n_deficit_cuantitativo | n_mat_paredes_hormigon | n_mat_paredes_albanileria | n_mat_paredes_tabique_forrado | n_mat_paredes_tabique_sin_forro | n_mat_paredes_artesanal | n_mat_paredes_precarios | n_mat_techo_tejas | n_mat_techo_hormigon | n_mat_techo_zinc | n_mat_techo_fibrocemento | n_mat_techo_fonolita | n_mat_techo_paja | n_mat_techo_precarios | n_mat_techo_sin_cubierta | n_mat_piso_radier_con_revestimiento | n_mat_piso_radier_sin_revestimiento | n_mat_piso_baldosa_cemento | n_mat_piso_capa_cemento | n_mat_piso_tierra | n_fuente_agua_publica | n_fuente_agua_pozo | n_fuente_agua_camion | n_fuente_agua_rio | n_distrib_agua_llave | n_distrib_agua_llave_fuera | n_distrib_agua_acarreo | n_serv_hig_alc_dentro | n_serv_hig_alc_fuera | n_serv_hig_fosa | n_serv_hig_pozo | n_serv_hig_acequia_canal | n_serv_hig_cajon_otro | n_serv_hig_bano_quimico | n_serv_hig_bano_seco | n_serv_hig_no_tiene | n_fuente_elect_publica | n_fuente_elect_diesel | n_fuente_elect_solar | n_fuente_elect_eolica | n_fuente_elect_otro | n_fuente_elect_no_tiene | n_basura_servicios | n_basura_entierra | n_basura_eriazo | n_basura_rio | n_basura_otro |
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 0 | 1 | TARAPACÁ | IQUIQUE | 1101 | IQUIQUE | 1 | 1.101011e+12 | PUERTO | 1 | 9 | 1 | IQUIQUE - ALTO HOSPICIO | 1 | 7 | IQUIQUE | URBANO | 1 | Ciudad | 1.10101e+11 | 11011009 | 110101 | 110101001 | 15 | 11 | 4 | 1 | 2 | 4 | 1 | 3 | 2 | 2 | 28.8 | 0 | 0 |
|
0 | 0 | 9 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 4 | 0 | 0 | 2 | 0 | 5 | 14.3 | 1 | 2 | 4 | 1 | 1 | 6 | 5 | 3 | 0 | 0 | 5 | 1 | 5 | 4 | 1 | 0 | 0 | 1 | 0 | 0 | 2 | 0 | 0 | 0 | 1 | 1 | 0 | 0 | 0 | 0 | 0 | 1 | 1 | 0 | 0 | 0 | 0 | 0 | 1 | 0 | 1 | 0 | 1 | 0 | 0 | 0 | 0 | 1 | 0 | 1 | 0 | 0 | 0 | 0 | 4 | 3.8 | 1 | 1 | 2 | 1 | 1 | 0 | 0 | 1 | 1 | 1 | 0 | 3 | 0 | 0 | 0 | 0 | 0 | 0 | 1 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 4 | 3 | 3 | 1 | 2 | 3 | 1 | 3 | 6 | 4 | 2 | 5 | 1 | 0 | 0 | 0 | 0 | 0 | 1 | 1 | 2 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 2 | 2 | 0 | 0 | 0 | 0 | 0 | 3 | 1 | 0 | 0 | 0 | 0 | 0 | 3 | 0 | 0 | 1 | 0 | 4 | 0 | 0 | 0 | 4 | 0 | 0 | 3 | 1 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 4 | 0 | 0 | 0 | 0 | 0 | 4 | 0 | 0 | 0 | 0 |
| 0 | 1 | TARAPACÁ | IQUIQUE | 1101 | IQUIQUE | 1 | 1.101011e+12 | PUERTO | 1 | 9 | 1 | IQUIQUE - ALTO HOSPICIO | 1 | 10 | IQUIQUE | URBANO | 1 | Ciudad | 1.10101e+11 | 11011009 | 110101 | 110101001 | 22 | 15 | 7 | 1 | 2 | 2 | 1 | 6 | 6 | 4 | 40.1 | 5 | 4 | 6 | 0 | 0 | 14 | 0 | 0 | 0 | 1 | 0 | 0 | 1 | 6 | 2 | 0 | 1 | 1 | 9 | 14.1 | 1 | 2 | 2 | 1 | 1 | 5 | 7 | 9 | 0 | 0 | 10 | 2 | 7 | 2 | 7 | 1 | 0 | 3 | 2 | 2 | 2 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 1 | 1 | 0 | 0 | 2 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 5 | 0 | 0 | 0 | 0 | 0 | 0 | 3 | 1 | 6 | 0 | 0 | 0 | 0 | 11 | 2.0 | 5 | 1 | 2 | 2 | 2 | 1 | 3 | 0 | 5 | 0 | 0 | 11 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 2 | 0 | 0 | 0 | 0 | 2 | 0 | 7 | 11 | 7 | 5 | 9 | 11 | 0 | 11 | 11 | 11 | 0 | 2 | 9 | 0 | 0 | 0 | 0 | 0 | 3 | 7 | 0 | 1 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 7 | 4 | 0 | 0 | 0 | 0 | 1 | 7 | 3 | 0 | 0 | 0 | 0 | 0 | 11 | 0 | 0 | 0 | 0 | 11 | 0 | 0 | 0 | 11 | 0 | 0 | 11 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 11 | 0 | 0 | 0 | 0 | 0 | 11 | 0 | 0 | 0 | 0 |
| 0 | 1 | TARAPACÁ | IQUIQUE | 1101 | IQUIQUE | 1 | 1.101011e+12 | PUERTO | 1 | 9 | 1 | IQUIQUE - ALTO HOSPICIO | 1 | 12 | IQUIQUE | URBANO | 1 | Ciudad | 1.10101e+11 | 11011009 | 110101 | 110101001 | 9 | 6 | 3 | 0 | 0 | 1 | 1 | 2 | 4 | 1 | 46.0 | 4 | 4 |
|
0 |
|
7 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 2 | 0 | 1 | 1 | 5 | 11.4 | 0 | 0 | 1 | 0 | 0 | 4 | 4 | 1 | 0 | 1 | 4 | 1 | 4 | 1 | 3 | 0 | 0 | 0 | 1 | 0 | 1 | 0 | 2 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 1 | 1 | 1 | 1 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 1 | 2 | 1 | 0 | 0 | 0 | 0 | 5 | 1.8 | 2 | 0 | 0 | 1 | 0 | 0 | 0 | 3 | 1 | 1 | 0 | 4 | 0 | 0 | 0 | 0 | 0 | 0 | 1 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 5 | 5 | 2 | 3 | 3 | 5 | 0 | 5 | 5 | 5 | 0 | 3 | 0 | 0 | 2 | 0 | 0 | 0 | 4 | 0 | 1 | 0 | 0 | 0 | 1 | 0 | 0 | 0 | 1 | 1 | 0 | 1 | 3 | 1 | 0 | 0 | 3 | 0 | 1 | 0 | 1 | 0 | 0 | 0 | 4 | 0 | 1 | 0 | 0 | 5 | 0 | 0 | 0 | 2 | 3 | 0 | 3 | 2 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 5 | 0 | 0 | 0 | 0 | 0 | 5 | 0 | 0 | 0 | 0 |
| 0 | 1 | TARAPACÁ | IQUIQUE | 1101 | IQUIQUE | 1 | 1.101011e+12 | PUERTO | 1 | 9 | 1 | IQUIQUE - ALTO HOSPICIO | 1 | 13 | IQUIQUE | URBANO | 1 | Ciudad | 1.10101e+11 | 11011009 | 110101 | 110101001 | 58 | 36 | 22 | 0 | 3 | 4 | 6 | 12 | 15 | 18 | 47.1 | 18 | 14 | 5 | 0 |
|
38 | 6 | 0 | 6 | 2 | 1 | 0 | 10 | 17 | 8 | 2 | 7 | 1 | 20 | 12.3 | 0 | 3 | 4 | 2 | 0 | 20 | 21 | 17 | 0 | 0 | 29 | 3 | 23 | 13 | 16 | 0 | 1 | 4 | 3 | 2 | 5 | 1 | 2 | 1 | 10 | 0 | 1 | 1 | 4 | 0 | 0 | 0 | 6 | 2 | 2 | 1 | 1 | 1 | 0 | 1 | 1 | 0 | 3 | 1 | 3 | 1 | 0 | 3 | 5 | 12 | 2 | 0 | 0 | 0 | 26 | 2.2 | 12 | 4 | 3 | 9 | 5 | 0 | 4 | 7 | 4 | 6 | 0 | 20 | 0 | 0 | 0 | 0 | 0 | 0 | 6 | 1 | 0 | 0 | 0 | 0 | 3 | 0 | 22 | 24 | 14 | 8 | 16 | 22 | 2 | 23 | 23 | 21 | 2 | 16 | 3 | 0 | 2 | 0 | 0 | 2 | 4 | 7 | 5 | 2 | 0 | 0 | 1 | 2 | 6 | 0 | 0 | 8 | 3 | 3 | 12 | 0 | 0 | 2 | 3 | 3 | 10 | 2 | 0 | 0 | 2 | 0 | 16 | 1 | 1 | 0 | 2 | 20 | 0 | 0 | 0 | 20 | 0 | 0 | 17 | 3 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 18 | 0 | 0 | 0 | 0 | 2 | 20 | 0 | 0 | 0 | 0 |
| 0 | 1 | TARAPACÁ | IQUIQUE | 1101 | IQUIQUE | 1 | 1.101011e+12 | PUERTO | 1 | 9 | 1 | IQUIQUE - ALTO HOSPICIO | 1 | 14 | IQUIQUE | URBANO | 1 | Ciudad | 1.10101e+11 | 11011009 | 110101 | 110101001 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | NA | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | NA | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | NA | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 1 | 0 | 1 | 1 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 |
Mapa Censo RM
# Ver qué capas trae la GDB (RM)
st_layers("Cartografía_censo2024_R13.gdb")## Driver: OpenFileGDB
## Available layers:
## layer_name geometry_type features fields crs_name
## 1 Zonal_CPV24 Multi Polygon 1865 211 SIRGAS 2000
## 2 Provincial_CPV24 Multi Polygon 6 6 SIRGAS 2000
## 3 Regional_CPV24 Multi Polygon 1 4 SIRGAS 2000
## 4 Localidades_CPV24 Multi Polygon 444 201 SIRGAS 2000
## 5 Manzanas_CPV24 Multi Polygon 66873 215 SIRGAS 2000
## 6 Entidades_CPV24 Multi Polygon 2072 211 SIRGAS 2000
## 7 Limite_Urbano_CPV24 Multi Polygon 106 207 SIRGAS 2000
## 8 Comunal_CPV24 Multi Polygon 52 8 SIRGAS 2000
## 9 Distrital_CPV24 Multi Polygon 451 12 SIRGAS 2000
## 10 Aldeas_CPV24 Multi Polygon 79 202 SIRGAS 2000# Leer la capa de comunas
comunas_rm <- st_read(
"Cartografía_censo2024_R13.gdb",
layer = "Manzanas_CPV24"
)## Reading layer `Manzanas_CPV24' from data source
## `C:\Users\chris\OneDrive\Escritorio\Casen 2022\casen 2022\Cartografía_censo2024_R13.gdb'
## using driver `OpenFileGDB'
## Simple feature collection with 66873 features and 215 fields
## Geometry type: MULTIPOLYGON
## Dimension: XY
## Bounding box: xmin: -71.51187 ymin: -34.05721 xmax: -70.22923 ymax: -32.96357
## Geodetic CRS: SIRGAS 2000# Revisa columnas:
names(comunas_rm)## [1] "CUT"
## [2] "COD_REGION"
## [3] "REGION"
## [4] "COD_PROVINCIA"
## [5] "PROVINCIA"
## [6] "COMUNA"
## [7] "AREA_C"
## [8] "MANZENT"
## [9] "DISTRITO"
## [10] "COD_DISTRITO"
## [11] "COD_LOCALIDAD"
## [12] "COD_ZONA"
## [13] "LOCALIDAD"
## [14] "COD_ENTIDAD"
## [15] "COD_MANZANA"
## [16] "ENTIDAD"
## [17] "TIPO_MZ"
## [18] "COD_CATEGORIA"
## [19] "CATEGORIA"
## [20] "MZ_BASE_CENSO"
## [21] "ID_ENTIDAD"
## [22] "ID_LOCALIDAD"
## [23] "ID_DISTRITO"
## [24] "ID_ZONA"
## [25] "n_per"
## [26] "n_hombres"
## [27] "n_mujeres"
## [28] "n_edad_0_5"
## [29] "n_edad_6_13"
## [30] "n_edad_14_17"
## [31] "n_edad_18_24"
## [32] "n_edad_25_44"
## [33] "n_edad_45_59"
## [34] "n_edad_60_mas"
## [35] "prom_edad"
## [36] "n_inmigrantes"
## [37] "n_nacionalidad"
## [38] "n_pueblos_orig"
## [39] "n_afrodescendencia"
## [40] "n_lengua_indigena"
## [41] "n_religion"
## [42] "n_dificultad_ver"
## [43] "n_dificultad_oir"
## [44] "n_dificultad_mover"
## [45] "n_dificultad_cogni"
## [46] "n_dificultad_cuidado"
## [47] "n_dificultad_comunic"
## [48] "n_discapacidad"
## [49] "n_estcivcon_casado"
## [50] "n_estcivcon_conviviente"
## [51] "n_estcivcon_conv_civil"
## [52] "n_estcivcon_anul_sep_div"
## [53] "n_estcivcon_viudo"
## [54] "n_estcivcon_soltero"
## [55] "prom_escolaridad18"
## [56] "n_asistencia_parv"
## [57] "n_asistencia_basica"
## [58] "n_asistencia_media"
## [59] "n_asistencia_superior"
## [60] "n_cine_nunca_curso_primera_infancia"
## [61] "n_cine_primaria"
## [62] "n_cine_secundaria"
## [63] "n_cine_terciaria_maestria_doctorado"
## [64] "n_cine_especial_diferencial"
## [65] "n_analfabet"
## [66] "n_ocupado"
## [67] "n_desocupado"
## [68] "n_fuera_fuerza_trabajo"
## [69] "n_cise_rec_independientes"
## [70] "n_cise_rec_dependientes"
## [71] "n_cise_rec_trabajador_no_remunerado"
## [72] "n_ciuo_1"
## [73] "n_ciuo_2"
## [74] "n_ciuo_3"
## [75] "n_ciuo_4"
## [76] "n_ciuo_5"
## [77] "n_ciuo_6"
## [78] "n_ciuo_7"
## [79] "n_ciuo_8"
## [80] "n_ciuo_9"
## [81] "n_ciuo_0"
## [82] "n_caenes_A"
## [83] "n_caenes_B"
## [84] "n_caenes_C"
## [85] "n_caenes_D"
## [86] "n_caenes_E"
## [87] "n_caenes_F"
## [88] "n_caenes_G"
## [89] "n_caenes_H"
## [90] "n_caenes_I"
## [91] "n_caenes_J"
## [92] "n_caenes_K"
## [93] "n_caenes_L"
## [94] "n_caenes_M"
## [95] "n_caenes_N"
## [96] "n_caenes_O"
## [97] "n_caenes_P"
## [98] "n_caenes_Q"
## [99] "n_caenes_R"
## [100] "n_caenes_S"
## [101] "n_caenes_T"
## [102] "n_caenes_U"
## [103] "n_transporte_auto"
## [104] "n_transporte_publico"
## [105] "n_transporte_camina"
## [106] "n_transporte_bicicleta"
## [107] "n_transporte_motocicleta"
## [108] "n_transporte_cab_lan_bote"
## [109] "n_transporte_otros"
## [110] "n_hog"
## [111] "prom_per_hog"
## [112] "n_hog_unipersonales"
## [113] "n_hog_60"
## [114] "n_hog_menores"
## [115] "n_jefatura_mujer"
## [116] "n_tenencia_propia_pagada"
## [117] "n_tenencia_propia_pagandose"
## [118] "n_tenencia_arrendada_contrato"
## [119] "n_tenencia_arrendada_sin_contrato"
## [120] "n_tenencia_cedida_trabajo"
## [121] "n_tenencia_cedida_familiar"
## [122] "n_tenencia_otro"
## [123] "n_comb_cocina_gas"
## [124] "n_comb_cocina_parafina"
## [125] "n_comb_cocina_lena"
## [126] "n_comb_cocina_pellet"
## [127] "n_comb_cocina_carbon"
## [128] "n_comb_cocina_electricidad"
## [129] "n_comb_cocina_solar"
## [130] "n_comb_cocina_no_utiliza"
## [131] "n_comb_calefaccion_gas"
## [132] "n_comb_calefaccion_parafina"
## [133] "n_comb_calefaccion_lena"
## [134] "n_comb_calefaccion_pellet"
## [135] "n_comb_calefaccion_carbon"
## [136] "n_comb_calefaccion_electricidad"
## [137] "n_comb_calefaccion_otra"
## [138] "n_comb_calefaccion_no_utiliza"
## [139] "n_serv_tel_movil"
## [140] "n_serv_compu"
## [141] "n_serv_tablet"
## [142] "n_serv_internet_fija"
## [143] "n_serv_internet_movil"
## [144] "n_serv_internet_satelital"
## [145] "n_internet"
## [146] "n_vp"
## [147] "n_vp_ocupada"
## [148] "n_vp_desocupada"
## [149] "n_tipo_viv_casa"
## [150] "n_tipo_viv_depto"
## [151] "n_tipo_viv_indigena"
## [152] "n_tipo_viv_pieza"
## [153] "n_tipo_viv_mediagua"
## [154] "n_tipo_viv_movil"
## [155] "n_tipo_viv_otro"
## [156] "n_dormitorios_1"
## [157] "n_dormitorios_2"
## [158] "n_dormitorios_3"
## [159] "n_dormitorios_4"
## [160] "n_dormitorios_5"
## [161] "n_dormitorios_6_o_mas"
## [162] "n_viv_hacinadas"
## [163] "n_viv_irrecuperables"
## [164] "n_hog_allegados"
## [165] "n_nucleos_hacinados_allegados"
## [166] "n_viv_no_ampliables"
## [167] "n_deficit_cuantitativo"
## [168] "n_mat_paredes_hormigon"
## [169] "n_mat_paredes_albanileria"
## [170] "n_mat_paredes_tabique_forrado"
## [171] "n_mat_paredes_tabique_sin_forro"
## [172] "n_mat_paredes_artesanal"
## [173] "n_mat_paredes_precarios"
## [174] "n_mat_techo_tejas"
## [175] "n_mat_techo_hormigon"
## [176] "n_mat_techo_zinc"
## [177] "n_mat_techo_fibrocemento"
## [178] "n_mat_techo_fonolita"
## [179] "n_mat_techo_paja"
## [180] "n_mat_techo_precarios"
## [181] "n_mat_techo_sin_cubierta"
## [182] "n_mat_piso_radier_con_revestimiento"
## [183] "n_mat_piso_radier_sin_revestimiento"
## [184] "n_mat_piso_baldosa_cemento"
## [185] "n_mat_piso_capa_cemento"
## [186] "n_mat_piso_tierra"
## [187] "n_fuente_agua_publica"
## [188] "n_fuente_agua_pozo"
## [189] "n_fuente_agua_camion"
## [190] "n_fuente_agua_rio"
## [191] "n_distrib_agua_llave"
## [192] "n_distrib_agua_llave_fuera"
## [193] "n_distrib_agua_acarreo"
## [194] "n_serv_hig_alc_dentro"
## [195] "n_serv_hig_alc_fuera"
## [196] "n_serv_hig_fosa"
## [197] "n_serv_hig_pozo"
## [198] "n_serv_hig_acequia_canal"
## [199] "n_serv_hig_cajon_otro"
## [200] "n_serv_hig_bano_quimico"
## [201] "n_serv_hig_bano_seco"
## [202] "n_serv_hig_no_tiene"
## [203] "n_fuente_elect_publica"
## [204] "n_fuente_elect_diesel"
## [205] "n_fuente_elect_solar"
## [206] "n_fuente_elect_eolica"
## [207] "n_fuente_elect_otro"
## [208] "n_fuente_elect_no_tiene"
## [209] "n_basura_servicios"
## [210] "n_basura_entierra"
## [211] "n_basura_eriazo"
## [212] "n_basura_rio"
## [213] "n_basura_otro"
## [214] "SHAPE_Length"
## [215] "SHAPE_Area"
## [216] "SHAPE"# Filtrar Ñuñoa por código comunal (más robusto)
nunoa_y_macul <- comunas_rm %>%
filter(COMUNA %in% c("ÑUÑOA", "MACUL"))Despliegue geográfico de Ñuñoa por manzanas
ggplot(nunoa_y_macul) +
geom_sf(fill = "steelblue", color = "white", linewidth = 0.3) +
theme_minimal() +
labs(title = "Comuna de Ñuñoa")
Analisis estadisticos basicos sobre nunoa_y_macul (df_nunoa_y_macul)
df_nunoa_y_macul <- as.data.frame(st_drop_geometry(nunoa_y_macul))
head(df_nunoa_y_macul, 3)## CUT COD_REGION REGION COD_PROVINCIA PROVINCIA COMUNA
## 1 13118 13 METROPOLITANA DE SANTIAGO 131 SANTIAGO MACUL
## 2 13118 13 METROPOLITANA DE SANTIAGO 131 SANTIAGO MACUL
## 3 13118 13 METROPOLITANA DE SANTIAGO 131 SANTIAGO MACUL
## AREA_C MANZENT DISTRITO COD_DISTRITO COD_LOCALIDAD COD_ZONA
## 1 URBANO 1.311801e+13 LO PLAZA 1 1 1
## 2 URBANO 1.311801e+13 LO PLAZA 1 1 1
## 3 URBANO 1.311801e+13 LO PLAZA 1 1 1
## LOCALIDAD COD_ENTIDAD COD_MANZANA ENTIDAD TIPO_MZ COD_CATEGORIA CATEGORIA
## 1 GRAN SANTIAGO 1 3 MACUL URBANO 1 Ciudad
## 2 GRAN SANTIAGO 1 4 MACUL URBANO 1 Ciudad
## 3 GRAN SANTIAGO 1 5 MACUL URBANO 1 Ciudad
## MZ_BASE_CENSO ID_ENTIDAD ID_LOCALIDAD ID_DISTRITO ID_ZONA n_per n_hombres
## 1 1 1.3118e+12 131181001 1311801 1311801001 1584 714
## 2 1 1.3118e+12 131181001 1311801 1311801001 150 83
## 3 1 1.3118e+12 131181001 1311801 1311801001 168 76
## n_mujeres n_edad_0_5 n_edad_6_13 n_edad_14_17 n_edad_18_24 n_edad_25_44
## 1 870 88 154 65 134 642
## 2 67 4 10 9 22 28
## 3 92 9 16 7 20 37
## n_edad_45_59 n_edad_60_mas prom_edad n_inmigrantes n_nacionalidad
## 1 244 257 36.8 317 289
## 2 34 43 43.3 9 9
## 3 33 46 40.8 NA NA
## n_pueblos_orig n_afrodescendencia n_lengua_indigena n_religion
## 1 77 13 11 832
## 2 10 0 NA 104
## 3 33 0 7 105
## n_dificultad_ver n_dificultad_oir n_dificultad_mover n_dificultad_cogni
## 1 43 25 40 27
## 2 17 6 14 9
## 3 12 4 21 9
## n_dificultad_cuidado n_dificultad_comunic n_discapacidad n_estcivcon_casado
## 1 19 8 94 348
## 2 4 4 31 33
## 3 2 3 34 22
## n_estcivcon_conviviente n_estcivcon_conv_civil n_estcivcon_anul_sep_div
## 1 262 27 91
## 2 13 0 13
## 3 15 5 21
## n_estcivcon_viudo n_estcivcon_soltero prom_escolaridad18 n_asistencia_parv
## 1 55 528 14.9 41
## 2 7 63 10.4 3
## 3 9 68 10.0 4
## n_asistencia_basica n_asistencia_media n_asistencia_superior
## 1 149 61 95
## 2 10 5 12
## 3 16 6 4
## n_cine_nunca_curso_primera_infancia n_cine_primaria n_cine_secundaria
## 1 84 317 384
## 2 8 64 56
## 3 15 82 52
## n_cine_terciaria_maestria_doctorado n_cine_especial_diferencial n_analfabet
## 1 758 6 6
## 2 15 1 4
## 3 16 3 8
## n_ocupado n_desocupado n_fuera_fuerza_trabajo n_cise_rec_independientes
## 1 896 66 343 230
## 2 58 15 56 23
## 3 74 7 59 27
## n_cise_rec_dependientes n_cise_rec_trabajador_no_remunerado n_ciuo_1 n_ciuo_2
## 1 656 10 73 382
## 2 33 2 1 2
## 3 47 0 2 3
## n_ciuo_3 n_ciuo_4 n_ciuo_5 n_ciuo_6 n_ciuo_7 n_ciuo_8 n_ciuo_9 n_ciuo_0
## 1 123 58 130 2 35 26 51 1
## 2 1 4 21 1 3 4 19 0
## 3 4 3 20 0 11 3 25 0
## n_caenes_A n_caenes_B n_caenes_C n_caenes_D n_caenes_E n_caenes_F n_caenes_G
## 1 0 17 47 10 4 24 143
## 2 0 0 3 0 0 5 9
## 3 0 0 7 0 0 11 16
## n_caenes_H n_caenes_I n_caenes_J n_caenes_K n_caenes_L n_caenes_M n_caenes_N
## 1 33 32 63 45 17 75 32
## 2 5 3 0 0 0 1 9
## 3 2 5 2 1 0 1 3
## n_caenes_O n_caenes_P n_caenes_Q n_caenes_R n_caenes_S n_caenes_T n_caenes_U
## 1 46 103 107 12 32 15 1
## 2 3 3 5 0 5 4 0
## 3 5 9 2 0 2 5 0
## n_transporte_auto n_transporte_publico n_transporte_camina
## 1 253 437 42
## 2 7 31 8
## 3 4 44 10
## n_transporte_bicicleta n_transporte_motocicleta n_transporte_cab_lan_bote
## 1 30 14 0
## 2 5 0 0
## 3 5 3 0
## n_transporte_otros n_hog prom_per_hog n_hog_unipersonales n_hog_60
## 1 11 625 2.5 165 74
## 2 0 43 3.5 4 5
## 3 2 53 3.2 11 11
## n_hog_menores n_jefatura_mujer n_tenencia_propia_pagada
## 1 179 341 94
## 2 10 24 17
## 3 13 35 40
## n_tenencia_propia_pagandose n_tenencia_arrendada_contrato
## 1 256 222
## 2 2 5
## 3 0 2
## n_tenencia_arrendada_sin_contrato n_tenencia_cedida_trabajo
## 1 21 1
## 2 4 0
## 3 1 0
## n_tenencia_cedida_familiar n_tenencia_otro n_comb_cocina_gas
## 1 24 7 430
## 2 12 3 42
## 3 10 0 53
## n_comb_cocina_parafina n_comb_cocina_lena n_comb_cocina_pellet
## 1 1 0 0
## 2 0 0 0
## 3 0 0 0
## n_comb_cocina_carbon n_comb_cocina_electricidad n_comb_cocina_solar
## 1 1 193 0
## 2 0 1 0
## 3 0 0 0
## n_comb_cocina_no_utiliza n_comb_calefaccion_gas n_comb_calefaccion_parafina
## 1 0 146 79
## 2 0 16 15
## 3 0 22 9
## n_comb_calefaccion_lena n_comb_calefaccion_pellet n_comb_calefaccion_carbon
## 1 1 0 0
## 2 0 0 0
## 3 0 0 2
## n_comb_calefaccion_electricidad n_comb_calefaccion_otra
## 1 323 3
## 2 6 0
## 3 8 0
## n_comb_calefaccion_no_utiliza n_serv_tel_movil n_serv_compu n_serv_tablet
## 1 73 616 496 266
## 2 6 43 22 6
## 3 12 50 28 6
## n_serv_internet_fija n_serv_internet_movil n_serv_internet_satelital
## 1 553 579 25
## 2 25 38 3
## 3 32 48 9
## n_internet n_vp n_vp_ocupada n_vp_desocupada n_tipo_viv_casa n_tipo_viv_depto
## 1 615 780 657 123 88 690
## 2 40 36 36 0 35 0
## 3 51 41 41 0 41 0
## n_tipo_viv_indigena n_tipo_viv_pieza n_tipo_viv_mediagua n_tipo_viv_movil
## 1 1 1 0 0
## 2 0 0 0 0
## 3 0 0 0 0
## n_tipo_viv_otro n_dormitorios_1 n_dormitorios_2 n_dormitorios_3
## 1 0 171 267 155
## 2 1 5 15 9
## 3 0 7 11 14
## n_dormitorios_4 n_dormitorios_5 n_dormitorios_6_o_mas n_viv_hacinadas
## 1 12 3 3 16
## 2 2 4 1 4
## 3 4 3 2 3
## n_viv_irrecuperables n_hog_allegados n_nucleos_hacinados_allegados
## 1 0 13 5
## 2 1 7 6
## 3 0 12 0
## n_viv_no_ampliables n_deficit_cuantitativo n_mat_paredes_hormigon
## 1 11 29 458
## 2 0 14 4
## 3 0 12 0
## n_mat_paredes_albanileria n_mat_paredes_tabique_forrado
## 1 139 12
## 2 27 3
## 3 35 6
## n_mat_paredes_tabique_sin_forro n_mat_paredes_artesanal
## 1 2 1
## 2 2 0
## 3 0 0
## n_mat_paredes_precarios n_mat_techo_tejas n_mat_techo_hormigon
## 1 0 55 457
## 2 0 5 0
## 3 0 0 0
## n_mat_techo_zinc n_mat_techo_fibrocemento n_mat_techo_fonolita
## 1 92 8 0
## 2 30 1 0
## 3 40 1 0
## n_mat_techo_paja n_mat_techo_precarios n_mat_techo_sin_cubierta
## 1 0 0 0
## 2 0 0 0
## 3 0 0 0
## n_mat_piso_radier_con_revestimiento n_mat_piso_radier_sin_revestimiento
## 1 603 1
## 2 32 2
## 3 35 2
## n_mat_piso_baldosa_cemento n_mat_piso_capa_cemento n_mat_piso_tierra
## 1 8 0 0
## 2 2 0 0
## 3 3 1 0
## n_fuente_agua_publica n_fuente_agua_pozo n_fuente_agua_camion
## 1 612 0 0
## 2 36 0 0
## 3 41 0 0
## n_fuente_agua_rio n_distrib_agua_llave n_distrib_agua_llave_fuera
## 1 0 610 2
## 2 0 34 2
## 3 0 38 3
## n_distrib_agua_acarreo n_serv_hig_alc_dentro n_serv_hig_alc_fuera
## 1 0 612 0
## 2 0 34 2
## 3 0 37 4
## n_serv_hig_fosa n_serv_hig_pozo n_serv_hig_acequia_canal
## 1 0 0 0
## 2 0 0 0
## 3 0 0 0
## n_serv_hig_cajon_otro n_serv_hig_bano_quimico n_serv_hig_bano_seco
## 1 0 0 0
## 2 0 0 0
## 3 0 0 0
## n_serv_hig_no_tiene n_fuente_elect_publica n_fuente_elect_diesel
## 1 0 611 1
## 2 0 35 0
## 3 0 41 0
## n_fuente_elect_solar n_fuente_elect_eolica n_fuente_elect_otro
## 1 0 0 0
## 2 0 1 0
## 3 0 0 0
## n_fuente_elect_no_tiene n_basura_servicios n_basura_entierra n_basura_eriazo
## 1 0 608 0 0
## 2 0 36 0 0
## 3 0 41 0 0
## n_basura_rio n_basura_otro SHAPE_Length SHAPE_Area
## 1 0 4 0.021460822 6.437976e-06
## 2 0 0 0.003599962 6.251583e-07
## 3 0 0 0.004533970 8.543052e-07#excluir todos los valores de prom_escolaridad18 que sean 0.
df_nunoa_y_macul <- df_nunoa_y_macul[df_nunoa_y_macul$prom_escolaridad18 != 0, ]Inspección básica
rango mediana cuartiles posibles asimetrías iniciales
summary(df_nunoa_y_macul$prom_escolaridad18)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 8.70 12.40 14.20 13.85 15.60 17.40 2Histograma
ggplot(df_nunoa_y_macul, aes(x = prom_escolaridad18)) +
geom_histogram(bins = 30, fill = "steelblue", color = "white") +
theme_minimal() +
labs(
title = "Distribución de años de escolaridad promedio (18+)",
x = "Años de escolaridad promedio",
y = "Frecuencia"
)## Warning: Removed 2 rows containing non-finite outside the scale range
## (`stat_bin()`).
Densidad
ggplot(df_nunoa_y_macul, aes(x = prom_escolaridad18)) +
geom_density(fill = "orange", alpha = 0.5) +
theme_minimal() +
labs(
title = "Densidad de la escolaridad promedio (18+)",
x = "Años de escolaridad promedio"
)## Warning: Removed 2 rows containing non-finite outside the scale range
## (`stat_density()`).
Boxplot
ggplot(df_nunoa_y_macul, aes(y = prom_escolaridad18)) +
geom_boxplot(fill = "tomato", alpha = 0.6) +
theme_minimal() +
labs(
title = "Boxplot de escolaridad promedio (18+)",
y = "Años de escolaridad"
)## Warning: Removed 2 rows containing non-finite outside the scale range
## (`stat_boxplot()`).
Histograma + normal teórica
ggplot(df_nunoa_y_macul, aes(x = prom_escolaridad18)) +
geom_histogram(aes(y = after_stat(density)),
bins = 30, fill = "grey80", color = "white") +
stat_function(
fun = dnorm,
args = list(
mean = mean(df_nunoa_y_macul$prom_escolaridad18, na.rm = TRUE),
sd = sd(df_nunoa_y_macul$prom_escolaridad18, na.rm = TRUE)
),
color = "red",
linewidth = 1
) +
theme_minimal() +
labs(title = "Escolaridad promedio vs Normal teórica")## Warning: Removed 2 rows containing non-finite outside the scale range
## (`stat_bin()`).
QQ-plot
qqnorm(df_nunoa_y_macul$prom_escolaridad18)
qqline(df_nunoa_y_macul$prom_escolaridad18, col = "red")
nunoa_y_macul <- nunoa_y_macul %>%
mutate(
escolaridad_int = pmin(pmax(round((prom_escolaridad18 - 8.7) * 2) / 2 + 8.7, 8.7), 17.4)
)ggplot(nunoa_y_macul) +
geom_sf(aes(fill = escolaridad_int),
color = NA) +
scale_fill_gradientn(
colours = c("yellow", "orange", "red"),
limits = c(9, 17),
breaks = 9:17,
name = "Años de escolaridad\n(promedio 18+)"
) +
theme_minimal() +
labs(title = "Ñuñoa: Escolaridad promedio (18+) por manzana")
pal <- colorNumeric(
palette = c("yellow", "orange", "red"),
domain = nunoa_y_macul$escolaridad_int,
na.color = "transparent"
)
leaflet(nunoa_y_macul) %>%
addProviderTiles(providers$CartoDB.Positron) %>%
addPolygons(
fillColor = ~pal(escolaridad_int),
fillOpacity = 0.8,
color = "#444444",
weight = 0.3,
smoothFactor = 0.5,
highlightOptions = highlightOptions(
weight = 1.5,
color = "#000000",
fillOpacity = 0.9,
bringToFront = TRUE
),
label = ~paste(
"Escolaridad promedio:",
escolaridad_int, "años"
)
) %>%
addLegend(
pal = pal,
values = ~escolaridad_int,
title = "Escolaridad promedio (18+)",
opacity = 0.9
)## Warning: sf layer has inconsistent datum (+proj=longlat +ellps=GRS80 +towgs84=0,0,0,0,0,0,0 +no_defs).
## Need '+proj=longlat +datum=WGS84'Generacion del html
library(webshot2)
library(stringr)
library(haven)
library(dplyr)
library(janitor)
library(convey)
library(survey)
library(ggplot2)
library(scales)
library(DT)
library(knitr)
library(kableExtra)
library(Hmisc) # para wtd.quantile
library(sf)
library(mapview)
library(leaflet)
comunas_rm <- st_read(
"Cartografía_censo2024_R13.gdb",
layer = "Manzanas_CPV24"
)## Reading layer `Manzanas_CPV24' from data source
## `C:\Users\chris\OneDrive\Escritorio\Casen 2022\casen 2022\Cartografía_censo2024_R13.gdb'
## using driver `OpenFileGDB'
## Simple feature collection with 66873 features and 215 fields
## Geometry type: MULTIPOLYGON
## Dimension: XY
## Bounding box: xmin: -71.51187 ymin: -34.05721 xmax: -70.22923 ymax: -32.96357
## Geodetic CRS: SIRGAS 2000# Filtrar Ñuñoa por código comunal (más robusto)
nunoa_y_macul <- comunas_rm %>%
filter(COMUNA %in% c("ÑUÑOA", "MACUL"))
nunoa_y_macul <- nunoa_y_macul %>%
mutate(
escolaridad_int = pmin(pmax(round((prom_escolaridad18 - 8.7) * 2) / 2 + 8.7, 8.7), 17.4)
)
pal <- colorNumeric(
palette = c("yellow", "orange", "red"),
domain = nunoa_y_macul$escolaridad_int,
na.color = "transparent"
)
leaflet(nunoa_y_macul) %>%
addProviderTiles(providers$CartoDB.Positron) %>%
addPolygons(
fillColor = ~pal(escolaridad_int),
fillOpacity = 0.8,
color = "#444444",
weight = 0.3,
smoothFactor = 0.5,
highlightOptions = highlightOptions(
weight = 1.5,
color = "#000000",
fillOpacity = 0.9,
bringToFront = TRUE
),
label = ~paste(
"Escolaridad promedio:",
escolaridad_int, "años"
)
) %>%
addLegend(
pal = pal,
values = ~escolaridad_int,
title = "Escolaridad promedio (18+)",
opacity = 0.9
)## Warning: sf layer has inconsistent datum (+proj=longlat +ellps=GRS80 +towgs84=0,0,0,0,0,0,0 +no_defs).
## Need '+proj=longlat +datum=WGS84'# mapview(nunoa,
# zcol = "escolaridad_cat", # variable para colorear
# col.regions = c("darkred", "red", "orange", "yellow", "lightyellow"), # colores
# alpha = 0.8, # transparencia
# legend = TRUE)# codigo para generar el html ejecutandolo desde consola
# install.packages("webshot") # instala el paquete
# webshot::install_phantomjs() # instala PhantomJS, necesario para guardar HTML/PNG
#
# library(sf)
# library(dplyr)
# library(mapview)
#
# # Leer la capa
# comunas_rm <- st_read(
# "Cartografía_censo2024_R13.gdb",
# layer = "Manzanas_CPV24"
# )
#
# # Filtrar Ñuñoa y Macul
# nunoa_y_macul <- comunas_rm %>%
# filter(COMUNA %in% c("ÑUÑOA", "MACUL"))
#
# # Crear variable discretizada
# nunoa_y_macul <- nunoa_y_macul %>%
# mutate(
# escolaridad_int = pmin(pmax(round((prom_escolaridad18 - 8.7) * 2)/2 + 8.7, 8.7), 17.4)
# )
#
# # Crear mapa con mapview directamente, dejando que mapview genere la paleta
# mapa <- mapview(
# nunoa_y_macul,
# zcol = "escolaridad_int", # variable para colorear
# layer.name = "Escolaridad promedio",
# col.regions = c("yellow","orange","red") # gradiente de colores
# )
#
# # Guardar como HTML autocontenido
# mapshot(
# mapa,
# url = "nunoa_y_macul_escolaridad.html",
# selfcontained = TRUE
# )https://sociologo.github.io/censo2024/nunoa_y_macul_escolaridad.html
https://sociologo.github.io/censo2024/nunoa_escolaridad.html