1-Generando base de datos de comercio exterior para el periodo (2018-2020)

Generar tabla de exportaciones

library(readr)
library(dplyr)
library(kableExtra)
setwd("C:/Users/walte/OneDrive/Escritorio/Metodos/comercio_exterior_data/exportaciones")
Cargar_exportacion<-list.files()
list_exportacion<-lapply(Cargar_exportacion, 
FUN = read_delim,delim="|",
col_names=c("pais","sac","anio","mes","valor_fob","kilogramos"), 
col_types=cols(pais="c",sac="c",anio="d",mes="d",valor_cif="d",kilogramos="d"),
skip=1) 

data_X<-bind_rows(list_exportacion)

Generar tabla de importaciones

library(readr)
library(dplyr)
library(kableExtra)
setwd("C:/Users/walte/OneDrive/Escritorio/Metodos/comercio_exterior_data/importaciones")
Cargar_importacion<-list.files()
list_importacion<-lapply(Cargar_importacion, 
FUN = read_delim,delim="|",
col_names=c("pais","sac","anio","mes","valor_cif","kilogramos"), 
col_types=cols(pais="c",sac="c",anio="d",mes="d",valor_cif="d",kilogramos="d"),
skip=1) 

data_M<-bind_rows(list_importacion)

Creando tabla de comercio exterior

library(dplyr)
library(tidyr)
library(kableExtra)
#ejecutar un Join en Tablas Exportacion e Importacion
Tabla_comercio_exterior<-data_M %>% full_join( 
data_X,
by=c("pais","sac","anio","mes"), 
suffix=c("_importaciones","_exportaciones"))
#Sustituyendo valores NA
Tabla_comercio_exterior<-Tabla_comercio_exterior %>%replace_na(list(valor_cif=0, 
valor_fob=0, 
valor_cif_exportaciones=0, valor_cif_importaciones=0,
kilogramos_importaciones=0, 
kilogramos_exportaciones=0)) %>% 
arrange(pais,anio,mes,sac)
#Codigo para mostrar tabla de datos de comercio exterior para Mexico 2020 mes 12
Tabla_comercio_exterior %>% select("pais","sac","anio","mes","kilogramos_importaciones",
"kilogramos_exportaciones") %>% filter(pais=="Mexico",anio=="2020",mes%in%12)%>% 
head()%>% kable(caption="Datos Comercio Exterior, Mexico 2020 (Diciembre)", align="c") %>% 
add_footnote(label="Elaboración propia con base en datos del BCR", notation="symbol") %>% kable_styling()
Datos Comercio Exterior, Mexico 2020 (Diciembre)
pais sac anio mes kilogramos_importaciones kilogramos_exportaciones
Mexico 0306171100 2020 12 21084.55 0
Mexico 0403109000 2020 12 54464.12 0
Mexico 0406109000 2020 12 3710.88 0
Mexico 0406909000 2020 12 288.98 0
Mexico 0702000000 2020 12 43209.80 0
Mexico 0703101200 2020 12 1670599.00 0
* Elaboración propia con base en datos del BCR

2-Actualización de la tabla de comercio exterior

Actualización de la tabla de exportaciones de los datos disponibles para 2021

#creando tabla usando datos actualizados
library(readr)
library(dplyr)
library(kableExtra) 
setwd("C:/Users/walte/OneDrive/Escritorio/Metodos/comercio_exterior_data/actualizacion_expor_2021")
Actualizacion_exportacion<-list.files()
list_X_actualizada<-lapply(Actualizacion_exportacion, 
FUN = read_delim,delim="|",
col_names=c("pais","sac","anio","mes","valor_fob","kilogramos"),
col_types=cols(pais="c",sac="c",anio="d",mes="d",valor_cif="d",kilogramos="d"),
skip=1) 
data_X_actualizada<-bind_rows(list_X_actualizada)
#unir datos anteriores y actualizados
Exportaciones<-rbind(data_X,data_X_actualizada)

Actualización de la tabla de importaciones de los datos disponibles para 2021

#creando tabla usando datos actualizados
library(readr)
library(dplyr)
library(kableExtra) 
setwd("C:/Users/walte/OneDrive/Escritorio/Metodos/comercio_exterior_data/actualizacion_impor_2021")
Actualizacion_importacion<-list.files()
list_M_actualizada<-lapply(Actualizacion_importacion, 
FUN = read_delim,delim="|",
col_names=c("pais","sac","anio","mes","valor_cif","kilogramos"),
col_types=cols(pais="c",sac="c",anio="d",mes="d",valor_cif="d",kilogramos="d"),
skip=1) 
data_M_actualizada<-bind_rows(list_M_actualizada)
#unir datos anteriores y actualizados
Importaciones<-rbind(data_M,data_M_actualizada)

Actualización de la tabla de comercio exterior de enero de 2018 a julio 2021

library(dplyr)
library(tidyr)
library(kableExtra)
#ejecutar un Join en Tablas Exportacion e Importacion
data_comercio_exterior<-Importaciones %>% full_join( 
Exportaciones,
by=c("pais","sac","anio","mes"), 
suffix=c("_importaciones","_exportaciones"))
#Sustituyendo valores NA
data_comercio_exterior<-data_comercio_exterior %>%replace_na(list(valor_cif=0, 
valor_fob=0,
valor_cif_exportaciones=0, valor_cif_importaciones=0,
kilogramos_importaciones=0, 
kilogramos_exportaciones=0)) %>% 
arrange(pais,anio,mes,sac)
#Codigo para mostrar tabla de datos de comercio exterior para Mexico 2021 mes 07
data_comercio_exterior %>% select("pais","sac","anio","mes","kilogramos_importaciones",
"kilogramos_exportaciones") %>% filter(pais=="Mexico",anio=="2021",mes%in%7)%>% 
head()%>% kable(caption="Datos Comercio Exterior, Mexico 2021 (julio)", align="c") %>% 
add_footnote(label="Elaboración propia con base en datos del BCR", notation="symbol") %>% kable_styling()
Datos Comercio Exterior, Mexico 2021 (julio)
pais sac anio mes kilogramos_importaciones kilogramos_exportaciones
Mexico 0306171100 2021 7 12500.00 0
Mexico 0403109000 2021 7 50590.23 0
Mexico 0406109000 2021 7 5281.12 0
Mexico 0406909000 2021 7 227.23 0
Mexico 0408910000 2021 7 5.60 0
Mexico 0703101200 2021 7 1775851.00 0
* Elaboración propia con base en datos del BCR

Guardar data de comercio exterior

save(data_comercio_exterior,file = "C:/Users/walte/OneDrive/Escritorio/Metodos/data_comercio_exterior.RData")

3-Agregando la información estandarizada de los países

options (scipen = 999)
library(dplyr)
library(readxl)
library(stringr)
#Data para las funciones
load("C:/Users/walte/OneDrive/Escritorio/Metodos/data_comercio_exterior.RData")
nombres_iso_paises <- read_excel("C:/Users/walte/OneDrive/Escritorio/Metodos/nombres_iso_paises.xlsx")
data_comercio_exterior %>%
  left_join(nombres_iso_paises,
            by=c("pais"="nom_pais_esp"))-> data_comercio_exterior

4-Ranking anual de los 5 principales socios comerciales de El Salvador, para el periodo 2018-2021

Top 5 socios comerciales de El Salvador para el 2018

library(dplyr)
library(kableExtra)
data_comercio_exterior%>%group_by(iso_3,anio)%>%filter(anio==2018)%>%
summarise(Total_Exportaciones_2018=sum((valor_fob/5905411211)*100))%>%
  arrange(desc(Total_Exportaciones_2018))%>%head(5)%>% kable(caption =
"Top 5 socios comerciales, para el 2018, en porcentaje de las exportaciones totales", digits=2,align ="l") %>% kable_styling(bootstrap_options ="striped", full_width =TRUE)%>% add_footnote(label="Elaboración propia con base en datos del BCR",notation="symbol")
Top 5 socios comerciales, para el 2018, en porcentaje de las exportaciones totales
iso_3 anio Total_Exportaciones_2018
USA 2018 44.07
HND 2018 15.34
GTM 2018 14.36
NIC 2018 6.87
CRI 2018 4.39
* Elaboración propia con base en datos del BCR

Top 5 socios comerciales de El Salvador para el 2019

library(dplyr)
library(kableExtra)
data_comercio_exterior%>%group_by(iso_3,anio)%>%filter(anio==2019)%>%
summarise(Total_Exportaciones_2019=sum((valor_fob/5904729814)*100))%>%
  arrange(desc(Total_Exportaciones_2019))%>%head(5)%>% kable(caption =
"Top 5 socios comerciales, para el 2019, en porcentaje de las exportaciones totales", digits=2,align ="l") %>% kable_styling(bootstrap_options ="striped", full_width =TRUE)%>% add_footnote(label="Elaboración propia con base en datos del BCR",notation="symbol")
Top 5 socios comerciales, para el 2019, en porcentaje de las exportaciones totales
iso_3 anio Total_Exportaciones_2019
USA 2019 42.03
GTM 2019 15.92
HND 2019 15.90
NIC 2019 6.66
CRI 2019 4.46
* Elaboración propia con base en datos del BCR

Top 5 socios comerciales de El Salvador para el 2020

library(dplyr)
library(kableExtra)
data_comercio_exterior%>%group_by(iso_3,anio)%>%filter(anio==2020)%>%
summarise(Total_Exportaciones_2020=sum((valor_fob/5044010593)*100))%>%
  arrange(desc(Total_Exportaciones_2020))%>%head(5)%>% kable(caption =
"Top 5 socios comerciales, para el 2020, en porcentaje de las exportaciones totales", digits=2,align ="l") %>% kable_styling(bootstrap_options ="striped", full_width =TRUE)%>% add_footnote(label="Elaboración propia con base en datos del BCR",notation="symbol")
Top 5 socios comerciales, para el 2020, en porcentaje de las exportaciones totales
iso_3 anio Total_Exportaciones_2020
USA 2020 39.18
GTM 2020 16.89
HND 2020 15.44
NIC 2020 7.26
CRI 2020 4.65
* Elaboración propia con base en datos del BCR

Top 5 socios comerciales de El Salvador para el 2021

library(dplyr)
library(kableExtra)
data_comercio_exterior%>%group_by(iso_3,anio)%>%filter(anio==2021)%>%
summarise(Total_Exportaciones_2021=sum((valor_fob/3846314150)*100))%>%
  arrange(desc(Total_Exportaciones_2021))%>%head(5)%>% kable(caption =
"Top 5 socios comerciales, para el 2021, en porcentaje de las exportaciones totales", digits=2,align ="l") %>% kable_styling(bootstrap_options ="striped", full_width =TRUE)%>% add_footnote(label="Elaboración propia con base en datos del BCR",notation="symbol")
Top 5 socios comerciales, para el 2021, en porcentaje de las exportaciones totales
iso_3 anio Total_Exportaciones_2021
USA 2021 40.59
GTM 2021 16.98
HND 2021 15.82
NIC 2021 6.99
CRI 2021 4.04
* Elaboración propia con base en datos del BCR