Creación de tabla de importaciones a agosto 2020
library(readr)
library(dplyr)
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
library(kableExtra)
##
## Attaching package: 'kableExtra'
## The following object is masked from 'package:dplyr':
##
## group_rows
setwd("C:/Users/user/Desktop/comercio/archivos_nuevos_Importaciones")
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)
data_importaciones_agosto_2020<-bind_rows(lista_importacion)
data_importaciones_agosto_2020 %>% head()%>% kable(caption="El Salvador: Base de importaciones 2017-2020 (Agosto)",
align ="c") %>%
add_footnote(label="Elaboración propia con base de datos del BCR",
notation ="symbol")%>% kable_styling()
El Salvador: Base de importaciones 2017-2020 (Agosto)
|
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 de datos del BCR
|
Creación de la tabla de Exportaciones a Agosto 2020
library(readr)
library(dplyr)
library(kableExtra)
setwd("C:/Users/user/Desktop/comercio/archivos_nuevos_Exportaciones")
archivos_exportar<-list.files()
lista_exportacion<-lapply(archivos_exportar,
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_fob="d",
kilogramos="d"),
skip=1)
data_exportaciones_agosto_2020<-bind_rows(lista_exportacion)
data_exportaciones_agosto_2020%>%head()%>% kable(caption="El Salvador: Base de exportaciones 2017-2020 (Agosto)",align ="c") %>%
add_footnote(label = "Elaboración propia con base de datos del BCR",
notation ="symbol")%>% kable_styling()
El Salvador: Base de exportaciones 2017-2020 (Agosto)
|
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 de datos del BCR
|
Creacion de tabla de Comercio Exterior
library(dplyr)
library(tidyr)
library(kableExtra)
data_importaciones_agosto_2020 %>% full_join(
data_exportaciones_agosto_2020,
by=c("pais","sac","anio","mes"),
suffix=c("_importaciones","_exportaciones"))->data_comercio_exterior_agosto_2020
data_comercio_exterior_agosto_2020 %>% replace_na(list(valor_cif=0,
valor_fob=0,
kilogramos_importaciones=0,
kilogramos_exportaciones=0)) %>%
arrange(pais, anio, mes, sac) ->data_comercio_exterior_agosto_2020
data_comercio_exterior_agosto_2020 %>% head() %>%
kable(caption="Base de comecio exterior 2017-2020 (Agosto)",
align="c") %>%
add_footnote(label="Elaboración propia con base en datos del BCR",
notation="symbol") %>% kable_styling()
Base de comecio exterior 2017-2020 (Agosto)
|
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 en datos del BCR
|
Actualización de la base de datos de comercio exterior 2017-2020 (agosto)
data_comercio_exterior_agosto_2020<-bind_rows(lista_exportacion)
data_comercio_exterior_agosto_2020 %>% 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
|
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 en datos del BCR
|
Mostrando los datos de agosto de 2020 presentes en la tabla de comercio exterior actualizada
data_comercio_exterior_agosto_2020 %>%
filter(mes==8,anio==2020)
## # A tibble: 4,634 x 6
## pais sac anio mes valor_fob kilogramos
## <chr> <chr> <dbl> <dbl> <dbl> <dbl>
## 1 Canada 0602100000 2020 8 6181. 157.
## 2 Canada 0811900000 2020 8 126. 40.7
## 3 Canada 0901113000 2020 8 128349. 27996.
## 4 Canada 0904119000 2020 8 0.7 0.36
## 5 Canada 0910910000 2020 8 702 95.3
## 6 Canada 1207990000 2020 8 700 238.
## 7 Canada 1404903100 2020 8 451. 238.
## 8 Canada 1806320000 2020 8 2640 1055.
## 9 Canada 1901909000 2020 8 4832. 1409.
## 10 Canada 1902190000 2020 8 1450 561.
## # ... with 4,624 more rows
#Guardando la nueva Base de Datos de Comercio Exterior de El Salvador 2017-2020 (agosto)
save(data_comercio_exterior_agosto_2020,file="C:/Users/user/Desktop/comercio/data_comercio_exterior_actualizado.RData")