In pachamaltese/presupuestochile: Presupuesto de la Nacion de Chile

knitr::opts_chunk$set(
  collapse = TRUE,
  warning = FALSE,
  message = FALSE,
  comment = "#>"
)

Objetivo

Estos datos tienen varios anios con informacion y estan detallados, por lo que conviene usar graficos de lineas.

Partidas

Carga de paquetes:

library(dplyr)
library(highcharter)
library(presupuestochile)

Puedo saber de inmediato el presupuesto agregado del Poder Judicial:

pjud_agregado <- partidas %>% 
  filter(nombre_partida == "PODER JUDICIAL") %>% 
  select(anio, nombre_partida, valor_asignado_partida)

pjud_agregado

hchart(pjud_agregado, "line",
       hcaes(x = anio, y = valor_asignado_partida)) %>% 
  hc_title(text = "Evolucion del presupuesto del Poder Judicial")

Capítulos

Ahora veamos que capitulos contiene la partida del Poder Judicial, pero antes debo obtener los id de las partidas para cada año ya que van cambiando.

pjud_id <- partidas %>% 
  filter(nombre_partida == "PODER JUDICIAL") %>% 
  select(anio, id_partida)

pjud_capitulos <- capitulos %>% 
  inner_join(pjud_id) %>% 
  select(anio, nombre_capitulo, valor_asignado_capitulo)

pjud_capitulos

hchart(pjud_capitulos, "line",
       hcaes(x = anio, y = valor_asignado_capitulo, group = nombre_capitulo)) %>% 
  hc_title(text = "Evolucion del presupuesto del Poder Judicial por Capitulo")

Programas

Ahora veamos que capitulos contiene la partida del Poder Judicial, pero antes debo obtener los id de los capítulo para cada año ya que van cambiando.

pjud_id_2 <- capitulos %>% 
  inner_join(pjud_id) %>% 
  select(anio, id_capitulo)

pjud_programas <- programas %>% 
  inner_join(pjud_id_2) %>% 
  select(anio, nombre_programa, valor_asignado_programa)

pjud_programas

hchart(pjud_programas, "line",
       hcaes(x = anio, y = valor_asignado_programa, group = nombre_programa)) %>% 
  hc_title(text = "Evolucion del presupuesto del Poder Judicial por Programa")

Subtítulos

Finalmente se puede ver el detalle (e.g gasto en personal) que se asigna a cada programa. Se procede de un modo muy similar a lo anterior.

pjud_subtitulos <- subtitulos %>%
  inner_join(pjud_id_2) %>%
  inner_join(programas %>% select(nombre_programa, id_programa, id_capitulo)) %>% 
  inner_join(capitulos %>% select(nombre_capitulo, id_capitulo)) %>% 
  select(anio, nombre_capitulo, nombre_subtitulo, valor_asignado_subtitulo) %>% 
  group_by(anio, nombre_subtitulo) %>% 
  summarise(valor_asignado_subtitulo = sum(valor_asignado_subtitulo))

pjud_subtitulos

hchart(pjud_subtitulos, "line",
       hcaes(x = anio, y = valor_asignado_subtitulo, group = nombre_subtitulo)) %>%
  hc_title(text = "Evolucion del presupuesto del Poder Judicial por Subtítulo")