library(readr)
library(dplyr)
library(kableExtra)
setwd("C:/Users/isaac/Downloads/importaciones 2018-2020/")
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<-bind_rows(lista_importacion)
data_importaciones %>% head() %>% kable(caption = "El Salvador: Base de Importaciones 2018-2020",
aling="c") %>%
add_footnote(label="Elaboración propia con base en datos del BCR",
notation="symbol") %>% kable_styling()| pais | sac | anio | mes | valor_cif |
|---|---|---|---|---|
| Canada | 2018 | 1 | 4977468 | 2758938 |
| Canada | 2018 | 2 | 7249711 | 7501331 |
| Canada | 2018 | 3 | 3940725 | 2362982 |
| Canada | 2018 | 4 | 7966567 | 8741121 |
| Canada | 2018 | 5 | 6373512 | 4279974 |
| Canada | 2018 | 6 | 8933882 | 5914694 |
| * Elaboración propia con base en datos del BCR |
library(readr)
library(dplyr)
library(kableExtra)
setwd("C:/Users/isaac/Downloads/exportaciones 2018-2020/")
archivos_expor_importar<-list.files()
lista_exportacion<-lapply(archivos_expor_importar,
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_cif = "d",
kilogramos = "d"
),
skip = 1)## Warning: The following named parsers don't match the column names: valor_cif
## The following named parsers don't match the column names: valor_cif
## The following named parsers don't match the column names: valor_cif
## The following named parsers don't match the column names: valor_cif
## The following named parsers don't match the column names: valor_cif
## The following named parsers don't match the column names: valor_cifdata_exportaciones<- bind_rows(lista_exportacion)
data_exportaciones %>% head() %>% kable(caption = "El Salvador: Base de Exportaciones 2018-2020",
aling="c") %>%
add_footnote(label = "Elaboración propia con base en datos del BCR",
notation = "symbol") %>% kable_styling()| pais | sac | anio | mes | valor_fob |
|---|---|---|---|---|
| Canada | 2018 | 1 | 1633047 | 112351.73 |
| Canada | 2018 | 2 | 1792503 | 99524.84 |
| Canada | 2018 | 3 | 996637 | 48442.67 |
| Canada | 2018 | 4 | 1753008 | 213313.00 |
| Canada | 2018 | 5 | 2044478 | 172250.58 |
| Canada | 2018 | 6 | 1892698 | 216507.58 |
| * Elaboración propia con base en datos del BCR |
library(dplyr)
library(tidyr)
library(kableExtra)
data_comercio_exterior<- data_importaciones %>% full_join(data_exportaciones,
by= c("pais", "sac", "anio", "mes"),
suffix= c("_importaciones", "_exportaciones"))
# Sustituyendo los Valores Nulos "NA" y guardar en el mismo objeto
data_comercio_exterior<- data_comercio_exterior %>% replace_na(
list(
valor_cif = 0,
valor_fob = 0,
kilogramos_importaciones = 0,
kilogramos_exportaciones = 0
)
) %>%
arrange(pais, anio, mes, sac)
# Mostrar los primeros 6 elementos
data_comercio_exterior %>% head() %>%
kable(caption = "Base de Comercio Exterior 2017-2020 (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 | valor_fob |
|---|---|---|---|---|---|
| Afganistan | 2019 | 2 | 9900.21 | 8574.03 | 0 |
| Afganistan | 2018 | 6 | 6448.43 | 1463.92 | 0 |
| Afganistan | 2020 | 8 | 843.55 | 30.50 | 0 |
| Afganistan | 2019 | 8 | 1392.56 | 120.00 | 0 |
| Afganistan | 2019 | 9 | 382.13 | 0.00 | 19 |
| Afganistan | 2020 | 9 | 3966.18 | 108.00 | 0 |
| * Elaboración propia con base en datos del BCR |
# Importaciones actualización
library(dplyr)
library(tidyr)
library(kableExtra)
setwd("C:/Users/isaac/Downloads/importaciones actualizadas/")
archivos_importar_actualizados<- list.files()
lista_importacion_actualizada<- lapply(archivos_importar_actualizados,
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_actualizada<- bind_rows(lista_importacion_actualizada)
# actualización exportaciones
setwd("C:/Users/isaac/Downloads/exportaciones actualizadas/")
archivos_ex_actualizados<- list.files()
lista_exportacion_Actualizada<- lapply(archivos_ex_actualizados,
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_cif = "d",
kilogramos = "d"
),
skip = 1)
data_exportaciones_actualizada<- bind_rows(lista_exportacion_Actualizada)
data_comercio_exterior_actualizada<- data_importaciones_actualizada %>% full_join(data_exportaciones_actualizada,
by = c("pais", "sac", "anio", "mes"),
suffix = c("_importaciones", "_exportaciones")
)
#Sustituyendo los Valores Nulos "NA" y guardar en el mismo objeto
data_comercio_exterior_actualizada<- data_comercio_exterior_actualizada %>% replace_na(list(
valor_cif = 0,
valor_fob = 0,
kilogramos_importaciones = 0,
kilogramos_exportaciones = 0
)
) %>%
arrange(pais, anio, mes, sac)
# agrupando las tablas actualizadas
data_comercio_exterior<-data_comercio_exterior %>% bind_rows(data_comercio_exterior_actualizada) %>% arrange(pais, anio, mes, sac)# Mostrando los primeros 6 elementos
data_comercio_exterior %>% head() %>%
kable(caption = "Base de Comercio Exterior 2018-2023",
align = "c") %>%
add_footnote(label = "Elaboración propia con base en datos del BCR",
notation = "symbol") %>% kable_styling()| pais | sac | anio | mes | valor_cif | valor_fob |
|---|---|---|---|---|---|
| Afganistan | 2022 | 2 | 220.50 | 0.29 | 0 |
| Afganistan | 2019 | 2 | 9900.21 | 8574.03 | 0 |
| Afganistan | 2022 | 5 | 665.90 | 4.00 | 0 |
| Afganistan | 2022 | 6 | 1480.09 | 33.38 | 0 |
| Afganistan | 2018 | 6 | 6448.43 | 1463.92 | 0 |
| Afganistan | 2023 | 7 | 204.75 | 0.10 | 0 |
| * Elaboración propia con base en datos del BCR |