- Origen de los datos. Creación de la Tabla de Importaciones
#Cargar Paquetes
library(readr)
library(dplyr)
library(kableExtra) #para mostrar "bonitas" las tablas en el documento
#Establecer directorio de trabajo
setwd("C:/Users/Rivera/Desktop/Metodos2020/Comercio/Update/U_Importaciones")
#Nombres de los archivos en el directorio de trabajo (sólo deben estar los archivos a leer)
archivos_importar<-list.files()
#Leer los archivos del directorio de trabajo
lista_importacion_update<-lapply(archivos_importar,
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)
#Emsamblar los archivos en un sólo dataframe
data_importaciones_update<-bind_rows(lista_importacion_update)
#Mostrar las tablas en formato html (es para esta publicación)
data_importaciones_update %>% head()%>% kable(caption="El Salvador: Base de Importaciones Agosto 2020",
align="c") %>%
add_footnote(label="Elaboración propia con base en datos del BCR",
notation="symbol") %>% kable_styling()
El Salvador: Base de Importaciones Agosto 2020
|
pais
|
sac
|
anio
|
mes
|
valor_cif
|
kilogramos
|
|
Canada
|
0511100000
|
2020
|
8
|
15416.16
|
59.00
|
|
Canada
|
0713334000
|
2020
|
8
|
2250.88
|
9988.00
|
|
Canada
|
0713400000
|
2020
|
8
|
662.02
|
381.60
|
|
Canada
|
0811900000
|
2020
|
8
|
24056.86
|
6050.04
|
|
Canada
|
1101000000
|
2020
|
8
|
377.68
|
500.00
|
|
Canada
|
1207500000
|
2020
|
8
|
61635.45
|
58512.00
|
|
* Elaboración propia con base en datos del BCR
|
- Creacion de la tabla Exportaciones.
#Cargar Paquetes
library(readr)
library(dplyr)
library(kableExtra) #para mostrar "bonitas" las tablas en el documento
#Establecer directorio de trabajo
setwd("C:/Users/Rivera/Desktop/Metodos2020/Comercio/Update/U_Exportaciones")
#Nombres de los archivos en el directorio de trabajo (sólo deben estar los archivos a leer)
archivos_importar<-list.files()
#Leer los archivos del directorio de trabajo
lista_exportacion_update<-lapply(archivos_importar,
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)
#Emsamblar los archivos en un sólo dataframe
data_exportaciones_update<-bind_rows(lista_exportacion_update)
#Mostrar las tablas en formato html (es para esta publicación)
data_exportaciones_update %>% head() %>% kable(caption="Base de Exportaciones Agosto 2020",
align="c") %>%
add_footnote(label="Elaboración propia con base en datos del BCR",
notation="symbol") %>% kable_styling()
Base de Exportaciones Agosto 2020
|
pais
|
sac
|
anio
|
mes
|
valor_fob
|
kilogramos
|
|
Canada
|
0602100000
|
2020
|
8
|
6180.94
|
157.06
|
|
Canada
|
0811900000
|
2020
|
8
|
125.58
|
40.70
|
|
Canada
|
0901113000
|
2020
|
8
|
128349.23
|
27996.14
|
|
Canada
|
0904119000
|
2020
|
8
|
0.70
|
0.36
|
|
Canada
|
0910910000
|
2020
|
8
|
702.00
|
95.33
|
|
Canada
|
1207990000
|
2020
|
8
|
700.00
|
238.33
|
|
* Elaboración propia con base en datos del BCR
|
3.Creación de la tabla de Comercio Exterior, para agosto 2020
#Cargar paquetes
library(dplyr)
library(tidyr)
library(kableExtra)
#Concatenar las tablas de data_importaciones & data_exportaciones
data_importaciones_update %>% full_join(
data_exportaciones_update,
by=c("pais","sac","anio","mes"),
suffix=c("_importaciones","_exportaciones"))->data_comercio_exterior_updateAGO
#Sustitur los Valores Nulos "NA" y guardar en el mismo objeto
data_comercio_exterior_updateAGO %>%
replace_na(list(valor_cif=0,
valor_fob=0,
kilogramos_importaciones=0,
kilogramos_exportaciones=0)) %>%
arrange(pais,anio,mes,sac) -> data_comercio_exterior_updateAGO #Se hizo la asignación al final de la instrucción.
#Mostrar Tabla (primeros 6 elementos)
data_comercio_exterior_updateAGO %>% head() %>%
kable(caption="Base de Comercio Exterior 2017-2020 (Agosto)",
align="c") %>%
add_footnote(label="Elaboración propia con base en datos del BCR",
notation="symbol") %>% kable_styling()
Base de Comercio Exterior 2017-2020 (Agosto)
|
pais
|
sac
|
anio
|
mes
|
valor_cif
|
kilogramos_importaciones
|
valor_fob
|
kilogramos_exportaciones
|
|
Afganistan
|
4202190000
|
2020
|
8
|
18.88
|
0.68
|
0
|
0
|
|
Afganistan
|
4202990000
|
2020
|
8
|
7.55
|
0.27
|
0
|
0
|
|
Afganistan
|
6103109000
|
2020
|
8
|
75.52
|
2.73
|
0
|
0
|
|
Afganistan
|
6110900000
|
2020
|
8
|
75.52
|
2.73
|
0
|
0
|
|
Afganistan
|
6117100000
|
2020
|
8
|
9.06
|
0.33
|
0
|
0
|
|
Afganistan
|
6204490000
|
2020
|
8
|
113.28
|
4.10
|
0
|
0
|
|
* Elaboración propia con base en datos del BCR
|
- Guardar la Tabla de Comercio Exterior de agosto 2020
#Guardado del objeto data_comercio_exterior_updateAGO
save(data_comercio_exterior_updateAGO,file = "C:/Users/Rivera/Desktop/Metodos2020/Comercio/data_comercio_exterior_updateAGO.RData")
- Actualizacion de la data de comercio exterior.
#Carga de la data no actualizada.
load("C:/Users/Rivera/Desktop/Metodos2020/Comercio/data_comercio_exterior2.RData")
#carga de la data de Agosto.
load("C:/Users/Rivera/Desktop/Metodos2020/Comercio/data_comercio_exterior_updateAGO.RData")
#proceso de actulizacion de la data.
data_comercio_exterior_actualizada <- rbind(data_comercio_exterior,data_comercio_exterior_updateAGO)
data_comercio_exterior_actualizada %>% head() %>% kable(caption = "Base de datos del Comercio Exterior actualizada a Agosto 2020", align="c") %>% add_footnote(label="Elaboración propia con base en datos del BCR",
notation="symbol") %>% kable_styling()
Base de datos del Comercio Exterior actualizada a Agosto 2020
|
pais
|
sac
|
anio
|
mes
|
valor_cif
|
kilogramos_importaciones
|
valor_fob
|
kilogramos_exportaciones
|
|
Afganistan
|
4010390000
|
2017
|
4
|
58.06
|
0.92
|
0
|
0
|
|
Afganistan
|
6812999000
|
2017
|
4
|
88.38
|
1.39
|
0
|
0
|
|
Afganistan
|
8487900000
|
2017
|
4
|
20.93
|
0.33
|
0
|
0
|
|
Afganistan
|
8511800000
|
2017
|
4
|
98.93
|
1.56
|
0
|
0
|
|
Afganistan
|
8708930000
|
2017
|
4
|
62.18
|
0.98
|
0
|
0
|
|
Afganistan
|
9028200000
|
2017
|
4
|
130.06
|
2.05
|
0
|
0
|
|
* Elaboración propia con base en datos del BCR
|
- Mostrar algunos datos de Nicaragua sobre exportaciones e importaciones para agosto 2020
data_comercio_exterior_actualizada %>%
filter(anio=="2020", pais=="Nicaragua", mes %in% 8) %>%
head() %>%
kable(caption = "Base de datos del Comercio Exterior, Nicaragua, Agosto 2020", align="c") %>%
add_footnote(label="Elaboración propia con base en datos del BCR",
notation="symbol") %>% kable_styling()
Base de datos del Comercio Exterior, Nicaragua, Agosto 2020
|
pais
|
sac
|
anio
|
mes
|
valor_cif
|
kilogramos_importaciones
|
valor_fob
|
kilogramos_exportaciones
|
|
Nicaragua
|
0201100000
|
2020
|
8
|
1765458.90
|
525230.97
|
0
|
0
|
|
Nicaragua
|
0201200000
|
2020
|
8
|
32523.75
|
10105.69
|
0
|
0
|
|
Nicaragua
|
0201300000
|
2020
|
8
|
5196151.56
|
961120.79
|
0
|
0
|
|
Nicaragua
|
0202200000
|
2020
|
8
|
624290.23
|
203037.34
|
0
|
0
|
|
Nicaragua
|
0202300000
|
2020
|
8
|
1732641.37
|
383117.26
|
0
|
0
|
|
Nicaragua
|
0206210000
|
2020
|
8
|
16489.20
|
2526.83
|
0
|
0
|
|
* Elaboración propia con base en datos del BCR
|
- Guardar la Tabla de Comercio Exterior Actualizada
#Guardado del objeto data_comercio_exterior_updateAGO
save(data_comercio_exterior_actualizada,file = "C:/Users/Rivera/Desktop/Metodos2020/Comercio/data_comercio_exterior_actualizada.RData")