siedu_indicadores_urbanos/siedu_procesar.R at main · bastianolea/siedu_indicadores_urbanos · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
# Sistema de Indicadores y Estándares de Desarrollo Urbano

library(tidyverse)
library(readxl)
library(janitor)

source("funciones.R")

# el archivo funciona con macros, pero internamente son hojas
# matriz_siedu = "datos/datos_originales/matriz-siedu-publicacion.xlsm"
matriz_siedu = "datos/datos_originales/matriz-siedu-publicacion_2025-03-17.xlsm"

# cargar todos los datos, un objeto por hoja
siedu_2018 <- siedu_cargar(matriz_siedu, 2)
siedu_2019 <- siedu_cargar(matriz_siedu, 3)
siedu_2020 <- siedu_cargar(matriz_siedu, 4)
siedu_2021 <- siedu_cargar(matriz_siedu, 5)
siedu_2022 <- siedu_cargar(matriz_siedu, 6)

# limpiar todas las hojas cargadas
siedu_2018_2 <- siedu_limpiar(siedu_2018, 2018)
siedu_2019_2 <- siedu_limpiar(siedu_2019, 2019)
siedu_2020_2 <- siedu_limpiar(siedu_2020, 2020)
siedu_2021_2 <- siedu_limpiar(siedu_2021, 2021)
siedu_2022_2 <- siedu_limpiar(siedu_2022, 2022)

# unir todos los datos existentes en un solo dataframe
siedu <- bind_rows(siedu_2018_2,
                   siedu_2019_2,
                   siedu_2020_2,
                   siedu_2021_2,
                   siedu_2022_2)

# datos de todas las variables disponibles, del año mas reciente que se tenga
siedu_2 <- siedu |>
  arrange(comuna, variable, desc(año)) |>
  group_by(comuna, variable) |>
  slice_max(año) |>
  ungroup() |>
  relocate(año, .before = variable)

# agregar información de comunas
comunas <- read_csv2("datos/datos_externos/cut_comuna.csv") |>
  mutate(codigo_comuna = as.numeric(codigo_comuna))

siedu_3 <- siedu_2 |>
  select(-comuna) |>
  rename(codigo_comuna = cut_comuna) |>
  mutate(codigo_comuna = as.numeric(codigo_comuna)) |>
  left_join(comunas, join_by(codigo_comuna)) |>
  relocate(starts_with("codigo"), starts_with("nombre")) |>
  select(-abreviatura_region)

# guardar ----
readr::write_csv2(siedu_3, "datos/siedu_indicadores_desarrollo_urbano.csv")
arrow::write_parquet(siedu_3, "datos/siedu_indicadores_desarrollo_urbano.parquet")

# siedu_2 <- readr::read_csv2("datos/siedu_indicadores_desarrollo_urbano.csv")