BASE DE DATOS DEL COMERCIO EXTERIOR NO ACUALIZADA
Elaboración de la Tabla de Importaciones 2017-2020
library(readr)
library(dplyr)
library(kableExtra)
setwd("C:/Users/Febe Arias/Documents/comercio/Importaciones")
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<-bind_rows(lista_importaciones)
data_importaciones %>% head()%>% kable(caption="El Salvador: Base de Importaciones 2017-2020",
align="c") %>%
add_footnote(label="Elaboración propia con base a la información del BCR",
notation="symbol") %>% kable_styling()
El Salvador: Base de Importaciones 2017-2020
|
pais
|
sac
|
anio
|
mes
|
valor_cif
|
kilogramos
|
|
Groenlandia (Din)
|
2710199900
|
2017
|
2
|
317.40
|
8.16
|
|
Canada
|
0409000000
|
2017
|
3
|
673.18
|
836.10
|
|
Canada
|
0409000000
|
2017
|
4
|
171.17
|
600.00
|
|
Canada
|
0409000000
|
2017
|
5
|
330.09
|
660.00
|
|
Canada
|
0409000000
|
2017
|
6
|
149.46
|
437.50
|
|
Canada
|
0511100000
|
2017
|
3
|
18988.60
|
30.00
|
|
* Elaboración propia con base a la información del BCR
|
Elaboración de la Tabla de Exportaciones 2017-2020
library(readr)
library(dplyr)
library(kableExtra)
setwd("C:/Users/Febe Arias/Documents/comercio/Exportaciones")
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<-bind_rows(lista_exportaciones)
data_exportaciones %>% head() %>% kable(caption="El Salvador: Base de Exportaciones 2017-2020",
align="c") %>%
add_footnote(label="Elaboración propia con base a la información del BCR",
notation="symbol") %>% kable_styling()
El Salvador: Base de Exportaciones 2017-2020
|
pais
|
sac
|
anio
|
mes
|
valor_fob
|
kilogramos
|
|
Canada
|
0106190000
|
2017
|
2
|
100.00
|
26.0
|
|
Canada
|
0106190000
|
2017
|
6
|
580.00
|
10.0
|
|
Canada
|
0106900000
|
2017
|
1
|
3491.55
|
11.0
|
|
Canada
|
0106900000
|
2017
|
2
|
4791.20
|
14.0
|
|
Canada
|
0106900000
|
2017
|
3
|
5516.00
|
17.0
|
|
Canada
|
0106900000
|
2017
|
4
|
5019.50
|
14.5
|
|
* Elaboración propia con base a la información del BCR
|
Elaboración de la tabla de Comercio Exterior 2017-2020
library(dplyr)
library(tidyr)
library(kableExtra)
data_importaciones %>% full_join(
data_exportaciones,
by=c("pais","sac","anio","mes"),
suffix=c("_importaciones","_exportaciones"))->data_comercio_exterior
data_comercio_exterior %>% replace_na(list(valor_cif=0,
valor_fob=0,
kilogramos_importaciones=0,
kilogramos_exportaciones=0)) %>%
arrange(pais,anio,mes,sac) ->data_comercio_exterior
data_comercio_exterior %>% head() %>%
kable(caption="El Salvador: Base de Comercio Exterior 2017-2020",
align="c") %>%
add_footnote(label="Elaboración propia con base a la información del BCR",
notation="symbol") %>% kable_styling()
El Salvador: Base de Comercio Exterior 2017-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 a la información del BCR
|
Para Guardar la Tabla de Comercio Exterior
save(data_comercio_exterior,file = "C:/Users/Febe Arias/Documents/comercio/data_comercio_exterior.RData")
Cargar la tabla de comercio exterior en otro script de análisis
load("C:/Users/Febe Arias/Documents/comercio/data_comercio_exterior.RData")
BASE DE DATOS DEL COMERCIO EXTERIOR ACUALIZADA
Elaboración de la Tabla de Importaciones 2017-2020 (Actualizada)
library(readr)
library(dplyr)
library(kableExtra)
setwd("C:/Users/Febe Arias/Documents/Comercio_Actualizada/Importaciones_Actualizada")
archivos_importar<-list.files()
lista_importaciones_act<-lapply(archivos_importar,
FUN = read_delim,delim="|",
col_names=c("pais",
"sac",
"anio",
"mes_1",
"valor_cif",
"kilogramos"),
skip=1)
data_importaciones_Agosto2020<-bind_rows(lista_importaciones_act)
data_importaciones_Agosto2020 %>% head()%>% kable(caption="El Salvador: Base de Importaciones (Actualizado hasta Agosto 2020)",
align="c") %>%
add_footnote(label="Elaboración propia con base a la información del BCR",
notation="symbol") %>% kable_styling()
El Salvador: Base de Importaciones (Actualizado hasta Agosto 2020)
|
pais
|
sac
|
anio
|
mes_1
|
valor_cif
|
kilogramos
|
|
Canada
|
0511100000
|
2020
|
08
|
15416.16
|
59.00
|
|
Canada
|
0713334000
|
2020
|
08
|
2250.88
|
9988.00
|
|
Canada
|
0713400000
|
2020
|
08
|
662.02
|
381.60
|
|
Canada
|
0811900000
|
2020
|
08
|
24056.86
|
6050.04
|
|
Canada
|
1101000000
|
2020
|
08
|
377.68
|
500.00
|
|
Canada
|
1207500000
|
2020
|
08
|
61635.45
|
58512.00
|
|
* Elaboración propia con base a la información del BCR
|
Elaboración de la Tabla de Exportaciones 2017-2020 (Actualizada)
setwd("C:/Users/Febe Arias/Documents/Comercio_Actualizada/Exportaciones_Actualizada")
archivos_importar<-list.files()
lista_exportaciones_act<-lapply(archivos_importar,
FUN = read_delim,delim="|",
col_names=c("pais",
"sac",
"anio",
"mes_1",
"valor_fob",
"kilogramos"),
col_types=cols(pais="c",
sac="c",
anio="d",
mes="d",
valor_cif="d",
kilogramos="d"),
skip=1)
data_exportaciones_Agosto2020<-bind_rows(lista_exportaciones_act)
data_exportaciones_Agosto2020 %>% head() %>% kable(caption="El Salvador: Base de Exportaciones (Actualizado hasta Agosto 2020)",
align="c") %>%
add_footnote(label="Elaboración propia con base a la información del BCR",
notation="symbol") %>% kable_styling()
El Salvador: Base de Exportaciones (Actualizado hasta Agosto 2020)
|
pais
|
sac
|
anio
|
mes_1
|
valor_fob
|
kilogramos
|
|
Canada
|
0602100000
|
2020
|
08
|
6180.94
|
157.06
|
|
Canada
|
0811900000
|
2020
|
08
|
125.58
|
40.70
|
|
Canada
|
0901113000
|
2020
|
08
|
128349.23
|
27996.14
|
|
Canada
|
0904119000
|
2020
|
08
|
0.70
|
0.36
|
|
Canada
|
0910910000
|
2020
|
08
|
702.00
|
95.33
|
|
Canada
|
1207990000
|
2020
|
08
|
700.00
|
238.33
|
|
* Elaboración propia con base a la información del BCR
|
Elaboración de la tabla de Comercio Exterior
data_importaciones_Agosto2020 %>% full_join(
data_exportaciones_Agosto2020,
by=c("pais","sac","anio","mes_1"),
suffix=c("_importaciones","_exportaciones"))->data_comercio_exterior_actualizada
data_comercio_exterior_actualizada %>% replace_na(list(valor_cif=0,
valor_fob=0,
kilogramos_importaciones=0,
kilogramos_exportaciones=0,
mes_1=0)) %>%
arrange(desc(pais),desc(anio),desc(mes_1),desc(sac)) ->data_comercio_exterior_actualizada
data_comercio_exterior_actualizada %>% head() %>%
kable(caption="Base de Comercio Exterior (Actualizado hasta Agosto 2020)",
align="c") %>%
add_footnote(label="Elaboración propia con base a la información del BCR",
notation="symbol") %>% kable_styling()
Base de Comercio Exterior (Actualizado hasta Agosto 2020)
|
pais
|
sac
|
anio
|
mes_1
|
valor_cif
|
kilogramos_importaciones
|
valor_fob
|
kilogramos_exportaciones
|
|
Yugoeslavia -Nueva Organizacio
|
4011400000
|
2020
|
08
|
2308.00
|
381.75
|
0
|
0
|
|
Viet-Nam
|
9609109000
|
2020
|
08
|
957.45
|
164.40
|
0
|
0
|
|
Viet-Nam
|
9603210000
|
2020
|
08
|
10069.24
|
2058.92
|
0
|
0
|
|
Viet-Nam
|
9506620000
|
2020
|
08
|
974.35
|
23.50
|
0
|
0
|
|
Viet-Nam
|
9506290000
|
2020
|
08
|
350.00
|
30.67
|
0
|
0
|
|
Viet-Nam
|
9505100000
|
2020
|
08
|
2293.87
|
636.30
|
0
|
0
|
|
* Elaboración propia con base a la información del BCR
|
Actualizacion de la Base de Datos de Comercio Exterior 2017-2020
library(dplyr)
data_comercio_exterior_actualizada_2020<-bind_rows(data_comercio_exterior,data_comercio_exterior_actualizada)
data_comercio_exterior_actualizada_2020 %>% head()%>% kable(caption="Base de comercio exterior 2017-2020 (Actualizada hasta Agosto 2020)",
align="c") %>%
add_footnote(label="Elaboración propia con base a la información del BCR",
notation="symbol") %>% kable_styling()
Base de comercio exterior 2017-2020 (Actualizada hasta Agosto 2020)
|
pais
|
sac
|
anio
|
mes
|
valor_cif
|
kilogramos_importaciones
|
valor_fob
|
kilogramos_exportaciones
|
mes_1
|
|
Afganistan
|
4010390000
|
2017
|
4
|
58.06
|
0.92
|
0
|
0
|
NA
|
|
Afganistan
|
6812999000
|
2017
|
4
|
88.38
|
1.39
|
0
|
0
|
NA
|
|
Afganistan
|
8487900000
|
2017
|
4
|
20.93
|
0.33
|
0
|
0
|
NA
|
|
Afganistan
|
8511800000
|
2017
|
4
|
98.93
|
1.56
|
0
|
0
|
NA
|
|
Afganistan
|
8708930000
|
2017
|
4
|
62.18
|
0.98
|
0
|
0
|
NA
|
|
Afganistan
|
9028200000
|
2017
|
4
|
130.06
|
2.05
|
0
|
0
|
NA
|
|
* Elaboración propia con base a la información del BCR
|
library(dplyr)
data_comercio_exterior_actualizada_2020 %>% filter(pais== "El Salvador", anio=="2020", mes_1=="08")
## # A tibble: 48 x 9
## pais sac anio mes valor_cif kilogramos_impo~ valor_fob kilogramos_expo~
## <chr> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 El S~ 9607~ 2020 NA 822. 49 0 0
## 2 El S~ 9404~ 2020 NA 2845. 410 0 0
## 3 El S~ 8532~ 2020 NA 3958. 4.14 0 0
## 4 El S~ 8532~ 2020 NA 531. 5.89 0 0
## 5 El S~ 8452~ 2020 NA 2185. 832 0 0
## 6 El S~ 7216~ 2020 NA 2345. 1814. 0 0
## 7 El S~ 6802~ 2020 NA 9283. 10411. 0 0
## 8 El S~ 6302~ 2020 NA 3898. 347 0 0
## 9 El S~ 6117~ 2020 NA 19.0 0.2 0 0
## 10 El S~ 6111~ 2020 NA 3230 119. 0 0
## # ... with 38 more rows, and 1 more variable: mes_1 <chr>
Guardando la nueva Base de Datos de Comercio Exterior de El Salvador 2017-2020 (Actualizada hasta agosto 2020)
save(data_comercio_exterior_actualizada,file = "C:/Users/Febe Arias/Downloads/Comercio_Actualizada.RData")