Semana 1: Presupuesto de las municipalidades del departamento de Lima

La data de esta semana proviene de Consulta Amigable, parte del portal de transparencia económica del MEF. La data es anual y se ha utilizado toda la información disponible del portal, el cual cuenta desde el 2007 hasta el 2019.

Diccionario

municipalidades-lima.csv

Variable Clase Descripción
Periodo numérico Año de la gestión
Municipalidad character Municipalidad Distrital de Lima
PIA numérico Presupuesto Inicial de Apertura
PIM numérico Presupuesto Institucional Modificado
Certificación numérico Concepto Técnico del presupuesto público
Compromiso Anual numérico Concepto Técnico del presupuesto público
Atención de Compromiso Mensual numérico Concepto Técnico del presupuesto público
Devengado numérico Concepto Técnico del presupuesto público
Girado numérico Concepto Técnico del presupuesto público
Avance % numérico Ratio de ejecutabilidad
  • El Presupuesto Institucional de Apertura (PIA), es el Presupuesto Institucional aprobado antes del inicio del periodo fiscal.
  • El Presupuesto Institucional Modificado (PIM), es el Presupuesto Institucional actualizado como consecuencia de las modificaciones presupuestarias, tanto a nivel institucional como a nivel funcional programático, efectuadas durante el año fiscal, a partir del PIA.
  • Crédito Presupuestario, Dotación de recursos consignada en los Presupuestos del Sector Público, con el objeto de que las entidades públicas puedan ejecutar gasto público. Es de carácter limitativo y constituye la autorización máxima de gasto que toda entidad pública puede ejecutar, conforme a las asignaciones individualizadas de gasto, que figuran en los presupuestos, para el cumplimiento de sus objetivos aprobados.
  • Compromiso Anual, Es un instrumento de programación del gasto público de corto plazo, por toda fuente de financiamiento, que permite la constante compatibilización de la programación del presupuesto autorizado, con el marco macroeconómico multianual, las reglas fiscales contenidas en la Ley de Responsabilidad y Transparencia Fiscal y la capacidad de financiamiento del año fiscal respectivo. Para efecto de la determinación y revisión de la PCA, se toma en cuenta que ésta contenga las autorizaciones del nivel de gasto, destinadas a atender los gastos rígidos (planillas de remuneraciones y pensiones, pago de los servicios básicos, entre otros), las obligaciones que devienen de años fiscales precedentes conforme a la normatividad vigente; la culminación de proyectos de inversión pública; el mantenimiento de la infraestructura pública resultante de proyectos de inversión pública, y la atención de las intervenciones en los Programas Presupuestales, entre otros.

Cargando la base de datos

Lo primero que tenemos que hacer es cargar la data! De esta manera sencilla lo haremos en R:

# Primero instalaremos en caso no tengamos instalado el paquete

if (!require("readr")) {
   install.packages("readr")
   library(readr)
}

# Luego leeremos la data directo de github

municipalidades <- readr::read_csv('https://raw.githubusercontent.com/BESTDATASCIENCE/manos-a-la-data/master/data/2020/2020-03-04/municipalidades.csv')

Explorando la data: Primeros pasos

if (!require("ggplot2")) {
   install.packages("ggplot2")
   library(ggplot2)
}

if (!require("dplyr")) {
   install.packages("dplyr")
   library(dplyr)
}

municipalidades2 <- municipalidades %>% filter(PROVINCIA=="MUNICIPALIDAD METROPOLITANA DE LIMA")
municipalidades3 <- municipalidades %>% filter(PROVINCIA=="MUNICIPALIDAD PROVINCIAL DE BARRANCA")

ggplot(data = municipalidades2) +
  geom_boxplot(mapping = aes(x = reorder(Municipalidad, avance, FUN = median), y = avance)) +
  coord_flip() +labs(title = "Avance presupuestal", subtitle = "Histórico 2007-2019",caption = "Fuente: Consulta Amigable",
                     x="Municipalidades", y="Avance presupuestal (%)")

ggplot(data = municipalidades3) +
  geom_boxplot(mapping = aes(x = reorder(Municipalidad, avance, FUN = median), y = avance)) +
  coord_flip() +labs(title = "Avance presupuestal", subtitle = "Histórico 2007-2019",caption = "Fuente: Consulta Amigable",
                     x="Municipalidades", y="Avance presupuestal (%)")

¿No entendiste muy bien los gráficos? No te preocupes. En esta sección te explicamos. La idea de explorar con un boxplot, es para tener idea de cómo se distribuye la data. En este caso, cómo

Tiempo de responder preguntas y curiosidades!

¿Cuáles son las municipalidades que en general cuentan con una mejor ejecución de gasto? ¿Cuáles son las de peor ejecución de gasto? o ¿Cómo ha evolucionado la ejecución de gasto histórica de las municipalidades?

¿Cuáles son las municipalidades que en general cuentan con una mejor ejecución de gasto?

if (!require("ggplot2")) {
   install.packages("ggplot2")
   library(ggplot2)
}

if (!require("dplyr")) {
   install.packages("dplyr")
   library(dplyr)
}

if (!require("DT")) {
   install.packages("dplyr")
   library(dplyr)
}

  municipalidades %>% 
    group_by(Municipalidad) %>%
    summarise(avance=median(avance)) %>%
    arrange(desc(avance)) %>% DT::datatable()

¿Cuáles son las municipalidades que en general cuentan con una peor ejecución de gasto?

  municipalidades %>% 
    group_by(Municipalidad) %>%
    summarise(avance=median(avance)) %>%
    arrange(avance) %>% DT::datatable()

¿Cómo ha evolucionado la ejecución de gasto histórica de las municipalidades distritales de la Municipalidad Metropolitana de Lima?

 p5 <- ggplot(municipalidades2, aes(x = periodo, y = avance))

  
  (p5 <- p5 + geom_line() +
      facet_wrap(~Municipalidad, ncol = 5)+
      
      theme( axis.text = element_text( size = 7 ),
             axis.text.x = element_text( size = 6 ),
             axis.title = element_text( size = 7, face = "bold" ),
             legend.position="none",
             strip.text = element_text(size = 4))  +
      labs(title = "Avance presupuestal", subtitle = "Histórico 2007-2019",caption = "Fuente: Consulta Amigable",
           x="Periodo", y="Avance presupuestal (%)"))

Para los que quieran una línea de tendencia es así de fácil.

(p5 <- p5 + geom_line() +
      facet_wrap(~Municipalidad, ncol = 10)+
      
      theme( axis.text = element_text( size = 14 ),
             axis.text.x = element_text( size = 12 ),
             axis.title = element_text( size = 14, face = "bold" ),
             legend.position="none",
             strip.text = element_text(size = 6))  +
      labs(title = "Avance presupuestal", subtitle = "Histórico 2007-2019",caption = "Fuente: Consulta Amigable",
           x="Periodo", y="Avance presupuestal (%)")+ stat_smooth(method=lm))