Carga de base de datos

options(scipen = 999) # Mostrar todos los decimales
library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(readxl)
library(stringr)
load("C:/Users/travail/Documents/R/Rscripts/data_comercio_exterior_2.RData")
nombres_archivo<-read_excel("C:/Users/travail/Documents/R/Rscripts/data/paises/nombres_iso_paises.xlsx")
nombre_iso_paises<-read_excel("C:/Users/travail/Documents/R/Rscripts/data/paises/nombres_iso_paises.xlsx")
data_comercio_exterior<-data_comercio_exterior %>% left_join(nombre_iso_paises, 
                                                      by=c("pais"="nom_pais_esp"))

Cálculo del índice IVCR para MEX, USA, CAN

# Indice de ventaja comparativa revelada

indicadores_IVCR_capitulo<-function(codigo_pais,capitulo,anio){
enquo(codigo_pais)->codigo_pais
enquo(anio)->anio
data_comercio_exterior %>% filter(codigo_pais==!!codigo_pais) %>% 
  mutate(capitulo=str_sub(sac,start = 1,end = 2)) %>%
  filter(capitulo==!!capitulo,anio==!!anio) %>% 
  select(valor_cif,valor_fob) %>% 
  summarise(Xijt=sum(valor_fob),
            Mijt=sum(valor_cif)) %>% 
  mutate(dif=Xijt-Mijt) %>% 
  select(dif) ->numerador
####
data_comercio_exterior %>% 
  mutate(capitulo=str_sub(sac,start = 1,end = 2)) %>%
  filter(capitulo==!!capitulo,anio==!!anio) %>% 
  select(valor_cif,valor_fob) %>% 
  summarise(Xijt=sum(valor_fob),
            Mijt=sum(valor_cif)) %>% 
  mutate(suma=abs(Xijt+Mijt)) %>% 
  select(suma) ->denominador
as.vector(numerador/denominador)->resultado
resultado[,1]
}

library(kableExtra)
## 
## Attaching package: 'kableExtra'
## The following object is masked from 'package:dplyr':
## 
##     group_rows
Resultado_IVCR_ESA<-data.frame("años"=2017:2020,
                            "IVCR"=sapply(X=2017:2020,
                                          FUN = indicadores_IVCR_capitulo,
                                          codigo_pais=c("484","840","124"),
                                          capitulo="01"))
## Warning in codigo_pais == ~c("484", "840", "124"): longer object length is not a
## multiple of shorter object length

## Warning in codigo_pais == ~c("484", "840", "124"): longer object length is not a
## multiple of shorter object length

## Warning in codigo_pais == ~c("484", "840", "124"): longer object length is not a
## multiple of shorter object length

## Warning in codigo_pais == ~c("484", "840", "124"): longer object length is not a
## multiple of shorter object length
Resultado_IVCR_ESA %>% kable(align = "l") %>%
  kable_material(html_font = "sans-serif")
años IVCR
2017 -0.0920629
2018 0.0425473
2019 -0.0668727
2020 0.0566528

Monto importado por dolar exportado a la región centroamericana 2017-2020

library(kableExtra)
data_comercio_exterior %>% filter(valor_cif==0, valor_fob>0, anio==c(2017:2019),region_intermedia=="Centroamérica") %>% group_by(anio)%>%
  summarise(`Total de exportaciones de El Salvador a Centroamerica`=sum(valor_fob))->X
## Warning in anio == c(2017:2019): longer object length is not a multiple of
## shorter object length
## `summarise()` ungrouping output (override with `.groups` argument)
data_comercio_exterior %>%
filter(valor_cif>0, valor_fob==0, anio==c(2017,2018,2019),region_intermedia=="Centroamérica") %>% group_by(anio) %>%
  summarise(`Total de Importaciones de El Salvador a centroamerica`=sum(valor_cif))->I
## Warning in anio == c(2017, 2018, 2019): longer object length is not a multiple
## of shorter object length
## `summarise()` ungrouping output (override with `.groups` argument)
TC<- (X/I)
TC%>% head() %>% kable(caption = "Monto importado por dolar exportado a la región centroamericana 2017-2020") %>%  kable_styling()
Monto importado por dolar exportado a la región centroamericana 2017-2020
anio Total de exportaciones de El Salvador a Centroamerica
1 0.6072521
1 0.6250017
1 0.5904257

Saldo de balanza comercial con el Caribe

library(kableExtra)
data_comercio_exterior %>%
  filter(region_intermedia=="Caribe",anio==c(2017:2019)) %>%
  group_by(anio,pais) %>%
  summarise(`Total Exportaciones MM US$`=sum(valor_fob)/1e6,
            `Total Importaciones MM US$`=sum(valor_cif)/1e6,
            `Balanza Comercial ESA-CARIBE MM $`=`Total Exportaciones MM US$`-`Total Importaciones MM US$`) %>% 
  head() %>% kable(caption = "Saldo de la Balanza comercial ESA-Caribe") %>% 
  add_footnote(label="Elaboración propia con base en datos del BCR",
               notation="symbol") %>%  kable_styling()
## Warning in anio == c(2017:2019): longer object length is not a multiple of
## shorter object length
## `summarise()` regrouping output by 'anio' (override with `.groups` argument)
Saldo de la Balanza comercial ESA-Caribe
anio pais Total Exportaciones MM US$ Total Importaciones MM US$ Balanza Comercial ESA-CARIBE MM $
2017 Antigua Y Barbuda 0.0000000 0.0051149 -0.0051149
2017 Aruba (P.B.) 0.0558826 0.0283969 0.0274858
2017 Bahamas 0.0380652 0.0001604 0.0379048
2017 Barbados 0.1341087 0.0016800 0.1324286
2017 Cuba 3.2384200 0.1010398 3.1373803
2017 Curacao 0.0001582 5.6346532 -5.6344950
* Elaboración propia con base en datos del BCR

Exportaciones Totales de El Salvador hacia el norte de Europa

library(kableExtra)
data_comercio_exterior %>%
  select("pais", "sac","anio","mes","valor_fob","sub_region","valor_cif") %>%
 filter(anio %in% 2019:2020,sub_region=="Norte De Europa",valor_fob>0,valor_cif==0) %>% summarise(`Total Exportaciones MM US$`=sum(valor_fob)/1e6)%>% head()
## # A tibble: 1 x 1
##   `Total Exportaciones MM US$`
##                          <dbl>
## 1                         30.6