Base de datos no actualizada
load("C:/Users/Keiry/Downloads/data_comercio_exterior (1).RData")
library(dplyr)
library(kableExtra)
Bases de datos Actualizada hasta Agosto 2020
Impotaciones hasta Agosto de 2020
library(readr)
library(dplyr)
library(kableExtra)
setwd("C:/Users/Keiry/Downloads/Importaciones")
archivos_importar<-list.files()
lista_importacion<-lapply(archivos_importar, FUN = read_delim,
"|", col_names=c("pais", "sac", "anios", "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 2017-2020 (Agosto)",
align="c") %>%
add_footnote(label="Elaboración propia con base en datos del BCR",
notation="symbol") %>% kable_styling()
El Salvador: Base de Importaciones 2017-2020 (Agosto)
|
pais
|
sac
|
anios
|
mes
|
valor_cif
|
kilogramos
|
|
Canada
|
0103100000
|
2020
|
7
|
41604.18
|
2690.00
|
|
Canada
|
0403109000
|
2020
|
3
|
82.36
|
3.00
|
|
Canada
|
0406909000
|
2020
|
7
|
398.72
|
25.36
|
|
Canada
|
0511100000
|
2020
|
2
|
14808.56
|
35.00
|
|
Canada
|
0511100000
|
2020
|
3
|
3400.62
|
30.00
|
|
Canada
|
0511100000
|
2020
|
8
|
15416.16
|
59.00
|
|
* Elaboración propia con base en datos del BCR
|
Exportaciones hasta Agosto de 2020
library(readr)
library(dplyr)
library(kableExtra)
setwd("C:/Users/Keiry/Downloads/Exportaciones")
archivos_importar<-list.files()
lista_exportacion<-lapply(archivos_importar, FUN = read_delim,
"|", col_names=c("pais", "sac", "anios", "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 2017-2020 (Agosto)",
align="c") %>%
add_footnote(label="Elaboración propia con base en datos del BCR",
notation="symbol") %>% kable_styling()
Base de Exportaciones 2017-2020 (Agosto)
|
pais
|
sac
|
anios
|
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 en datos del BCR
|
Base de datos de Comercio Exterior
library(dplyr)
library(tidyr)
library(kableExtra)
data_importaciones %>% full_join(
data_exportaciones,
by=c("pais", "sac", "anios", "mes"),
suffix=c("_importaciones","_exportaciones"))->data_comercio_exterior
#Sutituir Valores Nulos "NA" yguaradr el mismo objeto
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="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
|
anios
|
mes
|
valor_cif
|
kilogramos_importaciones
|
valor_fob
|
kilogramos_exportaciones
|
|
Canada
|
0103100000
|
2020
|
7
|
41604.18
|
2690.00
|
0
|
0
|
|
Canada
|
0403109000
|
2020
|
3
|
82.36
|
3.00
|
0
|
0
|
|
Canada
|
0406909000
|
2020
|
7
|
398.72
|
25.36
|
0
|
0
|
|
Canada
|
0511100000
|
2020
|
2
|
14808.56
|
35.00
|
0
|
0
|
|
Canada
|
0511100000
|
2020
|
3
|
3400.62
|
30.00
|
0
|
0
|
|
Canada
|
0511100000
|
2020
|
8
|
15416.16
|
59.00
|
0
|
0
|
|
* Elaboración propia con base en datos del BCR
|
Para guardar la tabla de Comercio Exterior
save(data_comercio_exterior, file = "C:/Users/Keiry/Documents/data_comercio_exterior.RData")