Cargando los datos de importaciones agosto 2020
setwd("C:/Users/Alexander Berardi/Desktop/Metodos para el analisis economico/nueva importacion")
nombres_archivos_importar<-list.files()
lista_importacion<-lapply(nombres_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)
importaciones_agosto_2020<- bind_rows(lista_importacion)
importaciones_agosto_2020 %>% data.table()## pais sac anio mes valor_cif kilogramos
## 1: Canada 0511100000 2020 8 15416.16 59.00
## 2: Canada 0713334000 2020 8 2250.88 9988.00
## 3: Canada 0713400000 2020 8 662.02 381.60
## 4: Canada 0811900000 2020 8 24056.86 6050.04
## 5: Canada 1101000000 2020 8 377.68 500.00
## ---
## 16079: Nueva Zelandia 3923109000 2020 8 1291.67 235.00
## 16080: Nueva Zelandia 3924109000 2020 8 8.76 0.70
## 16081: Nueva Zelandia 9019200000 2020 8 900668.83 3276.90
## 16082: Islas Tokelau (N.Z.) 8708809000 2020 8 5166.16 181.35
## 16083: GUAM (USA) 4911109000 2020 8 0.01 120.00Cargando los datos de exportaciones agosto 2020
setwd("C:/Users/Alexander Berardi/Desktop/Metodos para el analisis economico/nueva exportacion")
nombres_archivos_importar<-list.files()
lista_importacion<-lapply(nombres_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_fob="d", kilogramos="d"),
skip=1)
exportaciones_agosto_2020<- bind_rows(lista_importacion)
exportaciones_agosto_2020 %>% data.table()## pais sac anio mes valor_fob kilogramos
## 1: Canada 0602100000 2020 8 6180.94 157.06
## 2: Canada 0811900000 2020 8 125.58 40.70
## 3: Canada 0901113000 2020 8 128349.23 27996.14
## 4: Canada 0904119000 2020 8 0.70 0.36
## 5: Canada 0910910000 2020 8 702.00 95.33
## ---
## 4630: Nueva Zelandia 6110200000 2020 8 22.68 0.32
## 4631: Nueva Zelandia 6110300000 2020 8 1640.30 14.23
## 4632: Nueva Zelandia 6114300000 2020 8 1851.74 21.20
## 4633: Nueva Zelandia 6117900000 2020 8 213.06 3.67
## 4634: Nueva Zelandia 6211330000 2020 8 54.00 0.54Uniendo tabla de exportación e importación agosto 2020
importaciones_agosto_2020 %>% full_join(exportaciones_agosto_2020,
by=c("pais","sac","anio","mes"),
suffix=c("_importaciones","_exportaciones"))->comercio_exterior_agosto_2020
comercio_exterior_agosto_2020 %>% replace_na(list(valor_cif=0,
valor_fob=0,
kilogramos_importaciones=0,
kilogramos_exportaciones=0)) %>%
arrange(pais,anio,mes,sac) ->comercio_exterior_agosto_2020
comercio_exterior_agosto_2020 %>% head() %>%
kable(caption="Base de Comercio Exterior agosto 2020",
align="c") %>%
add_footnote(label="Elaboración 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 |
| * Elaboración propia con base en datos del BCR |
Actualizando tabla de comercio exterior a agosto 2020
load("C:/Users/Alexander Berardi/Desktop/Metodos para el analisis economico/comercio/comercio_exterior.RData")
update_comerio_exterior<-bind_rows(comercio_exterior, comercio_exterior_agosto_2020)
update_comerio_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()| 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 |
Datos de agosto
update_comerio_exterior %>% filter(mes==8,anio==2020)## # A tibble: 19,361 x 8
## pais sac anio mes valor_cif kilogramos_impo~ valor_fob kilogramos_expo~
## <chr> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 Afga~ 4202~ 2020 8 18.9 0.68 0 0
## 2 Afga~ 4202~ 2020 8 7.55 0.27 0 0
## 3 Afga~ 6103~ 2020 8 75.5 2.73 0 0
## 4 Afga~ 6110~ 2020 8 75.5 2.73 0 0
## 5 Afga~ 6117~ 2020 8 9.06 0.33 0 0
## 6 Afga~ 6204~ 2020 8 113. 4.1 0 0
## 7 Afga~ 6211~ 2020 8 227. 8.19 0 0
## 8 Afga~ 6403~ 2020 8 18.9 0.68 0 0
## 9 Afga~ 6405~ 2020 8 37.8 1.37 0 0
## 10 Afga~ 6504~ 2020 8 90.6 3.28 0 0
## # ... with 19,351 more rows