Importaciones agosto 2020
library(readr)
library(dplyr)
library(kableExtra)
setwd("C:/Users/Lilibeth Portillo/Documents/Metodos para el analisis economico/Comercio Exterior Actualizado/IMPORTACIONES/")
archivos_importar<-list.files()
lista_importacion<-lapply(archivos_importar, FUN = read_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_importacion)
data_importaciones %>% head()%>% kable(caption="El Salvador: Base de Importaciones 2020 (Agosto)",
align="c") %>%
add_footnote(label="Elaboracion propia con base en datos del BCR",
notation="symbol") %>% 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
|
|
* Elaboracion propia con base en datos del BCR
|
Exportaciones Agosto 2020
library(readr)
library(dplyr)
library(kableExtra)
setwd("C:/Users/Lilibeth Portillo/Documents/Metodos para el analisis economico/Comercio Exterior Actualizado/EXPORTACIONES/")
archivos_importar<-list.files()
lista_exportacion<-lapply(archivos_importar, FUN = read_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_exportacion)
data_exportaciones %>% head() %>% kable(caption="Base de Exportaciones 2020 (Agosto)",
align="c") %>%
add_footnote(label="Elaboracion propia con base en datos del BCR",
notation="symbol") %>% kable_styling()
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
|
|
* Elaboracion propia con base en datos del BCR
|
Comercio Exterior Agosto 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_08
#Sutituyendo Valores Nulos "NA" y guardando el mismo objeto
data_comercio_exterior_08 %>% replace_na(list(valor_cif=0,
valor_fob=0,
kilogramos_importaciones=0,
kilogramos_exportaciones=0)) %>%
arrange("pais","anio","mes","sac") ->data_comercio_exterior_08
data_comercio_exterior_08 %>% head() %>%
kable(caption="Base de Comercio Exterior 2017-2020 (Agosto)",
align="c") %>%
add_footnote(label="Elaboracion 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
|
|
Canada
|
0511100000
|
2020
|
8
|
15416.16
|
59.00
|
0.00
|
0.0
|
|
Canada
|
0713334000
|
2020
|
8
|
2250.88
|
9988.00
|
0.00
|
0.0
|
|
Canada
|
0713400000
|
2020
|
8
|
662.02
|
381.60
|
0.00
|
0.0
|
|
Canada
|
0811900000
|
2020
|
8
|
24056.86
|
6050.04
|
125.58
|
40.7
|
|
Canada
|
1101000000
|
2020
|
8
|
377.68
|
500.00
|
0.00
|
0.0
|
|
Canada
|
1207500000
|
2020
|
8
|
61635.45
|
58512.00
|
0.00
|
0.0
|
|
* Elaboracion propia con base en datos del BCR
|
Cargando base de datos de comercio exterior sin actualizar
load("C:/Users/Lilibeth Portillo/Documents/Metodos para el analisis economico/Comercio Exterior/data_comercio_exterior.RData")
Base de datos actualizada
data_actualizacion_comercio_exterior<-rbind(data_comercio_exterior, data_comercio_exterior_08)
data_actualizacion_comercio_exterior%>% head()%>% kable(caption = "Tabla de comercio exterior actualizada a Agosto 2020",
aling ="c")%>%
add_footnote(label ="Elaboracion propia con base en datos del BCR",
notation = "symbol")%>% kable_styling()
Tabla de comercio exterior actualizada a Agosto 2020
|
pais
|
sac
|
anio
|
mes
|
valor_cif
|
kilogramos_importaciones
|
valor_fob
|
kilogramos_exportaciones
|
|
Afganistan
|
4010390000
|
2017
|
04
|
58.06
|
0.92
|
0
|
0
|
|
Afganistan
|
6812999000
|
2017
|
04
|
88.38
|
1.39
|
0
|
0
|
|
Afganistan
|
8487900000
|
2017
|
04
|
20.93
|
0.33
|
0
|
0
|
|
Afganistan
|
8511800000
|
2017
|
04
|
98.93
|
1.56
|
0
|
0
|
|
Afganistan
|
8708930000
|
2017
|
04
|
62.18
|
0.98
|
0
|
0
|
|
Afganistan
|
9028200000
|
2017
|
04
|
130.06
|
2.05
|
0
|
0
|
|
* Elaboracion propia con base en datos del BCR
|
Ultimos 6 elementos para verificar que se muestran datos de agosto 2020
data_actualizacion_comercio_exterior %>% tail()%>% kable(caption="El Salvador: Base de Comercio Exterior 2017-2020 (agosto)",
align="c") %>% kable_styling()
El Salvador: Base de Comercio Exterior 2017-2020 (agosto)
|
pais
|
sac
|
anio
|
mes
|
valor_cif
|
kilogramos_importaciones
|
valor_fob
|
kilogramos_exportaciones
|
|
Nueva Zelandia
|
6109900000
|
2020
|
8
|
0
|
0
|
189.79
|
3.02
|
|
Nueva Zelandia
|
6110200000
|
2020
|
8
|
0
|
0
|
22.68
|
0.32
|
|
Nueva Zelandia
|
6110300000
|
2020
|
8
|
0
|
0
|
1640.30
|
14.23
|
|
Nueva Zelandia
|
6114300000
|
2020
|
8
|
0
|
0
|
1851.74
|
21.20
|
|
Nueva Zelandia
|
6117900000
|
2020
|
8
|
0
|
0
|
213.06
|
3.67
|
|
Nueva Zelandia
|
6211330000
|
2020
|
8
|
0
|
0
|
54.00
|
0.54
|
Guardando base de datos
save(data_actualizacion_comercio_exterior,file =
"C:/Users/Lilibeth Portillo/Documents/Metodos para el analisis economico/Comercio Exterior Actualizado/data_actualizacion_comercio_exterior")