Generar base de datos de comercio exterior

Generar tabla de Exportaciones

#Creando tabla usando datos anteriores
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_cif","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)
#creando tabla usando datos actualizados
library(readr)
library(dplyr)
library(kableExtra)
setwd("C:/Users/walte/OneDrive/Escritorio/metodos/comercio_exterior_data/Actualizacion_EX")
Actualizacion_exportacion<-list.files()
list_X_actualizada<-lapply(Actualizacion_exportacion,
                          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_X_actualizada<-bind_rows(list_X_actualizada)
#unir datos anteriores y actualizados
Exportaciones<-rbind(data_X,data_X_actualizada)

Generar tabla de Importaciones

#Creando tabla usando datos anteriores
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 usando datos actualizados
library(readr)
library(dplyr)
library(kableExtra)
setwd("C:/Users/walte/OneDrive/Escritorio/metodos/comercio_exterior_data/Actualizacion_IM")
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)

Creando tabla de comercio exterior

library(dplyr)
library(tidyr)
library(kableExtra)
#ejecutar un Join en Tablas Exportacion e Importacion
Tabla_comercio_exterior<-Importaciones %>% full_join(
  Exportaciones, 
  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 08
Tabla_comercio_exterior %>%
   select("pais", "sac","anio","mes","kilogramos_importaciones","kilogramos_exportaciones") %>%
  filter(pais=="Mexico",anio=="2020",mes %in% 8)%>% head()%>%
  kable(caption="Datos Comercio Exterior, Mexico 2020 (Agosto)",
        align="c") %>% 
  add_footnote(label="Elaboración propia con base en datos del BCR",
               notation="symbol") %>%  kable_styling()

Datos Comercio Exterior, Mexico 2020 (Agosto)

pais	sac	anio	mes	kilogramos_importaciones	kilogramos_exportaciones
Mexico	0402991000	2020	8	8302.35	0
Mexico	0403109000	2020	8	55197.09	0
Mexico	0406109000	2020	8	7107.92	0
Mexico	0406909000	2020	8	2127.72	0
Mexico	0703101200	2020	8	1187715.00	0
Mexico	0703101300	2020	8	409349.00	0
* Elaboración propia con base en datos del BCR

#Codigo para mostrar tabla de datos de comercio exterior para Mexico 2019 mes 01
library(dplyr)
library(tidyr)
library(kableExtra)
Tabla_comercio_exterior %>%
   select("pais", "sac","anio","mes","kilogramos_importaciones","kilogramos_exportaciones") %>%
  filter(pais=="Mexico",anio=="2019",mes %in% 1)%>% head()%>%
  kable(caption="Datos Comercio Exterior, Mexico 2019 (Enero)",
        align="c") %>% 
  add_footnote(label="Elaboración propia con base en datos del BCR",
               notation="symbol") %>%  kable_styling()

Datos Comercio Exterior, Mexico 2019 (Enero)

pais	sac	anio	mes	kilogramos_importaciones	kilogramos_exportaciones
Mexico	0402991000	2019	1	8126.90	0
Mexico	0403109000	2019	1	54410.23	0
Mexico	0406109000	2019	1	3397.32	0
Mexico	0406909000	2019	1	11057.23	0
Mexico	0703101100	2019	1	60850.00	0
Mexico	0703101200	2019	1	248715.00	0
* Elaboración propia con base en datos del BCR

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

load("C:/Users/walte/OneDrive/Escritorio/metodos/Tabla_comercio_exterior.RData")