Elaboración de un top 5 de socios comerciales

1. Con base en la información disponible en la “Base de Datos de Comercio Exterior” del BCR, incluida en el archivo .RData disponible para esta tarea, para los años 2018-2020. 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.

load("C:/Users/Quick_SPCS/OneDrive/Documentos/AÑO 3/MAE/Tarea 4/data_comercio_exterior.RData")
anios_ranking <- 2018:2020
data_comercio_exterior |> 
  filter(anio %in% anios_ranking) -> data_ranking
  
head(data_ranking)

## # A tibble: 6 × 8
##   pais       sac         anio   mes valor_cif kilogramos_importaciones valor_fob
##   <chr>      <chr>      <dbl> <dbl>     <dbl>                    <dbl>     <dbl>
## 1 Afganistan 0806200000  2018     6     6448.                    1464.         0
## 2 Afganistan 6104220000  2018    10     3153.                    2408.         0
## 3 Afganistan 6104620000  2018    10      946.                     722.         0
## 4 Afganistan 6105100000  2018    10     9405.                    7181.         0
## 5 Afganistan 6106100000  2018    10     1353.                    1726.         0
## 6 Afganistan 6405900000  2018    10     2260.                    1726.         0
## # ℹ 1 more variable: kilogramos_exportaciones <dbl>

2. 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.

nombre_archivo <- "C:/Users/Quick_SPCS/OneDrive/Documentos/AÑO 3/MAE/Tarea 4/master_paises_iso.xlsx"
nombres_iso_paises <- read_excel(nombre_archivo)
data_ranking |> 
  left_join(nombres_iso_paises,
            by = c("pais" = "nom_pais_esp")) -> data_ranking
data_ranking |>  head()

## # A tibble: 6 × 20
##   pais       sac         anio   mes valor_cif kilogramos_importaciones valor_fob
##   <chr>      <chr>      <dbl> <dbl>     <dbl>                    <dbl>     <dbl>
## 1 Afganistan 0806200000  2018     6     6448.                    1464.         0
## 2 Afganistan 6104220000  2018    10     3153.                    2408.         0
## 3 Afganistan 6104620000  2018    10      946.                     722.         0
## 4 Afganistan 6105100000  2018    10     9405.                    7181.         0
## 5 Afganistan 6106100000  2018    10     1353.                    1726.         0
## 6 Afganistan 6405900000  2018    10     2260.                    1726.         0
## # ℹ 13 more variables: kilogramos_exportaciones <dbl>, nom_pais_ingles <chr>,
## #   iso_2 <chr>, iso_3 <chr>, codigo_pais...5 <dbl>, codigo_pais...6 <chr>,
## #   region <dbl>, cod_region <chr>, sub_region <dbl>, cod_sub_region <chr>,
## #   region_intermedia <dbl>, cod_region_intermedia <chr>, ...13 <dbl>

3.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.

data_ranking |> 
  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() -> insumo_reporte

print(insumo_reporte)

##    anio      data rank
## 1  2018 USA|44.07    1
## 2  2018 HND|15.34    2
## 3  2018 GTM|14.36    3
## 4  2018  NIC|6.87    4
## 5  2018  CRI|4.39    5
## 6  2019 USA|41.88    1
## 7  2019 GTM|15.95    2
## 8  2019 HND|15.91    3
## 9  2019  NIC|6.68    4
## 10 2019   CRI|4.5    5
## 11 2020 USA|35.73    1
## 12 2020  GTM|16.9    2
## 13 2020 HND|15.21    3
## 14 2020  NIC|7.65    4
## 15 2020  CRI|5.21    5

library(tidyr)
insumo_reporte |> 
pivot_wider(names_from = rank,values_from = data)->mi_tabla
print(mi_tabla)

## # A tibble: 3 × 6
##    anio `1`       `2`       `3`       `4`      `5`     
##   <dbl> <chr>     <chr>     <chr>     <chr>    <chr>   
## 1  2018 USA|44.07 HND|15.34 GTM|14.36 NIC|6.87 CRI|4.39
## 2  2019 USA|41.88 GTM|15.95 HND|15.91 NIC|6.68 CRI|4.5 
## 3  2020 USA|35.73 GTM|16.9  HND|15.21 NIC|7.65 CRI|5.21

library(kableExtra)
mi_tabla |> 
  kable(caption = paste("Top",5,"de Exportaciones periodo",
    min(anios_ranking),"-",max(anios_ranking))) |> 
  add_footnote(label = "Elaboración propia con base en datos del BCR")