El presente ejercicio permite calcular el valor del gasto público destinado a investigación y desarrollo (I+D), y compararlo con el PIB. El proceso incluye la importación múltiple de bases de datos y el enlace online a los datos de Banco Mundial.

Librerias

library(dplyr)
library(readr)
library(readxl)
library(tidyr)
library(stringr)
library(reshape)
library(flextable)
library(kableExtra)
library(janitor)
library(kableExtra)
library(flextable)
library(tinytex)
library(gridExtra)
library(RColorBrewer)
# para acceso a Indicadores de Desarrollo de Banco Mundial
library(WDI)

Importación de datos

PIB salvadoreño

La importación de datos del PIB salvadoreño a precios corrientes, este ejercicio se realiza enlazando datos desde el repositorio del Banco Mundial

PIB_anual <- 
  WDI(country = "SLV",indicator = "NY.GDP.MKTP.CD" , 
      start = 2010, end = 2020 ) %>% 
  rename(c(`NY.GDP.MKTP.CD`= "PIB_USD_corriente")) 

PIB_anual

Datos de presupuesto GOES

Datos desde el portal de transparencia fiscal de El Salvador, especificamente los registros anuales de “Ejecución del gasto por clasificación presupuestaria”: https://www.transparenciafiscal.gob.sv/ptf/es/PTF2-Datos_Abiertos.html

# Importación de múltiples archivos csv

setwd("Fiscal/Presupuesto anual") 
archivos<-list.files(pattern = 'csv')
Gastos_presupuesto<-as.list(lapply(archivos,read.delim, sep=";" ))
Gastos_presupuesto <-do.call(rbind, Gastos_presupuesto) 

Gastos_presupuesto

Consideraciones

Investigación y Desarrollo

En este ejercicio se considera gasto en Investigación y Desarrollo, al gasto del presupuesto en:

Gastos_presupuesto %>% 
  filter(INSTITUCION == 3100, 
         LINEA_TRABAJO %in% c("301","708", "709", "801", "1001")) %>% 
  filter(EJERCICIO=="2021")%>% group_by(BD_LINEA_TRABAJO) %>% 
  filter (! duplicated(BD_INSTITUCION)) %>% select(BD_LINEA_TRABAJO)

Estimación de I+D como porcentaje del PIB

Gasto_ID <- Gastos_presupuesto %>% 
  # Seleccionando cuentas atinentes
  filter(INSTITUCION == 3100, 
         LINEA_TRABAJO %in% c("301","708", "709", "801", "1001")) %>% 
 
  # Convirtiendo a numérico los campos texto
  transform(PROGRAMADO_MODIFICADO=as.numeric(PROGRAMADO_MODIFICADO)) %>% 
   
  # totales
  group_by(EJERCICIO,BD_INSTITUCION) %>%                                   
  summarise(I_D=sum(PROGRAMADO_MODIFICADO)) %>% 
 
  # Uniendo con base de datos PIB
  inner_join(PIB_anual, by = c("EJERCICIO"="year"))  %>% 
 
  # Calculo de I+D como porcentaje del PIB
  mutate(ID_PIB= round((I_D/PIB_USD_corriente)*100,2)) %>% 
  
  # Ajustes de formato
  transform(ID_PIB=paste0(ID_PIB, "%")) %>% 
  rename(c(ID_PIB= "I+D como porcentaje del PIB"))

Visualización en formato tabla

# Gerando tabla
Gasto_ID %>% 
#Convirtiendo a millones y el registro de años a factor
    transform(Presupuesto=round(I_D/1000000),1)%>% 
  transform(PIB_USD_corriente=round(PIB_USD_corriente/1000000),1) %>%
  transform(EJERCICIO=as.factor(EJERCICIO)) %>% 
#Seleccionando campos de interés
    select(country, 
         EJERCICIO, 
         Presupuesto, 
         PIB_USD_corriente, 
         `I.D.como.porcentaje.del.PIB`) %>%  
# Nombre de tabla
    kable(caption = "Cuadro 1. Gasto en Investigación y Desarrollo en El Salvador 2010-2020", 
        align = 'c',  digits = round(1), 
        col.names = c("País", "Año", 
                      "Gasto I+D (millones de USD)","PIB corriente (millones de USD)", 
                      "I+D como porcentaje del PIB")) %>% 
  kable_classic() %>% 
# Formato de tabla
    kable_styling(font_size=14,
full_width = TRUE)%>%
 kable_paper(full_width = F, "striped") %>%
  column_spec(5, width = "15em", 
              background = "#bdc9e1", 
              bold = T,  color = "Grid") %>%
#fuente
  add_footnote(c("Fuente: Elaboración con datos de Ministerio de Hacienda y Banco Mundial"), 
             notation = "none")
Cuadro 1. Gasto en Investigación y Desarrollo en El Salvador 2010-2020
País Año Gasto I+D (millones de USD) PIB corriente (millones de USD) I+D como porcentaje del PIB
El Salvador 2010 10 18448 0.06%
El Salvador 2011 4 20284 0.02%
El Salvador 2012 4 21386 0.02%
El Salvador 2013 15 21991 0.07%
El Salvador 2014 13 22593 0.06%
El Salvador 2015 13 23438 0.05%
El Salvador 2016 10 24191 0.04%
El Salvador 2017 7 24979 0.03%
El Salvador 2018 8 26021 0.03%
El Salvador 2019 8 26897 0.03%
El Salvador 2020 21 24639 0.09%
Fuente: Elaboración con datos de Ministerio de Hacienda y Banco Mundial