Carga de datos Importaciones actualizada agosto 2020
library(readr)
library(dplyr)
library(tidyr)
library(kableExtra) # Estilo a las tablas
setwd("C:/Users/travail/Documents/R/Rscripts/data/comercio/Importaciones_08")
archivos_importar = list.files()
lista_importaciones = 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)
data_importaciones_actualizada = bind_rows(lista_importaciones)
# lo de arriba es para ensamblar los archivos en un solo dataframe
data_importaciones_actualizada%>% head()%>% kable(caption = "El Salvador: Base de Importaciones 2020 (Agosto)", aling = "c") %>%
add_footnote(label = "Elaboración propia con base en datos del BCR") %>% kable_styling()
El Salvador: Base de Importaciones 2020 (Agosto)
|
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
|
|
a Elaboración propia con base en datos del BCR
|
Generar tabla de exportaciones Agosto 2020
library(readr)
library(dplyr)
library(kableExtra)
setwd("C:/Users/travail/Documents/R/Rscripts/data/comercio/EXportaciones_08")
archivos_importar = list.files()
lista_exportaciones = 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)
data_exportaciones_actualizada = bind_rows(lista_exportaciones)
data_exportaciones_actualizada %>% head() %>% kable(caption = "El Salvador: Base de Exportaciones 2020 (Agosto)", aling = "c") %>% add_footnote(label = "Elaboración propia con base en datos del BCR")%>% kable_styling()
El Salvador: Base de Exportaciones 2020 (Agosto)
|
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
|
|
a Elaboración propia con base en datos del BCR
|
Generar tabla de comercio exterior de Agosto 2020
data_comercio_exterior_agosto= data_importaciones_actualizada %>% full_join(data_exportaciones_actualizada, by = c("pais","sac","anio","mes"), suffix = c("_importaciones","_exportaciones"))
data_comercio_exterior_agosto %>% replace_na(list(valor_cif = 0,
valor_fob = 0, kilogramos_importaciones=0,
kilogramos_exportaciones = 0)) %>% arrange(pais, anio, mes, sac) -> data_comercio_exterior_agosto
data_comercio_exterior_agosto %>% head() %>% kable(caption = "Base del comercio exterior 2020 (Agosto)", aling = "c") %>% add_footnote(label = "Elaboración propia con base en datos del BCR", notation = "symbol") %>% kable_styling()
Base del comercio exterior 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
|
Carga de tabla de base de comercio exterior hasta Julio 2020
load("C:/Users/travail/Documents/R/Rscripts/data_comercio_exterior.Rdata")
data_comercio_exterior %>% replace_na(list(valor_cif=0, valor_fob = 0, kilogramos_importaciones=0,valor_cif_exportaciones =0,kilogramos_exportaciones = 0)) %>% arrange(pais, anio, mes, sac) -> data_comercio_exterior
Actualización de tabla de base de comercio exterior hasta Agosto 2020
data_comercio_exterior$mes = as.numeric(data_comercio_exterior$mes)
data_comercio_exterior_agosto$mes = as.numeric(data_comercio_exterior_agosto$mes)
data_comercio_exterior_actualizada = bind_rows(data_comercio_exterior,data_comercio_exterior_agosto)
data_comercio_exterior_actualizada %>% replace_na(list(valor_cif=0, valor_fob = 0, kilogramos_importaciones=0,valor_cif_exportaciones =0,kilogramos_exportaciones = 0)) %>% arrange(pais, anio, mes, sac) -> data_comercio_exterior_actualizada
data_comercio_exterior_actualizada %>% head() %>% kable(caption = "Base del comercio exterior 2017-2020 (Agosto)", aling = "c") %>% add_footnote(label = "Elaboración propia con base en datos del BCR", notation = "symbol") %>% kable_styling()
Base del comercio exterior 2017-2020 (Agosto)
|
pais
|
sac
|
anio
|
mes
|
valor_cif_importaciones
|
kilogramos_importaciones
|
valor_cif_exportaciones
|
kilogramos_exportaciones
|
valor_cif
|
valor_fob
|
|
Afganistan
|
4010390000
|
2017
|
4
|
58.06
|
0.92
|
0
|
0
|
0
|
0
|
|
Afganistan
|
6812999000
|
2017
|
4
|
88.38
|
1.39
|
0
|
0
|
0
|
0
|
|
Afganistan
|
8487900000
|
2017
|
4
|
20.93
|
0.33
|
0
|
0
|
0
|
0
|
|
Afganistan
|
8511800000
|
2017
|
4
|
98.93
|
1.56
|
0
|
0
|
0
|
0
|
|
Afganistan
|
8708930000
|
2017
|
4
|
62.18
|
0.98
|
0
|
0
|
0
|
0
|
|
Afganistan
|
9028200000
|
2017
|
4
|
130.06
|
2.05
|
0
|
0
|
0
|
0
|
|
* Elaboración propia con base en datos del BCR
|