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))