Importar a R los datos actualizados de importaciones agosto 2020
library(readr)
library(tidyr)
library(kableExtra)
importaciones_2020_agosto<- read_delim("C:/Users/Rene/Desktop/ciclo 2 20/metodos/Archivos nuevos importaciones/importaciones_2020_agosto.csv","|",
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)
importaciones_2020_agosto %>% head()%>% kable(caption="El Salvador: importaciones agosto 2020 ",
align="c") %>%
add_footnote(label="Elaboracion propia con base en datos del BCR",
notation="symbol") %>% kable_styling()| 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 |
importamos a R los datos actualizados de exportaciones agosto 2020
library(readr)
library(tidyr)
library(kableExtra)
exportaciones_2020_agosto<-read_delim("C:/Users/Rene/Desktop/ciclo 2 20/metodos/Archivos nuevos exportaciones/exportaciones_2020_agosto.csv","|",
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)
exportaciones_2020_agosto %>%head()%>% kable(caption="El Salvador: exportaciones agosto 2020 ",
align="c") %>%
add_footnote(label="Elaboracion propia con base en datos del BCR",
notation="symbol") %>% kable_styling()| 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 |
unir los archivos nuevos de importaciones y exportaciones en una sola tabla
library(dplyr)
library(tidyr)
library(kableExtra)
comercio_exteior_agosto <-importaciones_2020_agosto %>% full_join(
exportaciones_2020_agosto,
by=c("pais","sac","anio","mes"),
suffix=c("_importaciones","_exportaciones"))
comercio_exteior_agosto<-comercio_exteior_agosto %>% replace_na(list(valor_cif=0,
valor_fob=0,
kilogramos_importaciones=0,
kilogramos_exportaciones=0)) %>%
arrange(pais,anio,mes,sac)
comercio_exteior_agosto %>% head() %>%
kable(caption="Base de Comercio Exterior agosto 2020",
align="c") %>%
add_footnote(label="Elaboracion propia con base en datos del BCR",
notation="symbol") %>% kable_styling()| pais | sac | anio | mes | valor_cif | kilogramos_importaciones | valor_fob | kilogramos_exportaciones |
|---|---|---|---|---|---|---|---|
| Afganistan | 4202190000 | 2020 | 8 | 18.88 | 0.68 | 0 | 0 |
| Afganistan | 4202990000 | 2020 | 8 | 7.55 | 0.27 | 0 | 0 |
| Afganistan | 6103109000 | 2020 | 8 | 75.52 | 2.73 | 0 | 0 |
| Afganistan | 6110900000 | 2020 | 8 | 75.52 | 2.73 | 0 | 0 |
| Afganistan | 6117100000 | 2020 | 8 | 9.06 | 0.33 | 0 | 0 |
| Afganistan | 6204490000 | 2020 | 8 | 113.28 | 4.10 | 0 | 0 |
| * Elaboracion propia con base en datos del BCR |
cargamos la base de datos comercio exterior de El Salvador 2017-2020(julio)
library(dplyr)
library(tidyr)
library(kableExtra)
load("C:/Users/Rene/Desktop/ciclo 2 20/metodos/data_comercio_exterior.RData")
data_comercio_exterior %>% head() %>%
kable(caption="Base de Comercio Exterior 2017-2020 (Julio)",
align="c") %>%
add_footnote(label="Elaboracion propia con base en datos del BCR",
notation="symbol") %>% kable_styling()| 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 |
| * Elaboracion propia con base en datos del BCR |
actualizamos los datos
library(dplyr)
library(tidyr)
library(kableExtra)
data_comercio_exterior_actualizado<-bind_rows(data_comercio_exterior,comercio_exteior_agosto)
data_comercio_exterior_actualizado %>% 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()| 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 |
| * Elaboracion propia con base en datos del BCR |
para verificar, mostraremos todas las importaciones y exportaciones con Costa Rica del mes de agosto para el anio 2020
library(dplyr)
library(tidyr)
library(kableExtra)
data_comercio_exterior_actualizado %>%
filter(anio=="2020", pais== "Costa Rica",mes== 8) %>% arrange(sac) ## # A tibble: 648 x 8
## pais sac anio mes valor_cif kilogramos_impo~ valor_fob kilogramos_expo~
## <chr> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 Cost~ 0401~ 2020 8 312185. 312797. 0 0
## 2 Cost~ 0401~ 2020 8 729839. 728585. 0 0
## 3 Cost~ 0402~ 2020 8 108886. 14428. 0 0
## 4 Cost~ 0402~ 2020 8 163421. 21703. 0 0
## 5 Cost~ 0402~ 2020 8 127892. 18727. 0 0
## 6 Cost~ 0402~ 2020 8 47767. 13680. 120996. 56646
## 7 Cost~ 0402~ 2020 8 18848. 9436. 0 0
## 8 Cost~ 0403~ 2020 8 94162. 50397. 32648. 18566.
## 9 Cost~ 0405~ 2020 8 445944. 59633. 4522. 792.
## 10 Cost~ 0406~ 2020 8 11354. 1792. 2369 478.
## # ... with 638 more rows