Importaciones Agosto 2020
library(readr)
library(dplyr)
library(kableExtra)
setwd("C:/Users/Keiry/Downloads/impor_agosto_20/")
archivos_importar<-list.files()
lista_importacion<-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)
datos_importaciones_2017_2020<-bind_rows(lista_importacion)
datos_importaciones_2017_2020 %>% head()%>% kable(caption="El Salvador: Base de Importaciones de 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 de 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
|
Exportaciones Agosto 2020
library(readr)
library(dplyr)
library(kableExtra)
setwd("C:/Users/Keiry/Downloads/expor_agosto_20/")
archivos_importar<-list.files()
lista_exrtacion<-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)
datos_exportaciones_2017_2020<-bind_rows(lista_importacion)
datos_exportaciones_2017_2020 %>% head()%>% kable(caption="El Salvador: Base de Importaciones de 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 de 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
|
#Comercio Exterior Agosto 2020
library(dplyr)
library(tidyr)
library(kableExtra)
datos_importaciones_2017_2020 %>% full_join(
datos_exportaciones_2017_2020,
by=c("pais","sac","anio","mes"),
suffix=c("_importaciones","_exportaciones"))->comercio_exterior_actualizado_2017_2020
comercio_exterior_actualizado_2017_2020 %>% replace_na(list(valor_cif=0,
valor_fob=0,
kilogramos_importaciones=0,
kilogramos_exportaciones=0)) %>%
arrange(pais,anio,mes,sac) ->comercio_exterior_actualizado_2017_2020
comercio_exterior_actualizado_2017_2020 %>% head() %>%
kable(caption="El Salvador: Base de Comercio Exterior de agosto 2020",
align="c") %>%
add_footnote(label="Elaboración propia con base en datos del BCR",
notation="symbol") %>% kable_styling()
El Salvador: Base de Comercio Exterior de agosto 2020
|
pais
|
sac
|
anio
|
mes
|
valor_cif_importaciones
|
kilogramos_importaciones
|
valor_cif_exportaciones
|
kilogramos_exportaciones
|
|
Afganistan
|
4202190000
|
2020
|
8
|
18.88
|
0.68
|
18.88
|
0.68
|
|
Afganistan
|
4202990000
|
2020
|
8
|
7.55
|
0.27
|
7.55
|
0.27
|
|
Afganistan
|
6103109000
|
2020
|
8
|
75.52
|
2.73
|
75.52
|
2.73
|
|
Afganistan
|
6110900000
|
2020
|
8
|
75.52
|
2.73
|
75.52
|
2.73
|
|
Afganistan
|
6117100000
|
2020
|
8
|
9.06
|
0.33
|
9.06
|
0.33
|
|
Afganistan
|
6204490000
|
2020
|
8
|
113.28
|
4.10
|
113.28
|
4.10
|
|
* Elaboración propia con base en datos del BCR
|
Guardar base de datos
save(comercio_exterior_actualizado_2017_2020, file = "C:/Users/Keiry/Documents/Comercio_Actualizado/comercio_actualizado.RData")
Cargando los datos no actualizados.
load("C:/Users/Keiry/Documents/Comercio_exterior/data_comercio_exterior.RData")
Cargando los datos actualizados
load("C:/Users/Keiry/Documents/Comercio_Actualizado/comercio_actualizado.RData")
Actualizacion de Comercio Exterior hasta agosto 2020
Comercio_actualizada<-bind_rows(data_comercio_exterior, comercio_exterior_actualizado_2017_2020)
Comercio_actualizada %>% head() %>% kable(caption = "Tabla del comercio exterior 2017-2020 actualizada hasta agosto.", align = "c") %>%
add_footnote(label = "Elaboración propia con base en datos del BCR",
notation = "symbol") %>% kable_styling()
Tabla del comercio exterior 2017-2020 actualizada hasta agosto.
|
pais
|
sac
|
anio
|
mes
|
valor_cif
|
kilogramos_importaciones
|
valor_fob
|
kilogramos_exportaciones
|
valor_cif_importaciones
|
valor_cif_exportaciones
|
|
Afganistan
|
4010390000
|
2017
|
4
|
58.06
|
0.92
|
0
|
0
|
NA
|
NA
|
|
Afganistan
|
6812999000
|
2017
|
4
|
88.38
|
1.39
|
0
|
0
|
NA
|
NA
|
|
Afganistan
|
8487900000
|
2017
|
4
|
20.93
|
0.33
|
0
|
0
|
NA
|
NA
|
|
Afganistan
|
8511800000
|
2017
|
4
|
98.93
|
1.56
|
0
|
0
|
NA
|
NA
|
|
Afganistan
|
8708930000
|
2017
|
4
|
62.18
|
0.98
|
0
|
0
|
NA
|
NA
|
|
Afganistan
|
9028200000
|
2017
|
4
|
130.06
|
2.05
|
0
|
0
|
NA
|
NA
|
|
* Elaboración propia con base en datos del BCR
|
Comercio_actualizada %>% filter(mes==8,anio==2020) %>% head() %>% kable(caption = "tabla Comercio Exterior Actualizada", aling = "c") %>% kable_styling()
tabla Comercio Exterior Actualizada
|
pais
|
sac
|
anio
|
mes
|
valor_cif
|
kilogramos_importaciones
|
valor_fob
|
kilogramos_exportaciones
|
valor_cif_importaciones
|
valor_cif_exportaciones
|
|
Afganistan
|
4202190000
|
2020
|
8
|
NA
|
0.68
|
NA
|
0.68
|
18.88
|
18.88
|
|
Afganistan
|
4202990000
|
2020
|
8
|
NA
|
0.27
|
NA
|
0.27
|
7.55
|
7.55
|
|
Afganistan
|
6103109000
|
2020
|
8
|
NA
|
2.73
|
NA
|
2.73
|
75.52
|
75.52
|
|
Afganistan
|
6110900000
|
2020
|
8
|
NA
|
2.73
|
NA
|
2.73
|
75.52
|
75.52
|
|
Afganistan
|
6117100000
|
2020
|
8
|
NA
|
0.33
|
NA
|
0.33
|
9.06
|
9.06
|
|
Afganistan
|
6204490000
|
2020
|
8
|
NA
|
4.10
|
NA
|
4.10
|
113.28
|
113.28
|