1. Creación de Base de Datos del Comercio Exterior del BCR, para los años 2018-2020.

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). Muestre un head de 10 casos.

# Cargar paquetes
library(dplyr)
library(tidyr)
library(kableExtra)

# Cargar el archivo de datos
load("C:/Users/User/Desktop/documents_rstudio/ciclo_6/practica_4/data_comercio_exterior.RData")

# Reemplazar valores NA por 0 en las columnas relevantes
data_comercio_exterior <- data_comercio_exterior %>%
  replace_na(
    list(
      valor_cif = 0,
      valor_fob = 0,
      kilogramos_importaciones = 0,
      kilogramos_exportaciones = 0
    )
  ) %>%
  arrange(pais, sac, anio, mes) ->data_comercio_exterior  # Ordenar por las columnas especificadas

# Mostrar la tabla con los primeros 6 elementos en formato "bonito"
  
filtro_ce <- data_comercio_exterior %>%
  filter(anio >= 2018 & anio <= 2020) %>%
  arrange(anio) # Ordenar de forma ascendente por la columna "anio"

filtro_ce %>% head(10) %>%
  kable(caption = "Base de Comercio Exterior 2018-2020", digits = 4) %>%
  kable_classic(html_font = "Times New Roman", font_size = 14) %>%
  add_footnote(label = "Elaboración propia con base de datos del BCR", notation = "symbol") %>%
  kable_styling()

Base de Comercio Exterior 2018-2020
pais	sac	anio	mes	valor_cif	kilogramos_importaciones	valor_fob	kilogramos_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
Afganistan	8206000000	2018	10	6.56	5.02	0	0
Albania	3304990000	2018	6	66.90	1.90	0	0
Albania	3917399000	2018	12	22.19	0.20	0	0
Albania	3926905000	2018	12	4.62	0.20	0	0
^* Elaboración propia con base de datos del BCR

2. Información estandarizada con los nombres iso de los países y regiones

Agregue la información estandarizada de los países (nombres iso de los países y regiones,etc, tal como se vio en clases). Muestre un head de 10 casos.

Proceso

# Carga de datos de Excel

library(dplyr)
library(tidyr)
library(kableExtra)
library(readr)
library(readxl)
master_paises_iso <- read_excel("C:/Users/User/Desktop/documents_rstudio/ciclo_6/practica_4/master_paises_iso.xlsx", 
    sheet = "unique_pais")
head(master_paises_iso,10)

# Selección de columnas específicas para la unión de iso al la base de Comercio Exterior y creación de un nuevo dataframe llamado base_ce

master_paises_iso<-master_paises_iso %>%
  select(iso_3,pais=nom_pais_esp)
filtro_ce %>% left_join(
  master_paises_iso,
  by= "pais" )-> base_ce
head(base_ce,10)

# Reordenar
base_ce<-base_ce %>%
  select(pais,iso_3,everything())

base_ce %>% head(10) %>%
  kable(caption = "Base Actualizada del Comercio Exterior 2018-2020 ", digits = 4) %>%
  kable_classic(html_font = "Times New Roman", font_size = 14) %>%
  add_footnote(label = "Elaboración propia con base de datos proporcionados por Ademir Pérez", notation = "symbol") %>%
  kable_styling()

Base Actualizada del Comercio Exterior 2018-2020
pais	iso_3	sac	anio	mes	valor_cif	kilogramos_importaciones	valor_fob	kilogramos_exportaciones
Afganistan	AFG	0806200000	2018	6	6448.43	1463.92	0	0
Afganistan	AFG	6104220000	2018	10	3153.37	2407.61	0	0
Afganistan	AFG	6104620000	2018	10	946.01	722.28	0	0
Afganistan	AFG	6105100000	2018	10	9405.39	7181.03	0	0
Afganistan	AFG	6106100000	2018	10	1353.32	1725.55	0	0
Afganistan	AFG	6405900000	2018	10	2260.03	1725.55	0	0
Afganistan	AFG	8206000000	2018	10	6.56	5.02	0	0
Albania	ALB	3304990000	2018	6	66.90	1.90	0	0
Albania	ALB	3917399000	2018	12	22.19	0.20	0	0
Albania	ALB	3926905000	2018	12	4.62	0.20	0	0
^* Elaboración propia con base de datos proporcionados por Ademir Pérez

3. Ranking de los 5 principales socios comerciales de El Salvador, para el periodo 2018-2020

Obtenga un ranking, anual, de los 5 principales socios comerciales de El Salvador, para el periodo 2018-2020. Presente sus resultados en el siguiente formato:

Top 5 Socios comerciales, periodo 2018-2020, datos en porcentaje de las exportaciones totales.

library(dplyr)
library(tidyr)
library(kableExtra)
library(readr)
library(readxl)

# Leer archivo Excel con la información de países
master_paises_iso <- read_excel("C:/Users/User/Desktop/documents_rstudio/ciclo_6/practica_4/master_paises_iso.xlsx", 
    sheet = "unique_pais")


master_paises_iso<-master_paises_iso %>%
  select(iso_3,pais=nom_pais_esp)
filtro_ce %>% left_join(
  master_paises_iso,
  by= "pais" )-> base_ce_1
head(base_ce_1,5)

# Creación del primer top de los 5 principales socios comerciales para el año 2018 de El Salvador

base_ce_1<- base_ce_1 %>%
  select(pais,iso_3,everything())

# Definición de rango de años

anios_ranking<-2018:2020
base_ce_1 %>%
  filter(anio %in% anios_ranking) -> ranking_datos

# Filtración de datos pora los años seleccionados

ranking_datos %>% 
  group_by(anio,iso_3) %>% 
  summarise(total=sum(valor_fob)) %>% mutate(percent=round(prop.table(total)*100,2)) %>% 
  slice_max(n = 5,order_by = total) %>% 
  as.data.frame() %>% 
  group_by(anio) %>% 
  mutate(rank = row_number(),
         data=paste(iso_3,"|",percent,sep = "")) %>% 
  select(anio,data,rank) %>% as.data.frame() -> top5

# Muestra de los primeros top 5
head(top5,5)

# Creación de la tabla con KableExtra: Top de los principales 5 socios comerciales de El Salvador para el periodo 2018 - 2020 

top5 %>% head(15) %>%
  kable(caption = "Ranking de los 5 principales socios del Comercio Exterior de El Salvador 2018-2020 ", digits = 4) %>%
  kable_classic(html_font = "Times New Roman", font_size = 14) %>%
  add_footnote(label = "Elaboración propia con base de datos proporcionados por el BCR y Ademir Pérez", notation = "symbol") %>%
  kable_styling()

Ranking de los 5 principales socios del Comercio Exterior de El Salvador 2018-2020
anio	data	rank
2018	USA\|44.07	1
2018	HND\|15.34	2
2018	GTM\|14.36	3
2018	NIC\|6.87	4
2018	CRI\|4.39	5
2019	USA\|41.88	1
2019	GTM\|15.95	2
2019	HND\|15.91	3
2019	NIC\|6.68	4
2019	CRI\|4.5	5
2020	USA\|35.73	1
2020	GTM\|16.9	2
2020	HND\|15.21	3
2020	NIC\|7.65	4
2020	CRI\|5.21	5
^* Elaboración propia con base de datos proporcionados por el BCR y Ademir Pérez

A14- Elaboración de un top 5 de socios comerciales

VERONICA NAYELI MIRANDA MEJIA MM21065

2024-09-14

1. Creación de Base de Datos del Comercio Exterior del BCR, para los años 2018-2020.

2. Información estandarizada con los nombres iso de los países y regiones

Proceso

3. Ranking de los 5 principales socios comerciales de El Salvador, para el periodo 2018-2020