Elección de parámetros
Samuel Calderon
Source:vignettes/elegir-parametros.Rmd
elegir-parametros.RmdA pesar de que este paquete brinda una manera de interactuar con la plataforma de seguimiento a la ejecución presupuestal, es necesario mencionar que yo (el autor del paquete) no he tenido ningún tipo de participación en el diseño, programación o mantenimiento de la plataforma del MEF. La plataforma no parece haber sido diseñada pensando en consultas fuera de su interfaz gráfica, que protege al usuario típico de tener que conocer las maneras tan distintas en que se definen sus parámetros, tanto en sus nombres como en sus valores esperados.
Pero si estás leyendo esto significa que la interfaz definida por el equipo del MEF no es suficiente para tus propósitos, y tienes la disposición necesaria para invertir un poco de esfuerzo para obtener la gran recompensa de aprovechar de manera más eficiente la información de la plataforma. Siéntete libre de consultar este documento cuantas veces sea necesario.
A pesar de que este artículo se centra en mostrar ejemplos del módulo de gasto, se sigue la misma lógica para las consultas al módulo de ingreso.
El flujo de trabajo
Como pasa con cualquier paquete en R, para usarlo debemos cargarlo.
El flujo de trabajo propuesto por perutranspaeconomica consiste en:
- Iniciar
- Elegir
- Consultar
Por lo pronto, iniciar no requiere más trabajo que el uso de
iniciar_transparencia_economica(). Este documento busca
explicar con mayor detalle la manera en que se deben definir los
parámetros pasados a las funciones elegir_*() para, en
combinación con consultar(), poder hacer consultas
exitosas.
La interacción con el sistema del MEF es mejor aprovechable si se tienen conocimientos acerca de Sistema Nacional de Presupuesto Público. Para ello, recomiendo la lectura del Decreto Legislativo Nº 1440 Decreto Legislativo del Sistema Nacional de Presupuesto Público. En especial del sub capítulo II y III.
Funciones de elección
El paquete permite especificar todas las consultas que se pueden
hacer desde la plataforma del MEF, del 2012 en adelante. A continuación
se explica cómo definir cada uno de los parámetros. En todos los casos
se hará uso de consultar() para ver la tabla
consultada.
Elegir periodo anual
Para esto usamos elegir_periodo_anual(). Toda consulta
requiere que se defina el periodo anual. Cuando no se especifica ningún
año dentro de esta función, se usa por defecto el año en curso.
iniciar_transparencia_economica() %>%
elegir_periodo_anual(2022) %>%
consultar()
#> ℹ Iniciando consulta
#> ℹ Unificando consultas...
#> ✔ Consultas realizadas y unificadas
#> # A tibble: 1 × 10
#> periodo total pia pim certificacion compromiso_anual
#> <dbl> <chr> <dbl> <dbl> <dbl> <dbl>
#> 1 2022 TOTAL 197002269014 237822055719 225523178399 215881080684
#> # ℹ 4 more variables: atencion_de_compromiso_mensual <dbl>, devengado <dbl>,
#> # girado <dbl>, avance_percent <dbl>Debido a que no estamos especificando ningún otro parámetro aún,
consultar() nos devuelve los datos del presupuesto total.
Es la misma información que se obtiene al ingresar a la plataforma de
manera normal.
Es posible especificar más de un año de consulta. Para ello basta con especificar un vector numérico con los años que nos interesan.
iniciar_transparencia_economica() %>%
elegir_periodo_anual(c(2012, 2014, 2016)) %>%
consultar()
#> ℹ Iniciando consulta
#> ⠙ 1/3 ETA: 4s | Ejecutando consulta
#> ℹ Unificando consultas...
#> ✔ Consultas realizadas y unificadas
#> # A tibble: 3 × 10
#> periodo total pia pim certificacion compromiso_anual
#> <dbl> <chr> <dbl> <dbl> <dbl> <dbl>
#> 1 2012 TOTAL 95534635146 122380231023 104861699373 103676969380
#> 2 2014 TOTAL 118934253913 144805725965 131410018397 129777581135
#> 3 2016 TOTAL 138490511244 158282217927 144536534140 137792009934
#> # ℹ 4 more variables: atencion_de_compromiso_mensual <dbl>, devengado <dbl>,
#> # girado <dbl>, avance_percent <dbl>Cada sección que viene a continuación muestra un tipo de elección de detalle con uno o dos gráficos que explican la posible ruta tomando en cuenta los argumentos de la consulta. Al terminar de repasar cada tipo de elección se aclarará a qué se hace referencia con “Consulta base”.
Para el resto de la explicación se omite mostrar la metadata de la consulta para enfocarnos en los datos obtenidos.
Elegir quién gasta
Esta función permite buscar la información de ejecución presupuestal según el tipo de entidad que queremos consultar. En su grado más alto de especificidad se puede llegar a diferenciar según Unidad Ejecutora, Municipio o Mancomunidad. El gráfico muestra todos los elementos de consulta intermedios a los que se puede acceder. Debe tenerse en cuenta que una vez tomada una “ruta” de consulta no es posible acceder a otra. Por ejemplo, no es posible consultar por pliego y departamento al mismo tiempo.
A manera de ejemplo, si quisiéramos ver todos los niveles de gobierno
disponibles lo especificamos en el argumento nivel.
Recuerda que siempre es necesario usar
elegir_periodo_anual().
iniciar_transparencia_economica() %>%
elegir_periodo_anual(2022) %>%
elegir_quien_gasta(nivel = "todos") %>%
consultar()
#> # A tibble: 3 × 12
#> periodo cod_nivel_de_gobierno desc_nivel_de_gobierno pia pim
#> <dbl> <chr> <chr> <dbl> <dbl>
#> 1 2022 E GOBIERNO NACIONAL 139099209295 134800977215
#> 2 2022 M GOBIERNOS LOCALES 21572594607 52638714049
#> 3 2022 R GOBIERNOS REGIONALES 36330465112 50382364455
#> # ℹ 7 more variables: certificacion <dbl>, compromiso_anual <dbl>,
#> # atencion_de_compromiso_mensual <dbl>, devengado <dbl>, girado <dbl>,
#> # avance_percent <dbl>, nivel <chr>Con esto podemos ver que existen tres niveles de gobierno. En caso se escoja profundizar la consulta por Gobierno Nacional o Gobiernos Regionales se estaría tomando el camino de Sector. En este caso, escogemos Gobierno Nacional para ver el presupuesto por sector. Para ello, usamos el código del nivel de gobierno escogido. Nótese que para mayor comodidad en el procesamiento de los datos, se incluyen columnas extras con la metadata de la consulta.
iniciar_transparencia_economica() %>%
elegir_periodo_anual(2022) %>%
elegir_quien_gasta(nivel = "E", sector = "todos") %>%
consultar()
#> # A tibble: 30 × 13
#> periodo cod_sector desc_sector pia pim
#> <dbl> <chr> <chr> <dbl> <dbl>
#> 1 2022 01 PRESIDENCIA CONSEJO MINISTROS 7755356930 5868630182
#> 2 2022 03 CULTURA 606374213 615384354
#> 3 2022 04 PODER JUDICIAL 3185867103 3169460209
#> 4 2022 05 AMBIENTAL 794397975 751245011
#> 5 2022 06 JUSTICIA 1854961785 2126341231
#> 6 2022 07 INTERIOR 10880820467 13924845983
#> 7 2022 08 RELACIONES EXTERIORES 848424011 987788424
#> 8 2022 09 ECONOMIA Y FINANZAS 42688806017 34974113894
#> 9 2022 10 EDUCACION 17250060955 13222235791
#> 10 2022 11 SALUD 11527638911 13076347305
#> # ℹ 20 more rows
#> # ℹ 8 more variables: certificacion <dbl>, compromiso_anual <dbl>,
#> # atencion_de_compromiso_mensual <dbl>, devengado <dbl>, girado <dbl>,
#> # avance_percent <dbl>, nivel <chr>, sector <chr>Ahora que se sabe cuáles son los sectores que conforman al gobierno nacional, podemos priorizar conocer la ejecución de alguno en específico. Por ejemplo, el sector salud. Para ello, actualizamos nuestros parámetros de búsqueda indicando el código del sector correspondiente y especificando conocer todos los pliegos que lo conforman.
iniciar_transparencia_economica() %>%
elegir_periodo_anual(2022) %>%
elegir_quien_gasta(nivel = "E", sector = "11", pliego = "todos") %>%
consultar()
#> # A tibble: 5 × 14
#> periodo cod_pliego desc_pliego pia pim certificacion
#> <dbl> <chr> <chr> <dbl> <dbl> <dbl>
#> 1 2022 011 M. DE SALUD 8.64e9 9.90e9 9319542553
#> 2 2022 131 INSTITUTO NACIONAL DE SALUD 1.33e8 1.48e8 138496300
#> 3 2022 134 SUPERINTENDENCIA NACIONAL DE S… 5.73e7 5.85e7 57624751
#> 4 2022 135 SEGURO INTEGRAL DE SALUD 2.40e9 2.48e9 2464060821
#> 5 2022 136 INSTITUTO NACIONAL DE ENFERMED… 2.95e8 4.82e8 425775210
#> # ℹ 8 more variables: compromiso_anual <dbl>,
#> # atencion_de_compromiso_mensual <dbl>, devengado <dbl>, girado <dbl>,
#> # avance_percent <dbl>, nivel <chr>, sector <chr>, pliego <chr>Con esto, ahora podemos ver que el sector salud está conformado por cinco pliegos. Puede que ahora querramos ver los datos de las unidades ejecutoras del Ministerio de salud. Nuevamente, especificamos esto en la consulta.
iniciar_transparencia_economica() %>%
elegir_periodo_anual(2022) %>%
elegir_quien_gasta(nivel = "E", sector = "11", pliego = "011", unidad_ejecutora = "todos") %>%
consultar()
#> # A tibble: 34 × 15
#> periodo cod_unidad_ejecutora desc_unidad_ejecutora pia pim
#> <dbl> <chr> <chr> <dbl> <dbl>
#> 1 2022 001-117 ADMINISTRACION CENTRAL - MINSA 2.97e9 1.75e9
#> 2 2022 005-121 INSTITUTO NACIONAL DE SALUD MENTAL 4.01e7 6.37e7
#> 3 2022 007-123 INSTITUTO NACIONAL DE CIENCIAS NE… 4.91e7 7.44e7
#> 4 2022 008-124 INSTITUTO NACIONAL DE OFTALMOLOGIA 4.07e7 6.18e7
#> 5 2022 009-125 INSTITUTO NACIONAL DE REHABILITAC… 3.89e7 5.35e7
#> 6 2022 010-126 INSTITUTO NACIONAL DE SALUD DEL N… 1.85e8 2.69e8
#> 7 2022 011-127 INSTITUTO NACIONAL MATERNO PERINA… 1.20e8 1.87e8
#> 8 2022 016-132 HOSPITAL NACIONAL HIPOLITO UNANUE 1.50e8 2.63e8
#> 9 2022 017-133 HOSPITAL HERMILIO VALDIZAN 4.02e7 5.65e7
#> 10 2022 020-136 HOSPITAL SERGIO BERNALES 8.49e7 1.29e8
#> # ℹ 24 more rows
#> # ℹ 10 more variables: certificacion <dbl>, compromiso_anual <dbl>,
#> # atencion_de_compromiso_mensual <dbl>, devengado <dbl>, girado <dbl>,
#> # avance_percent <dbl>, nivel <chr>, sector <chr>, pliego <chr>,
#> # unidad_ejecutora <chr>Este ha sido el nivel de detalle más profundo que brinda la consulta por esta ruta. El ejercicio es muy similar si se quiere obtener los datos por municipio. Por ejemplo, para conocer los datos de los distritos de la provincia de Cangallo, región Ayacucho.
iniciar_transparencia_economica() %>%
elegir_periodo_anual(2022) %>%
elegir_quien_gasta(nivel = "M", goblocal_o_manc = "M", departamento = "05", provincia = "02", municipalidad = "todos") %>%
consultar()
#> # A tibble: 6 × 16
#> periodo cod_municipalidad desc_municipalidad pia pim
#> <dbl> <chr> <chr> <dbl> <dbl>
#> 1 2022 050201-300454 MUNICIPALIDAD PROVINCIAL DE CANGALLO 8.42e6 1.88e7
#> 2 2022 050202-300455 MUNICIPALIDAD DISTRITAL DE CHUSCHI 3.18e6 2.97e7
#> 3 2022 050203-300456 MUNICIPALIDAD DISTRITAL DE LOS MOROCH… 1.83e7 3.49e7
#> 4 2022 050204-300457 MUNICIPALIDAD DISTRITAL DE MARIA PARA… 1.12e6 1.08e7
#> 5 2022 050205-300458 MUNICIPALIDAD DISTRITAL DE PARAS 2.84e6 2.01e7
#> 6 2022 050206-300459 MUNICIPALIDAD DISTRITAL DE TOTOS 1.32e6 1.03e7
#> # ℹ 11 more variables: certificacion <dbl>, compromiso_anual <dbl>,
#> # atencion_de_compromiso_mensual <dbl>, devengado <dbl>, girado <dbl>,
#> # avance_percent <dbl>, nivel <chr>, goblocal_o_manc <chr>,
#> # departamento <chr>, provincia <chr>, municipalidad <chr>Elegir en qué se gasta
Para esta consulta hace falta encadenar la función
elegir_en_que_se_gasta(). El sistema de consulta amigable
del MEF permite buscar según dos tipos de clasificación, la función
mencionada combina ambas clasificaciones en un solo paso (simulando la
manera en que funciona la interfaz del MEF). A continuación una
explicación de la lógica de la búsqueda, cabe mencionar que esta es la
parte que puede resultar más complicada de entender, pero se incluye un
ejemplo integrador para ilustrar mejor la explicación.
En primer lugar, se puede buscar los gastos según su Clasificación Programática. Aquí se empieza definiendo la Categoría Presupuestal, en la que luego se puede especificar el Producto o proyecto. También es posible finalmente buscar las actividades o acciones de inversión u obra. Cabe recordar que esta clasificación está vinculado a los Programas Presupuestales (cada categoría presupuestal corresponde con un programa presupuestal. Podríamos decir que esta clasificación trata de responder las siguientes preguntas:
Categoría Presupuestal: ¿qué oportunidad de mejora quiero atender en la población? o ¿qué problema de la población quiero resolver o mitigar?
Producto: ¿qué bienes o servicios puedo entregar a la población para atender o mitigar el problema identificado?
Actividad: ¿qué voy a hacer de manera más específica para lograr brindar esos bienes o servicios?
La segunda clasificación es la Funcional, en la que es posible llegar hasta el detalle de grupo funcional. En otras palabras, ” constituye una clasificación detallada de las funciones a cargo del Estado y tiene por objeto facilitar el seguimiento, exposición y análisis de las tendencias del gasto público respecto a las principales funciones del Estado”1.
Habiendo llegado hasta el nivel de detalle de Actividad según la Clasificación Programática y al mismo tiempo hasta el nivel de Grupo Funcional según la Clasificación Funcional, es posible obtener la información de la Meta Presupuestaria, que indica cómo se mide el avance de lo programado.
A continuación un ejemplo para ilustrar la explicación. Empezamos viendo las categorías presupuestales. Recordemos que estas se nombran (o al menos se deberían nombrar) como una acción respecto a un problema a resolver. En este caso hacemos la búsqueda para el 2021.
iniciar_transparencia_economica() %>%
elegir_periodo_anual(2021) %>%
elegir_en_que_se_gasta(categoria_presupuestal = "todos") %>%
consultar()
#> # A tibble: 92 × 12
#> periodo cod_categoria_presupue…¹ desc_categoria_presupuestal pia pim
#> <dbl> <chr> <chr> <dbl> <dbl>
#> 1 2021 0001 PROGRAMA ARTICULADO NUTRICION… 2.39e9 2.90e9
#> 2 2021 0002 SALUD MATERNO NEONATAL 1.92e9 2.33e9
#> 3 2021 0016 TBC-VIH/SIDA 7.13e8 6.92e8
#> 4 2021 0017 ENFERMEDADES METAXENICAS Y ZO… 3.61e8 4.09e8
#> 5 2021 0018 ENFERMEDADES NO TRANSMISIBLES 6.04e8 7.23e8
#> 6 2021 0024 PREVENCION Y CONTROL DEL CANC… 5.26e8 7.91e8
#> 7 2021 0030 REDUCCION DE DELITOS Y FALTAS… 4.54e9 5.05e9
#> 8 2021 0031 REDUCCION DEL TRAFICO ILICITO… 2.63e8 2.76e8
#> 9 2021 0032 LUCHA CONTRA EL TERRORISMO 3.03e8 3.09e8
#> 10 2021 0036 GESTION INTEGRAL DE RESIDUOS … 1.49e9 2.39e9
#> # ℹ 82 more rows
#> # ℹ abbreviated name: ¹cod_categoria_presupuestal
#> # ℹ 7 more variables: certificacion <dbl>, compromiso_anual <dbl>,
#> # atencion_de_compromiso_mensual <dbl>, devengado <dbl>, girado <dbl>,
#> # avance_percent <dbl>, categoria_presupuestal <chr>Vemos que para el 2021 se definieron 92 categorías presupuestales. Sabemos que en el país se produce una alta cantidad de drogas cocaínicas, así que nos interesa ver qué productos se han definido para el Programa Presupuestal 0031 “Reducción del tráfico ilícito de drogas”.
iniciar_transparencia_economica() %>%
elegir_periodo_anual(2021) %>%
elegir_en_que_se_gasta(categoria_presupuestal = "0031", producto = "todos") %>%
consultar()
#> # A tibble: 5 × 13
#> periodo cod_proyecto desc_proyecto pia pim
#> <dbl> <chr> <chr> <dbl> <dbl>
#> 1 2021 2522056 ADQUISICION DE VEHICULO; EN EL(LA) UNIDAD … 0 2.18e5
#> 2 2021 3000001 ACCIONES COMUNES 7.94e6 8.51e6
#> 3 2021 3000294 OPERACIONES DE INTERDICCION CONTRA EL TRAF… 2.28e8 2.37e8
#> 4 2021 3000490 HECTAREAS REDUCIDAS DE CULTIVOS ILICITOS D… 1.99e7 1.98e7
#> 5 2021 3000492 PROCESOS JUDICIALES CON INTERVENCION DE LA… 7.46e6 1.01e7
#> # ℹ 8 more variables: certificacion <dbl>, compromiso_anual <dbl>,
#> # atencion_de_compromiso_mensual <dbl>, devengado <dbl>, girado <dbl>,
#> # avance_percent <dbl>, categoria_presupuestal <chr>, producto <chr>La tabla obtenida nos muestra información de los productos de este programa presupuestal, pero también de proyectos de inversión vinculados. Podemos reconocer los productos porque cuentan con una codificación que empieza con “30”. Debido a que el insumo de primordial es la hoja de coca, nos interesa ver qué presupuesto tienen las actividades que se hacen para reducir los cultivos ilícitos. La tabla nos muestra que dicho producto cuenta con código “3000490”.
iniciar_transparencia_economica() %>%
elegir_periodo_anual(2021) %>%
elegir_en_que_se_gasta(
categoria_presupuestal = "0031",
producto = "3000490",
actividad = "todos"
) %>%
consultar()
#> # A tibble: 4 × 14
#> periodo cod_actividad_accion_de…¹ desc_actividad_accion_de_inv…² pia pim
#> <dbl> <chr> <chr> <dbl> <dbl>
#> 1 2021 5003057 OPERACIONES DE SEGURIDAD PARA… 4.97e6 5.87e6
#> 2 2021 5004070 REDUCCION DE HECTAREAS DE PLA… 1 e6 0
#> 3 2021 5004072 SOPORTE AEREO PARA LA REDUCCI… 1.28e7 1.32e7
#> 4 2021 5004970 ASISTENCIA A LA POBLACION POR… 1.17e6 7.12e5
#> # ℹ abbreviated names: ¹cod_actividad_accion_de_inversion_obra,
#> # ²desc_actividad_accion_de_inversion_obra
#> # ℹ 9 more variables: certificacion <dbl>, compromiso_anual <dbl>,
#> # atencion_de_compromiso_mensual <dbl>, devengado <dbl>, girado <dbl>,
#> # avance_percent <dbl>, categoria_presupuestal <chr>, producto <chr>,
#> # actividad <chr>La nueva consulta nos indica que la actividad específica de “Reducción de hectáreas de plantaciones ilegales” contó con un presupuesto institucional de apertura de 1000000 de soles, de los cuales se tiene 0% de avance. Esto no significa que el Estado el 2021 no haya usado su presupuesto disponible para reducir los cultivos ilegales, podemos ver que el resto de actividades del producto tienen valores superiores al 88% en todos los casos.
Es posible consultar el mismo tema a través de la clasificación funcional. Empecemos viendo todas las funciones del 2021.
iniciar_transparencia_economica() %>%
elegir_periodo_anual(2021) %>%
elegir_en_que_se_gasta(funcion = "todos") %>%
consultar()
#> # A tibble: 25 × 12
#> periodo cod_funcion desc_funcion pia pim
#> <dbl> <chr> <chr> <dbl> <dbl>
#> 1 2021 01 LEGISLATIVA 6.15e 8 6.11e 8
#> 2 2021 02 RELACIONES EXTERIORES 7.60e 8 9.95e 8
#> 3 2021 03 PLANEAMIENTO, GESTION Y RESERVA DE CONTI… 2.41e10 2.23e10
#> 4 2021 04 DEFENSA Y SEGURIDAD NACIONAL 4.98e 9 5.57e 9
#> 5 2021 05 ORDEN PUBLICO Y SEGURIDAD 1.06e10 1.26e10
#> 6 2021 06 JUSTICIA 6.93e 9 6.96e 9
#> 7 2021 07 TRABAJO 5.16e 8 3.63e 9
#> 8 2021 08 COMERCIO 5.23e 8 7.16e 8
#> 9 2021 09 TURISMO 4.38e 8 6.49e 8
#> 10 2021 10 AGROPECUARIA 8.75e 9 7.11e 9
#> # ℹ 15 more rows
#> # ℹ 7 more variables: certificacion <dbl>, compromiso_anual <dbl>,
#> # atencion_de_compromiso_mensual <dbl>, devengado <dbl>, girado <dbl>,
#> # avance_percent <dbl>, funcion <chr>En este caso obtenemos 25 resultados, que corresponden con las funciones principales del Estado. Este listado puede ayudar a entender mejor la diferencia con el otro tipo de clasificación.
La Clasificación Programática divide el presupuesto de acuerdo a los problemas que el Estado tiene que atender. Dichos problemas pueden ir variando con el tiempo, se pueden mitigar o pueden aparecer nuevos más urgentes. Por ejemplo, si de pronto la seguridad ciudadana se viera amenazada constantemente por el avance de pandillas y crimenes asociados a ellas, se podría pensar en incluir un programa para mitigar esto. Como en la actualidad no se considera ello como problema público, no existe dentro de la Clasificación Programática.
En cambio, la Clasificación Funcional abarca las funciones primordiales del Estado, aquellas que como ciudadanos no podemos dejar de percibir. Esto es, independientemente de cuáles sean los problemas específicos pendientes de solucionar, el Estado no puede dejar de brindarnos Orden Público, Seguridad, Justicia, o Legislación, por nombrar algunas funciones.
Para seguir con el ejemplo, el tema del tráfico ilícito de drogas se aborda dentro de la Función Orden Público y Seguridad (código 05). Procedemos con la consulta para conocer las divisiones funcionales.
iniciar_transparencia_economica() %>%
elegir_periodo_anual(2021) %>%
elegir_en_que_se_gasta(
funcion = "05",
division_funcional = "todos"
) %>%
consultar()
#> # A tibble: 8 × 13
#> periodo cod_division_funcional desc_division_funcional pia pim
#> <dbl> <chr> <chr> <dbl> <dbl>
#> 1 2021 004 PLANEAMIENTO GUBERNAMENTAL 8.53e7 6.67e7
#> 2 2021 006 GESTION 1.37e9 1.41e9
#> 3 2021 011 TRANSFERENCIAS E INTERMEDIACION … 4.08e7 6.24e7
#> 4 2021 014 ORDEN INTERNO 7.67e9 8.37e9
#> 5 2021 015 CONTROL DE DROGAS 4.50e8 5.04e8
#> 6 2021 016 GESTION DE RIESGOS Y EMERGENCIAS 9.37e8 2.18e9
#> 7 2021 018 SEGURIDAD JURIDICA 2.21e7 2.49e7
#> 8 2021 051 ASISTENCIA SOCIAL 2.72e6 2.03e6
#> # ℹ 8 more variables: certificacion <dbl>, compromiso_anual <dbl>,
#> # atencion_de_compromiso_mensual <dbl>, devengado <dbl>, girado <dbl>,
#> # avance_percent <dbl>, funcion <chr>, division_funcional <chr>En las divisiones funcionales podemos ver de manera más específica aquello que el Estado debe brindar en relación al Orden Interno y Seguridad. Nuevamente vemos que independientemente de los problemas existentes, un Estado debe ser capaz de proveer Asistencia Social, Seguridad Jurídica, Gestión de Riesgos y Emergencias, entre otras cosas. Podemos suponer que el tráfico ilícito de drogas se abarca dentro del Control de drogas (código 015). Procedemos a consultar sus grupos funcionales.
iniciar_transparencia_economica() %>%
elegir_periodo_anual(2021) %>%
elegir_en_que_se_gasta(
funcion = "05",
division_funcional = "015",
grupo_funcional = "todos"
) %>%
consultar()
#> # A tibble: 3 × 14
#> periodo cod_grupo_funcional desc_grupo_funcional pia pim
#> <dbl> <chr> <chr> <dbl> <dbl>
#> 1 2021 0032 DESARROLLO ALTERNATIVO 9.78e7 1.41e8
#> 2 2021 0033 PREVENCION Y REHABILITACION 8.46e6 7.84e6
#> 3 2021 0034 INTERDICCION, LAVADO DE DINERO Y DE… 3.43e8 3.55e8
#> # ℹ 9 more variables: certificacion <dbl>, compromiso_anual <dbl>,
#> # atencion_de_compromiso_mensual <dbl>, devengado <dbl>, girado <dbl>,
#> # avance_percent <dbl>, funcion <chr>, division_funcional <chr>,
#> # grupo_funcional <chr>De esta manera, podemos ver que en la división funcional Control de Drogas, se tiene los grupos funcionales “Desarrollo alternativo”, “Prevención y Rehabilitación”, e “Interdicción, lavado de dinero y delitos conexos”.
En este punto, podemos empezar a consultar también según la Clasificación Programática. Recordemos que estábamos consultando acerca de la reducción de cultivos ilícitos. En los grupos funcionales encontrados, el de “Interdicción, lavado de dinero y delitos conexos” parece más relacionado. Veamos qué programas presupuestales abordan este grupo funcional.
iniciar_transparencia_economica() %>%
elegir_periodo_anual(2021) %>%
elegir_en_que_se_gasta(
funcion = "05",
division_funcional = "015",
grupo_funcional = "0034",
categoria_presupuestal = "todos"
) %>%
consultar()
#> # A tibble: 2 × 15
#> periodo cod_categoria_presupues…¹ desc_categoria_presupuestal pia pim
#> <dbl> <chr> <chr> <dbl> <dbl>
#> 1 2021 0031 REDUCCION DEL TRAFICO ILICITO… 2.56e8 2.65e8
#> 2 2021 0074 GESTION INTEGRADA Y EFECTIVA … 8.75e7 8.99e7
#> # ℹ abbreviated name: ¹cod_categoria_presupuestal
#> # ℹ 10 more variables: certificacion <dbl>, compromiso_anual <dbl>,
#> # atencion_de_compromiso_mensual <dbl>, devengado <dbl>, girado <dbl>,
#> # avance_percent <dbl>, categoria_presupuestal <chr>, funcion <chr>,
#> # division_funcional <chr>, grupo_funcional <chr>Vemos que son dos. En este punto, no debería causar sorpresa que uno de ellos sea el Programa Presupuestal 0031 que vimos anteriormente. Podemos seguir viendo cuáles de sus productos son abordados en el grupo funcional.
iniciar_transparencia_economica() %>%
elegir_periodo_anual(2021) %>%
elegir_en_que_se_gasta(
funcion = "05",
division_funcional = "015",
grupo_funcional = "0034",
categoria_presupuestal = "0031",
producto = "todos"
) %>%
consultar()
#> # A tibble: 4 × 16
#> periodo cod_proyecto desc_proyecto pia pim
#> <dbl> <chr> <chr> <dbl> <dbl>
#> 1 2021 2522056 ADQUISICION DE VEHICULO; EN EL(LA) UNIDAD … 0 2.18e5
#> 2 2021 3000001 ACCIONES COMUNES 7.94e6 8.51e6
#> 3 2021 3000294 OPERACIONES DE INTERDICCION CONTRA EL TRAF… 2.28e8 2.37e8
#> 4 2021 3000490 HECTAREAS REDUCIDAS DE CULTIVOS ILICITOS D… 1.99e7 1.98e7
#> # ℹ 11 more variables: certificacion <dbl>, compromiso_anual <dbl>,
#> # atencion_de_compromiso_mensual <dbl>, devengado <dbl>, girado <dbl>,
#> # avance_percent <dbl>, categoria_presupuestal <chr>, producto <chr>,
#> # funcion <chr>, division_funcional <chr>, grupo_funcional <chr>A diferencia de cuando consultamos partiendo sólo de la Clasificación Programática, vemos que el grupo funcional escogido no incluye el producto de “PROCESOS JUDICIALES CON INTERVENCION DE LA PROCURADURIA PUBLICA CONTRA EL TRAFICO ILICITO DE DROGAS Y LAVADO DE ACTIVOS”. Lógicamente, podemos ver qué actividades de la reducción de cultivos ilícitos se incluyen.
iniciar_transparencia_economica() %>%
elegir_periodo_anual(2021) %>%
elegir_en_que_se_gasta(
funcion = "05",
division_funcional = "015",
grupo_funcional = "0034",
categoria_presupuestal = "0031",
producto = "3000490",
actividad = "todos"
) %>%
consultar()
#> # A tibble: 4 × 17
#> periodo cod_actividad_accion_de…¹ desc_actividad_accion_de_inv…² pia pim
#> <dbl> <chr> <chr> <dbl> <dbl>
#> 1 2021 5003057 OPERACIONES DE SEGURIDAD PARA… 4.97e6 5.87e6
#> 2 2021 5004070 REDUCCION DE HECTAREAS DE PLA… 1 e6 0
#> 3 2021 5004072 SOPORTE AEREO PARA LA REDUCCI… 1.28e7 1.32e7
#> 4 2021 5004970 ASISTENCIA A LA POBLACION POR… 1.17e6 7.12e5
#> # ℹ abbreviated names: ¹cod_actividad_accion_de_inversion_obra,
#> # ²desc_actividad_accion_de_inversion_obra
#> # ℹ 12 more variables: certificacion <dbl>, compromiso_anual <dbl>,
#> # atencion_de_compromiso_mensual <dbl>, devengado <dbl>, girado <dbl>,
#> # avance_percent <dbl>, categoria_presupuestal <chr>, producto <chr>,
#> # actividad <chr>, funcion <chr>, division_funcional <chr>,
#> # grupo_funcional <chr>Vemos que dentro del grupo funcional se incluyen todas las actividades del producto, así como todo el presupuesto. Puede parecer redundante, pero hacer todo este camino es esencial para identificar el presupuesto asignado a cada meta de las actividades. En este caso, veremos las metas de la actividad “5003057 Operaciones de seguridad para la reducción de las áreas de cultivo ilícito” que tuvo una ejecución del 94.7%.
iniciar_transparencia_economica() %>%
elegir_periodo_anual(2021) %>%
elegir_en_que_se_gasta(
funcion = "05",
division_funcional = "015",
grupo_funcional = "0034",
categoria_presupuestal = "0031",
producto = "3000490",
actividad = "5003057",
meta = "todos"
) %>%
consultar()
#> # A tibble: 2 × 18
#> periodo cod_meta desc_meta pia pim certificacion
#> <dbl> <chr> <chr> <dbl> <dbl> <dbl>
#> 1 2021 00001-1343 OPERACIONES DE SEGURIDAD PARA … 4.97e6 5.87e6 5694131
#> 2 2021 Cantidad 736.0Unidad de Medida: OPERACI… 7.36e2 7.36e2 736
#> # ℹ 12 more variables: compromiso_anual <dbl>,
#> # atencion_de_compromiso_mensual <dbl>, devengado <dbl>, girado <dbl>,
#> # avance_percent <dbl>, categoria_presupuestal <chr>, producto <chr>,
#> # actividad <chr>, funcion <chr>, division_funcional <chr>,
#> # grupo_funcional <chr>, meta <chr>En este caso, la tabla nos muestra que la meta fueron 736 Operaciones, de las cuales se tuvo un avance físico de 228 (31%). En otras palabras, a pesar de un buen alto nivel de ejecución presupuestal, el avance físico fue bajo. En este punto cabe preguntarse cómo se calculó la correspondencia entre las metas y el presupuesto, que puede dar pie a una investigación más profunda.
Elegir con qué se financian los gastos
El sistema del MEF permite conocer de dónde proviene el presupuesto que las entidades utilizan. Esto corresponde a la Clasificación por Fuentes de Financiamiento de los ingresos públicos.
Para ilustrar este punto, veamos aporta el canon al presupuesto nacional. Recordemos que el presupuesto total del 2021.
iniciar_transparencia_economica() %>%
elegir_periodo_anual(2021) %>%
consultar()
#> # A tibble: 1 × 10
#> periodo total pia pim certificacion compromiso_anual
#> <dbl> <chr> <dbl> <dbl> <dbl> <dbl>
#> 1 2021 TOTAL 183029770158 227932217391 212472939298 205036051241
#> # ℹ 4 more variables: atencion_de_compromiso_mensual <dbl>, devengado <dbl>,
#> # girado <dbl>, avance_percent <dbl>En términos de Presupuesto Institucional Modificado, el Estado contó con 227932 217930 soles en el 2021. Para llegar a la cifra del canon empezamos consultando qué Fuentes de financiamiento tuvo el Estado en el 2021.
iniciar_transparencia_economica() %>%
elegir_periodo_anual(2021) %>%
elegir_con_que_se_financia(fuente_financiamiento = "todos") %>%
consultar()
#> # A tibble: 5 × 12
#> periodo cod_fuente_de_financi…¹ desc_fuente_de_financiamiento pia pim
#> <dbl> <chr> <chr> <dbl> <dbl>
#> 1 2021 1 RECURSOS ORDINARIOS 9.95e10 1.08e11
#> 2 2021 2 RECURSOS DIRECTAMENTE RECAUDA… 1.25e10 1.63e10
#> 3 2021 3 RECURSOS POR OPERACIONES OFIC… 4.77e10 6.12e10
#> 4 2021 4 DONACIONES Y TRANSFERENCIAS 4.76e 8 5.56e 9
#> 5 2021 5 RECURSOS DETERMINADOS 2.28e10 3.67e10
#> # ℹ abbreviated name: ¹cod_fuente_de_financiamiento
#> # ℹ 7 more variables: certificacion <dbl>, compromiso_anual <dbl>,
#> # atencion_de_compromiso_mensual <dbl>, devengado <dbl>, girado <dbl>,
#> # avance_percent <dbl>, fuente_financiamiento <chr>El canon es un recurso que por Ley le corresponde a los gobiernos locales y regionales2. Debido a ello, forma parte de la Fuente de financiamiento Recursos Determinados (código 5). Consultamos los rubros que la conforman.
iniciar_transparencia_economica() %>%
elegir_periodo_anual(2021) %>%
elegir_con_que_se_financia(
fuente_financiamiento = "5",
rubro = "todos"
) %>%
consultar()
#> # A tibble: 4 × 13
#> periodo cod_rubro desc_rubro pia pim certificacion
#> <dbl> <chr> <chr> <dbl> <dbl> <dbl>
#> 1 2021 04 CONTRIBUCIONES A FONDOS 7.14e9 7.18e 9 7169823224
#> 2 2021 07 FONDO DE COMPENSACION MUNICIPAL 5.14e9 8.50e 9 7677301288
#> 3 2021 08 IMPUESTOS MUNICIPALES 3.19e9 3.94e 9 3559039015
#> 4 2021 18 CANON Y SOBRECANON, REGALIAS, … 7.38e9 1.71e10 14384505313
#> # ℹ 7 more variables: compromiso_anual <dbl>,
#> # atencion_de_compromiso_mensual <dbl>, devengado <dbl>, girado <dbl>,
#> # avance_percent <dbl>, fuente_financiamiento <chr>, rubro <chr>Se puede ver que el rubro de “Canon y Sobrecanon, regalías, renta de aduanas y participaciones” financió 17116846439 soles del presupuesto de 2021. Para mayor detalle se puede consultar el tipo de recurso.
iniciar_transparencia_economica() %>%
elegir_periodo_anual(2021) %>%
elegir_con_que_se_financia(
fuente_financiamiento = "5",
rubro = "18",
tipo_de_recurso = "todos"
) %>%
consultar()
#> # A tibble: 49 × 14
#> periodo cod_tipo_de_recurso desc_tipo_de_recurso pia pim
#> <dbl> <chr> <chr> <dbl> <dbl>
#> 1 2021 A REGALIAS MINERAS 0 0
#> 2 2021 B RENTAS DE ADUANA 0 0
#> 3 2021 C PARTICIPACIONES - DNTP 0 0
#> 4 2021 D SUB CUENTA - PARTICIPACIONES - DNTP 0 0
#> 5 2021 E SUBCUENTA - PARTICIPACIONES - FONIPR… 0 0
#> 6 2021 F FFAA Y POLICIA NACIONAL 0 0
#> 7 2021 G FOCAM 0 0
#> 8 2021 H SUB CUENTA - CANON MINERO 0 0
#> 9 2021 I SUB CUENTA - CANON HIDROENERGETICO 0 0
#> 10 2021 J SUB CUENTA - CANON PESQUERO 0 0
#> # ℹ 39 more rows
#> # ℹ 9 more variables: certificacion <dbl>, compromiso_anual <dbl>,
#> # atencion_de_compromiso_mensual <dbl>, devengado <dbl>, girado <dbl>,
#> # avance_percent <dbl>, fuente_financiamiento <chr>, rubro <chr>,
#> # tipo_de_recurso <chr>Es así que se puede comprobar que a pesar de que se consideran varios tipos de recurso en este Rubro, el único que cuenta con información es el de Canon, que representa el 100% del rubro, lo que nos permite responder la pregunta planteada.
17116846439/227932217930*100
#> [1] 7.509621El canon representó el 7.5% del presupuesto nacional en el 2021.
Elegir cómo se estructura el gasto
En esta sección nos referimos a la Clasificación Económica. En otras palabras, se muestra la manera en que los gastos se organizan según su naturaleza económica. Por ejemplo, pagos de salarios, pagos de deudas, pagos de obligaciones sociales, compra de inmuebles, donaciones, etc.
Para ilustrar esta clasificación voy a reproducir el camino para determinar cuánto se gastó el 2021 en personal CAS. Se empieza por ver las genéricas de gasto.
iniciar_transparencia_economica() %>%
elegir_periodo_anual(2021) %>%
elegir_como_se_estructura_gasto(generica = "todos") %>%
consultar()
#> # A tibble: 12 × 12
#> periodo cod_generica desc_generica pia pim
#> <dbl> <chr> <chr> <dbl> <dbl>
#> 1 2021 5-20 RESERVA DE CONTINGENCIA 5.78e 9 4.69e 8
#> 2 2021 5-21 PERSONAL Y OBLIGACIONES SOCIALES 5.16e10 5.21e10
#> 3 2021 5-22 PENSIONES Y OTRAS PRESTACIONES SOCIALES 1.41e10 1.45e10
#> 4 2021 5-23 BIENES Y SERVICIOS 3.73e10 5.17e10
#> 5 2021 5-24 DONACIONES Y TRANSFERENCIAS 4.06e 9 7.32e 9
#> 6 2021 5-25 OTROS GASTOS 6.92e 9 2.20e10
#> 7 2021 6-20 RESERVA DE CONTINGENCIA 1.95e 9 1.53e 8
#> 8 2021 6-24 DONACIONES Y TRANSFERENCIAS 4.62e 9 4.01e 9
#> 9 2021 6-25 OTROS GASTOS 1.12e 8 2.12e 8
#> 10 2021 6-26 ADQUISICION DE ACTIVOS NO FINANCIEROS 4.02e10 5.79e10
#> 11 2021 6-27 ADQUISICION DE ACTIVOS FINANCIEROS 4.69e 8 1.09e 9
#> 12 2021 7-28 SERVICIO DE LA DEUDA PUBLICA 1.60e10 1.64e10
#> # ℹ 7 more variables: certificacion <dbl>, compromiso_anual <dbl>,
#> # atencion_de_compromiso_mensual <dbl>, devengado <dbl>, girado <dbl>,
#> # avance_percent <dbl>, generica <chr>En este punto podríamos cometer el error de continuar la búsqueda en la genérica de Personal y Obligaciones Sociales, pero en realidad los CAS forman parte de la genérica de Bienes y Servicios. Los trabajadores del Estado Peruano tienen muy variados regímenes laborales, y no es propósito de este documento discutirlos a detalle. Para seguir continuar, consultamos por las subgenéricas de Bienes y Servicios. Nótese que el código “5-23” debe ingresarse como “5-2-3”.
iniciar_transparencia_economica() %>%
elegir_periodo_anual(2021) %>%
elegir_como_se_estructura_gasto(
generica = "5-2-3",
subgenerica = "todos"
) %>%
consultar()
#> # A tibble: 2 × 13
#> periodo cod_sub_generica desc_sub_generica pia pim
#> <dbl> <chr> <chr> <dbl> <dbl>
#> 1 2021 1 COMPRA DE BIENES 6193282945 8904895030
#> 2 2021 2 CONTRATACION DE SERVICIOS 31096615468 42807531841
#> # ℹ 8 more variables: certificacion <dbl>, compromiso_anual <dbl>,
#> # atencion_de_compromiso_mensual <dbl>, devengado <dbl>, girado <dbl>,
#> # avance_percent <dbl>, generica <chr>, subgenerica <chr>Continuamos con la búsqueda escogiendo la subgenérica “Contratación de Servicios”. Nótese que el código de subgenérica debe añadirse al código de la genérica omitiendo el primer número. Lamentablemente, el sistema del MEF ha establecido así su manera de construir las consultas y haría falta mucho esfuerzo por cambiarlo.
iniciar_transparencia_economica() %>%
elegir_periodo_anual(2021) %>%
elegir_como_se_estructura_gasto(
generica = "5-2-3",
subgenerica = "2-3-2",
detalle_subgenerica = "todos"
) %>%
consultar()
#> # A tibble: 9 × 14
#> periodo cod_detalle_sub_gener…¹ desc_detalle_sub_generica pia pim
#> <dbl> <chr> <chr> <dbl> <dbl>
#> 1 2021 1 VIAJES 9.90e 8 9.77e 8
#> 2 2021 2 SERVICIOS BASICOS, COMUNICACI… 2.31e 9 2.32e 9
#> 3 2021 3 SERVICIOS DE LIMPIEZA, SEGURI… 1.58e 9 1.61e 9
#> 4 2021 4 SERVICIO DE MANTENIMIENTO, AC… 4.05e 9 6.27e 9
#> 5 2021 5 ALQUILERES DE MUEBLES E INMUE… 9.03e 8 1.57e 9
#> 6 2021 6 SERVICIOS ADMINISTRATIVOS, FI… 1.12e 9 9.92e 8
#> 7 2021 7 SERVICIOS PROFESIONALES Y TEC… 8.01e 9 1.05e10
#> 8 2021 8 CONTRATO ADMINISTRATIVO DE SE… 1.09e10 1.43e10
#> 9 2021 9 LOCACIÓN DE SERVICIOS RELACIO… 1.24e 9 4.29e 9
#> # ℹ abbreviated name: ¹cod_detalle_sub_generica
#> # ℹ 9 more variables: certificacion <dbl>, compromiso_anual <dbl>,
#> # atencion_de_compromiso_mensual <dbl>, devengado <dbl>, girado <dbl>,
#> # avance_percent <dbl>, generica <chr>, subgenerica <chr>,
#> # detalle_subgenerica <chr>Por fin encontramos los Contratos Administrativos de Servicios. Para comprobar si hay otro tipo de gastos incluidos, consultamos las Específicas de este gasto. Agregamos el código del detalle de subgenérica al código de subgenérica de la consulta anterior.
iniciar_transparencia_economica() %>%
elegir_periodo_anual(2021) %>%
elegir_como_se_estructura_gasto(
generica = "5-2-3",
subgenerica = "2-3-2",
detalle_subgenerica = "2-3-2-8",
especifica = "todos"
) %>%
consultar()
#> # A tibble: 1 × 15
#> periodo cod_especifica desc_especifica pia pim
#> <dbl> <chr> <chr> <dbl> <dbl>
#> 1 2021 1 CONTRATO ADMINISTRATIVO DE SERVICIOS 1.09e10 1.43e10
#> # ℹ 10 more variables: certificacion <dbl>, compromiso_anual <dbl>,
#> # atencion_de_compromiso_mensual <dbl>, devengado <dbl>, girado <dbl>,
#> # avance_percent <dbl>, generica <chr>, subgenerica <chr>,
#> # detalle_subgenerica <chr>, especifica <chr>Vemos que es la única específica disponible, con lo que damos por finalizada nuestra búsqueda. Esto significa que el Estado gastó 14287679937 soles en contratos CAS el 2021. Recordemos el presupuesto nacional de ese mismo año.
iniciar_transparencia_economica() %>%
elegir_periodo_anual(2021) %>%
consultar()
#> # A tibble: 1 × 10
#> periodo total pia pim certificacion compromiso_anual
#> <dbl> <chr> <dbl> <dbl> <dbl> <dbl>
#> 1 2021 TOTAL 183029770158 227932217391 212472939298 205036051241
#> # ℹ 4 more variables: atencion_de_compromiso_mensual <dbl>, devengado <dbl>,
#> # girado <dbl>, avance_percent <dbl>Ahora podemos calcular cuánto de ese monto representaron los contratos CAS.
14287679937/227932217930 * 100
#> [1] 6.26839Esto significa que el 6.27% del presupuesto del 2021 se utilizó en pagos de obligaciones de contratos CAS.
Elegir dónde se gasta
La función elegir_donde_se_gasta() permite obtener una
división del gasto por departamento.
Con esto, podemos ver rápidamente cuánto presupuesto tuvo cada
departamento el 2021. Nótese la diferencia entre el argumento
departamento_meta de esta función y el argumento
departamento de la función
elegir_quien_gasta().
iniciar_transparencia_economica() %>%
elegir_periodo_anual(2021) %>%
elegir_donde_se_gasta(departamento_meta = "todos") %>%
consultar()
#> # A tibble: 26 × 12
#> periodo cod_departamento_meta desc_departamento_meta pia pim
#> <dbl> <chr> <chr> <dbl> <dbl>
#> 1 2021 01 AMAZONAS 2.31e9 3.09e 9
#> 2 2021 02 ANCASH 5.06e9 9.41e 9
#> 3 2021 03 APURIMAC 2.62e9 3.74e 9
#> 4 2021 04 AREQUIPA 5.16e9 8.45e 9
#> 5 2021 05 AYACUCHO 3.17e9 5.13e 9
#> 6 2021 06 CAJAMARCA 5.44e9 8.30e 9
#> 7 2021 07 PROVINCIA CONSTITUCIONAL DEL CA… 4.40e9 5.65e 9
#> 8 2021 08 CUSCO 7.52e9 1.05e10
#> 9 2021 09 HUANCAVELICA 2.18e9 3.50e 9
#> 10 2021 10 HUANUCO 3.10e9 4.53e 9
#> # ℹ 16 more rows
#> # ℹ 7 more variables: certificacion <dbl>, compromiso_anual <dbl>,
#> # atencion_de_compromiso_mensual <dbl>, devengado <dbl>, girado <dbl>,
#> # avance_percent <dbl>, departamento_meta <chr>Elegir cuándo se hizo el gasto
Con la función elegir_cuando_se_hizo_gasto() se puede
dividir el gasto según el trimestres o meses del periodo anual.
En caso se utilice esta función, debe tenerse en cuenta que la consulta omitirá la información de PIA, PIM y porcentaje de avance.
iniciar_transparencia_economica() %>%
elegir_periodo_anual(2021) %>%
elegir_cuando_se_hizo_gasto(trimestre = "todos") %>%
consultar()
#> # A tibble: 4 × 12
#> periodo cod_trimestre desc_trimestre pia pim certificacion
#> <dbl> <chr> <chr> <dbl> <dbl> <dbl>
#> 1 2021 1er Trimestre NA NA NA 134105940812
#> 2 2021 2do Trimestre NA NA NA 28268058573
#> 3 2021 3er Trimestre NA NA NA 22061738872
#> 4 2021 4to Trimestre NA NA NA 28037201040
#> # ℹ 6 more variables: compromiso_anual <dbl>,
#> # atencion_de_compromiso_mensual <dbl>, devengado <dbl>, girado <dbl>,
#> # avance_percent <dbl>, trimestre <chr>Es posible escoger un trimestre específico para acotar la consulta por meses.
iniciar_transparencia_economica() %>%
elegir_periodo_anual(2021) %>%
elegir_cuando_se_hizo_gasto(trimestre = "1", mes = "todos") %>%
consultar()
#> # A tibble: 3 × 13
#> periodo cod_mes desc_mes pia pim certificacion compromiso_anual
#> <dbl> <chr> <chr> <dbl> <dbl> <dbl> <dbl>
#> 1 2021 1 'Enero NA NA 94259857172 75181051457
#> 2 2021 2 'Febrero NA NA 20538071791 17770271782
#> 3 2021 3 'Marzo NA NA 19308011849 16248077341
#> # ℹ 6 more variables: atencion_de_compromiso_mensual <dbl>, devengado <dbl>,
#> # girado <dbl>, avance_percent <dbl>, trimestre <chr>, mes <chr>Si no se especifica un trimestre, se obtiene el resultado de todos los meses.
iniciar_transparencia_economica() %>%
elegir_periodo_anual(2021) %>%
elegir_cuando_se_hizo_gasto(mes = "todos") %>%
consultar()
#> # A tibble: 12 × 12
#> periodo cod_mes desc_mes pia pim certificacion compromiso_anual
#> <dbl> <chr> <chr> <dbl> <dbl> <dbl> <dbl>
#> 1 2021 1 'Enero NA NA 94259857172 75181051457
#> 2 2021 2 'Febrero NA NA 20538071791 17770271782
#> 3 2021 3 'Marzo NA NA 19308011849 16248077341
#> 4 2021 4 'Abril NA NA 10548051565 11051020045
#> 5 2021 5 'Mayo NA NA 9149178543 9776484140
#> 6 2021 6 'Junio NA NA 8570828466 9419486729
#> 7 2021 7 'Julio NA NA 6330219152 8365693030
#> 8 2021 8 'Agosto NA NA 6098701544 7735265096
#> 9 2021 9 'Setiembre NA NA 9632818176 11532734558
#> 10 2021 10 'Octubre NA NA 7386871360 8957119793
#> 11 2021 11 'Noviembre NA NA 6822105405 8952671876
#> 12 2021 12 'Diciembre NA NA 13828224276 20046175394
#> # ℹ 5 more variables: atencion_de_compromiso_mensual <dbl>, devengado <dbl>,
#> # girado <dbl>, avance_percent <dbl>, mes <chr>Combinar elección de parámetros
En la sección anterior se explicó el uso de cada función por separado, pero para hacer lo mismo que se puede desde la interfaz del MEF es necesario encadenar varias funciones. Vamos a ilustrarlo con un par de ejemplos.
Viendo la Clasificación Programática del gasto, habíamos visto que el
Programa Presupuestal 0031 busca combatir el tráfico ilícito de drogas.
Para saber cuál fue la ejecución presupuestal de este programa por
departamento debemos encadenar un llamado a
elegir_en_que_se_gasta() y
elegir_donde_se_gasta(). Para poder reusar los datos
obtenidos, se le asigna el nombre pp0031_departamentos al
resultado de la consulta.
pp0031_departamentos <- iniciar_transparencia_economica() %>%
elegir_periodo_anual(2021) %>%
elegir_en_que_se_gasta(categoria_presupuestal = "0031") %>%
elegir_donde_se_gasta(departamento_meta = "todos") %>%
consultar()
pp0031_departamentos
#> # A tibble: 9 × 13
#> periodo cod_departamento_meta desc_departamento_meta pia pim
#> <dbl> <chr> <chr> <dbl> <dbl>
#> 1 2021 05 AYACUCHO 2.09e6 1.97e6
#> 2 2021 07 PROVINCIA CONSTITUCIONAL DEL CALL… 8.88e5 1.20e6
#> 3 2021 10 HUANUCO 1.56e7 1.70e7
#> 4 2021 12 JUNIN 1.76e6 2.05e6
#> 5 2021 15 LIMA 2.25e8 2.36e8
#> 6 2021 16 LORETO 1.10e6 9.03e5
#> 7 2021 20 PIURA 7.23e5 6.64e5
#> 8 2021 21 PUNO 8.87e5 8.50e5
#> 9 2021 25 UCAYALI 1.49e7 1.49e7
#> # ℹ 8 more variables: certificacion <dbl>, compromiso_anual <dbl>,
#> # atencion_de_compromiso_mensual <dbl>, devengado <dbl>, girado <dbl>,
#> # avance_percent <dbl>, categoria_presupuestal <chr>, departamento_meta <chr>Hasta el momento, la Consulta Base mostrada en los diagramas correspondió a la elección del periodo anual, al que se le podía encadenar una de las funciones detalladas. Sin embargo, la Consulta Base en realidad representa cualquier nivel de encadenamiento de funciones. El último código utilizado puede representarse de la siguiente manera.
Teniendo pp0031_departamentos, podemos aplicarle
herramientas estándar de análisis de datos. Por ejemplo, para ordenar
los departamentos de manera descendente según su PIM usando
dplyr usaríamos este código.
pp0031_departamentos %>%
dplyr::arrange(dplyr::desc(pim))
#> # A tibble: 9 × 13
#> periodo cod_departamento_meta desc_departamento_meta pia pim
#> <dbl> <chr> <chr> <dbl> <dbl>
#> 1 2021 15 LIMA 2.25e8 2.36e8
#> 2 2021 10 HUANUCO 1.56e7 1.70e7
#> 3 2021 25 UCAYALI 1.49e7 1.49e7
#> 4 2021 12 JUNIN 1.76e6 2.05e6
#> 5 2021 05 AYACUCHO 2.09e6 1.97e6
#> 6 2021 07 PROVINCIA CONSTITUCIONAL DEL CALL… 8.88e5 1.20e6
#> 7 2021 16 LORETO 1.10e6 9.03e5
#> 8 2021 21 PUNO 8.87e5 8.50e5
#> 9 2021 20 PIURA 7.23e5 6.64e5
#> # ℹ 8 more variables: certificacion <dbl>, compromiso_anual <dbl>,
#> # atencion_de_compromiso_mensual <dbl>, devengado <dbl>, girado <dbl>,
#> # avance_percent <dbl>, categoria_presupuestal <chr>, departamento_meta <chr>Vemos que Huánuco es, después de Lima, el departamento en el que se
contó con mayor presupuesto (17016801 soles). Lo siguiente que podemos
consultar es qué porción correspondió a presupuestos de viaje. Para
ello, especificamos el departamento_meta con el código de
Huánuco y buscamos el detalle de subgenérica “5-23.2” correspondiente a
Contratación de Servicios.
iniciar_transparencia_economica() %>%
elegir_periodo_anual(2021) %>%
elegir_en_que_se_gasta(categoria_presupuestal = "0031") %>%
elegir_donde_se_gasta(departamento_meta = "10") %>%
elegir_como_se_estructura_gasto(
generica = "5-2-3",
subgenerica = "2-3-2",
detalle_subgenerica = "todos"
) %>%
consultar()
#> # A tibble: 6 × 16
#> periodo cod_detalle_sub_generica desc_detalle_sub_generica pia pim
#> <dbl> <chr> <chr> <dbl> <dbl>
#> 1 2021 1 VIAJES 6.60e6 8.41e6
#> 2 2021 4 SERVICIO DE MANTENIMIENTO, ACO… 5 e4 0
#> 3 2021 5 ALQUILERES DE MUEBLES E INMUEB… 4 e4 0
#> 4 2021 6 SERVICIOS ADMINISTRATIVOS, FIN… 3.82e6 3.82e6
#> 5 2021 7 SERVICIOS PROFESIONALES Y TECN… 2.20e5 2.03e5
#> 6 2021 9 LOCACIÓN DE SERVICIOS RELACION… 0 1.05e4
#> # ℹ 11 more variables: certificacion <dbl>, compromiso_anual <dbl>,
#> # atencion_de_compromiso_mensual <dbl>, devengado <dbl>, girado <dbl>,
#> # avance_percent <dbl>, categoria_presupuestal <chr>, generica <chr>,
#> # subgenerica <chr>, detalle_subgenerica <chr>, departamento_meta <chr>El diagrama que ilustra esta consulta es el siguiente:
Se obtuvo que el presupuesto por viajes fue de 8412586 soles.
8412586/17016801 * 100
#> [1] 49.43694Finalmente, se obtiene que en el 2021, el prespuesto por viajes representó el 49.4% del presupuesto del Programa Presupuestal en Huánuco.