Primer Laboratorio: Parte Uno

Integrantes

Brayan Josue Cruz Alfaro —- CA17113
Osvaldo Enrique Roche Romero — RR18105

GT

GT: 03

1. Compile la información disponible en la “Base de Datos de Comercio Exterior” del BCR, para los años 2018-2020. Y genera una tabla tal como se mostró en las clases (aún no incluya los nombres ISO de los países).

Tabla importaciones 2018-2020

library(dplyr)
library(readr)
library(data.table)
library(kableExtra)
setwd("C:/Users/DELL/Desktop/MAE_2021/primer_laboratorio/Datos/importaciones")
nombres_archivos_importar <- list.files()
lista_importacion <- lapply(X = nombres_archivos_importar,
                            FUN = read_delim,
                            delim = "|",
                            col_names = c("pais", 
                                          "sac",
                                          "anio",
                                          "mes",
                                          "valor_cif",
                                          "kilogramo"),
                            col_types = cols("c","c", "d","d","d","d"), skip = 1)

importaciones_mensuales <- bind_rows(lista_importacion)

# Presentación como tabla

importaciones_mensuales %>%  
  head() %>% 
  kable(caption = "Base importaciones 2018-2020", align = "c") %>%
  add_footnote(label = "Elaboración propia en base a BCR", notation = "symbol") %>% 
  kable_styling()

Base importaciones 2018-2020
pais	sac	anio	mes	valor_cif	kilogramo
Canada	0404900000	2018	2	68040.00	18810.00
Canada	0404900000	2018	3	92725.74	25528.60
Canada	0404900000	2018	4	92546.45	25525.00
Canada	0404900000	2018	6	91531.00	25525.00
Canada	0405100000	2018	6	26.56	20.00
Canada	0511100000	2018	1	16365.04	23.65
^* Elaboración propia en base a BCR

Tabla Exportaciones 2018-2020

setwd("C:/Users/DELL/Desktop/MAE_2021/primer_laboratorio/Datos/exportaciones")
nombres_archivos_exportar <- list.files()
lista_exportaciones <- lapply(X = nombres_archivos_exportar,
                            FUN = read_delim,
                            delim = "|",
                            col_names = c("pais",
                                          "sac",
                                          "anio", 
                                          "mes",
                                          "valor_fob",
                                          "kilogramo"),
                            col_types = cols("c","c", "d","d","d","d"),
                            skip = 1)

exportaciones_mensuales <- bind_rows(lista_exportaciones)

# Presentando la tabla

exportaciones_mensuales %>%  
  head() %>% 
  kable(caption = "Base expórtaciones 2018-2020", align = "c") %>%
  add_footnote(label = "Elaboración propia en base a BCR", notation = "symbol") %>% 
  kable_styling()

Base expórtaciones 2018-2020
pais	sac	anio	mes	valor_fob	kilogramo
Canada	0106900000	2018	2	4667.2	15.0
Canada	0106900000	2018	3	4237.1	14.0
Canada	0106900000	2018	4	3918.0	13.5
Canada	0106900000	2018	5	3155.4	10.0
Canada	0106900000	2018	6	3097.4	9.0
Canada	0305720000	2018	2	2702.3	280.0
^* Elaboración propia en base a BCR

Tabla comercio Exterior 2018-2020

library(tidyr)

data_comercio_exterior <- importaciones_mensuales %>% 
  full_join(exportaciones_mensuales,
            by = c("pais", "sac", "anio", "mes"),
            suffix = c("_importaciones", "_exportaciones"))

data_comercio_exterior <- data_comercio_exterior %>%
  replace_na(
  list(
    valor_cif = 0,
    valor_fob = 0,
    kilogramo_importaciones = 0,
    kilogramo_exportaciones = 0
  )
  ) %>% 
  arrange(pais, anio, mes, sac)

data_comercio_exterior %>%  
  head() %>% 
  kable(caption = "Base de comercio exterior 2018-2020", align = "c") %>%
  add_footnote(label = "Elaboración propia con base al BCR", notation = "symbol") %>% 
  kable_styling()

Base de comercio exterior 2018-2020
pais	sac	anio	mes	valor_cif	kilogramo_importaciones	valor_fob	kilogramo_exportaciones
Afganistan	0806200000	2018	6	6448.43	1463.92	0	0
Afganistan	6104220000	2018	10	3153.37	2407.61	0	0
Afganistan	6104620000	2018	10	946.01	722.28	0	0
Afganistan	6105100000	2018	10	9405.39	7181.03	0	0
Afganistan	6106100000	2018	10	1353.32	1725.55	0	0
Afganistan	6405900000	2018	10	2260.03	1725.55	0	0
^* Elaboración propia con base al BCR

#Guardado del objeto data_comercio_exterior

save(data_comercio_exterior, file = "C:/Users/DELL/Desktop/MAE_2021/primer_laboratorio/data_comercio_exterior.RData")

2. Actualización de la tabla de comercio exterior para el 2021 (Junio)

#### Datos Importaciones ####

setwd("C:/Users/DELL/Desktop/MAE_2021/primer_laboratorio/Datos_update/importaciones")
nombres_archivos_importar <- list.files()
lista_importacion_update <- lapply(X = nombres_archivos_importar,
                            FUN = read_delim,
                            delim = "|",
                            col_names = c("pais", 
                                          "sac",
                                          "anio",
                                          "mes",
                                          "valor_cif",
                                          "kilogramo"),
                            col_types = cols("c","c", "d","d","d","d"), skip = 1)

importaciones_mensuales_update <- bind_rows(lista_importacion_update)

#### Datos Exportaciones ####

setwd("C:/Users/DELL/Desktop/MAE_2021/primer_laboratorio/Datos_update/exportaciones")
nombres_archivos_exportar <- list.files()
lista_exportaciones_update <- lapply(X = nombres_archivos_exportar,
                            FUN = read_delim,
                            delim = "|",
                            col_names = c("pais",
                                          "sac",
                                          "anio", 
                                          "mes",
                                          "valor_fob",
                                          "kilogramo"),
                            col_types = cols("c","c", "d","d","d","d"),
                            skip = 1)

exportaciones_mensuales_update <- bind_rows(lista_exportaciones_update)

#### Actualización comercio Exterior ####

comercio_exterior_update <- importaciones_mensuales_update %>% 
  full_join(exportaciones_mensuales_update,
            by = c("pais", "sac", "anio", "mes"),
            suffix = c("_importaciones", "_exportaciones"))

comercio_exterior_update <- comercio_exterior_update %>%
  replace_na(
  list(
    valor_cif = 0,
    valor_fob = 0,
    kilogramo_importaciones = 0,
    kilogramo_exportaciones = 0
  )
  ) %>% 
  arrange(pais, anio, mes, sac)

## Unir tabla normal y actualización

data_comercio_exterior <- data_comercio_exterior %>% 
  bind_rows(comercio_exterior_update) %>% 
  arrange(pais, anio, mes, sac)

data_comercio_exterior %>%  
  head() %>% 
  kable(caption = "Actualización de Base de comercio exterior 2018-2021 (Junio)", align = "c") %>%
  add_footnote(label = "Elaboración propia con base al BCR", notation = "symbol") %>% 
  kable_styling()

Actualización de Base de comercio exterior 2018-2021 (Junio)
pais	sac	anio	mes	valor_cif	kilogramo_importaciones	valor_fob	kilogramo_exportaciones
Afganistan	0806200000	2018	6	6448.43	1463.92	0	0
Afganistan	6104220000	2018	10	3153.37	2407.61	0	0
Afganistan	6104620000	2018	10	946.01	722.28	0	0
Afganistan	6105100000	2018	10	9405.39	7181.03	0	0
Afganistan	6106100000	2018	10	1353.32	1725.55	0	0
Afganistan	6405900000	2018	10	2260.03	1725.55	0	0
^* Elaboración propia con base al BCR

save(data_comercio_exterior, file = "C:/Users/DELL/Desktop/MAE_2021/primer_laboratorio/data_comercio_exterior_actualizada.RData")

3. Agregue la información estandarizada de los países

library(readxl)
load("C:/Users/DELL/Desktop/MAE_2021/primer_laboratorio/data_comercio_exterior_actualizada.RData")
nombres_iso_paises <- read_excel("C:/Users/DELL/Desktop/MAE_2021/primer_laboratorio/Datos/nombres_iso_paises.xlsx")

data_comercio_exterior <- data_comercio_exterior %>% 
  left_join(nombres_iso_paises,
            by = c("pais" = "nom_pais_esp"))

4. Obtenga un ranking, anual, de los 5 principales socios comerciales de El Salvador, para el periodo 2018-2021

data_comercio_exterior %>% 
  group_by(anio, iso_3) %>% 
  summarise(
    exportaciones = sum(valor_fob)
  ) %>% 
  mutate(total_exportaciones = sum(exportaciones),
         socio = paste(iso_3,
                       "|", 
                       round((exportaciones / total_exportaciones) * 100,2),
                       "%")) %>%
  arrange(anio, desc(socio)) %>% 
  select(anio, iso_3, socio) %>% 
  tidyr::pivot_wider(names_from = iso_3, values_from = socio) %>% 
  select("USA", "GTM", "HND", "NIC", "CRI") %>% 
  rename("1"= USA, "2"= GTM, "3" = HND,"4"= NIC, "5"= CRI) %>% 
   kable(caption = "Ranking de los 5 principales socios comerciales de El Salvador 2018-2021", 
         align = "c") %>%
  add_footnote(label = "Elaboración propia con base al BCR", 
               notation = "symbol") %>% 
  kable_styling()

Ranking de los 5 principales socios comerciales de El Salvador 2018-2021
anio	1	2	3	4	5
2018	USA \| 44.07 %	GTM \| 14.36 %	HND \| 15.34 %	NIC \| 6.87 %	CRI \| 4.39 %
2019	USA \| 42.03 %	GTM \| 15.92 %	HND \| 15.9 %	NIC \| 6.66 %	CRI \| 4.46 %
2020	USA \| 39.18 %	GTM \| 16.89 %	HND \| 15.44 %	NIC \| 7.26 %	CRI \| 4.65 %
2021	USA \| 40.48 %	GTM \| 17 %	HND \| 15.62 %	NIC \| 6.93 %	CRI \| 3.99 %
^* Elaboración propia con base al BCR

anio	1	2	3	4	5
2018	USA \| 44.07 %	GTM \| 14.36 %	HND \| 15.34 %	NIC \| 6.87 %	CRI \| 4.39 %
2019	USA \| 42.03 %	GTM \| 15.92 %	HND \| 15.9 %	NIC \| 6.66 %	CRI \| 4.46 %
2020	USA \| 39.18 %	GTM \| 16.89 %	HND \| 15.44 %	NIC \| 7.26 %	CRI \| 4.65 %
2021	USA \| 40.48 %	GTM \| 17 %	HND \| 15.62 %	NIC \| 6.93 %	CRI \| 3.99 %
^* Elaboración propia con base al BCR