Datos del comercio exterior 2017-2022
Datos de las exportaciones
library(readr)
library(data.table)
library(dplyr)
library(kableExtra)
setwd("C:/Users/Wendy/Desktop/Datos de exportaciones/")
nombres_archivos_exportar<-list.files()
lista_exportacion<-lapply(
nombres_archivos_exportar,
FUN = read_delim,
delim = "|",
col_names = c("pais",
"sac",
"anio",
"mes",
"valor_fob",
"kilogramos"),
skip=1)
col_types = cols(
pais = "c",
sac = "c",
anio = "d",
mes = "d",
valor_cif = "d",
kilogramos = "d"
)
exportaciones_mensuales_2017_2022<-bind_rows(lista_exportacion)
exportaciones_mensuales_2017_2022 %>% data.table()## pais sac anio mes
## 1: Canada 0106190000 2017 02
## 2: Canada 0106190000 2017 06
## 3: Canada 0106900000 2017 01
## 4: Canada 0106900000 2017 02
## 5: Canada 0106900000 2017 03
## ---
## 329824: Nueva Zelanda 8214900000 2022 06
## 329825: Nueva Zelanda 9307000000 2022 06
## 329826: Nueva Zelanda 9507200000 2022 06
## 329827: Polinesia Francesa (Francia) 9618000000 2022 05
## 329828: Islas Marianas Septentrionales (Estados Unidos) 4818100000 2022 05
## valor_fob kilogramos
## 1: 100.00 26.00
## 2: 580.00 10.00
## 3: 3491.55 11.00
## 4: 4791.20 14.00
## 5: 5516.00 17.00
## ---
## 329824: 121.98 2.50
## 329825: 754.60 13.00
## 329826: 106.44 1.00
## 329827: 9986.14 117.00
## 329828: 5829.12 3804.14exportaciones_mensuales_2017_2022 %>% head() %>% kable(caption = "Base de Exportaciones 2017-2022 (Julio)", align = "c") %>%
add_footnote(label = "Elaboración propia con base en datos del BCR",
notation = "symbol") %>% kable_styling()| pais | sac | anio | mes | valor_fob | kilogramos |
|---|---|---|---|---|---|
| Canada | 0106190000 | 2017 | 02 | 100.00 | 26.0 |
| Canada | 0106190000 | 2017 | 06 | 580.00 | 10.0 |
| Canada | 0106900000 | 2017 | 01 | 3491.55 | 11.0 |
| Canada | 0106900000 | 2017 | 02 | 4791.20 | 14.0 |
| Canada | 0106900000 | 2017 | 03 | 5516.00 | 17.0 |
| Canada | 0106900000 | 2017 | 04 | 5019.50 | 14.5 |
| * Elaboración propia con base en datos del BCR |
Datos de las importaciones
library(readr)
library(dplyr)
library(kableExtra)
setwd("C:/Users/Wendy/Desktop/Datos de importaciones/")
nombres_archivos_importar<-list.files()
lista_importacion<-lapply(
nombres_archivos_importar,
FUN = read_delim,
delim = "|",
col_names = c("pais",
"sac",
"anio",
"mes",
"valor_cif",
"kilogramos"),
skip=1)
col_types = cols(
pais = "c",
sac = "c",
anio = "d",
mes = "d",
valor_cif = "d",
kilogramos = "d"
)
importaciones_mensuales_2017_2022<-bind_rows(lista_importacion)
importaciones_mensuales_2017_2022 %>% data.table()## pais sac anio mes valor_cif kilogramos
## 1: Groenlandia (Dinamarca) 2710199900 2017 02 317.40 8.16
## 2: Canada 0409000000 2017 03 673.18 836.10
## 3: Canada 0409000000 2017 04 171.17 600.00
## 4: Canada 0409000000 2017 05 330.09 660.00
## 5: Canada 0409000000 2017 06 149.46 437.50
## ---
## 1183887: Otros Paises 6304930000 2022 03 8293.06 761.50
## 1183888: Otros Paises 8212102000 2022 02 1468.66 93.24
## 1183889: Otros Paises 8212200000 2022 02 695.62 44.16
## 1183890: Otros Paises 8429400000 2022 06 29498.00 2560.00
## 1183891: Otros Paises 9603210000 2022 02 480.21 30.48importaciones_mensuales_2017_2022 %>% head() %>% kable(caption = "Base de Importaciones 2017-2022 (Julio)", 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 |
|---|---|---|---|---|---|
| Groenlandia (Dinamarca) | 2710199900 | 2017 | 02 | 317.40 | 8.16 |
| Canada | 0409000000 | 2017 | 03 | 673.18 | 836.10 |
| Canada | 0409000000 | 2017 | 04 | 171.17 | 600.00 |
| Canada | 0409000000 | 2017 | 05 | 330.09 | 660.00 |
| Canada | 0409000000 | 2017 | 06 | 149.46 | 437.50 |
| Canada | 0511100000 | 2017 | 03 | 18988.60 | 30.00 |
| * Elaboración propia con base en datos del BCR |
Base de Datos De Comercio Exterior
library(dplyr)
library(tidyr)
library(kableExtra)
importaciones_mensuales_2017_2022 %>% full_join(
exportaciones_mensuales_2017_2022,
by=c("pais","sac", "anio", "mes"),
suffix=c("_imp","_exp")
)->datos_comercio_exterior
datos_comercio_exterior %>% replace_na(
list(valor_cif=0,
valor_fob=0,
kilogramos_imp=0,
kilogramos_exp=0)
) %>%
arrange(pais,anio,mes,sac)->datos_comercio_exterior
datos_comercio_exterior %>% head() %>%
kable(caption = "Base de Comercio Exterior 2017- 2022(Junio)", 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_imp | valor_fob | kilogramos_exp |
|---|---|---|---|---|---|---|---|
| Afganistan | 4010390000 | 2017 | 04 | 58.06 | 0.92 | 0 | 0 |
| Afganistan | 6812999090 | 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 |
| * Elaboración propia con base en datos del BCR |
Guardar la tabla de comercio exterior
save(datos_comercio_exterior, file = "C:/Users/Wendy/Desktop/datos_comercio_exterior.RData")