Primer Laboratorio: Segunda Parte

Integrantes

GT 03

1° Ejercicio: Reproducción de los Ejemplos vistos en clase

library(dplyr)
library(readxl)
library(kableExtra)
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"))

Carga de las funciones

source(file = "C:/Users/DELL/Desktop/MAE_2021/primer_laboratorio/funciones_comercio_exterior_1.R")

Herramientas de Consulta de países

library(kableExtra)
herramientas_mostrar_paises() %>% head() %>% kable() %>% kable_material(html_font = "sans-serif")
nom_pais_esp codigo_pais region cod_region region_intermedia cod_region_intermedia
Afganistan 4 Asia 142 NA NA
Albania 8 Europa 150 NA NA
Alemania 276 Europa 150 NA NA
Andorra 20 Europa 150 NA NA
Angola 24 África 2 África Central 17
Anguila (R.U.) 660 Américas 19 Caribe 29

Herramientas de Consulta de Regiones

library(kableExtra)
herramientas_mostrar_regiones() %>% head() %>% kable() %>% kable_material(html_font = "sans-serif")
region cod_region region_intermedia cod_region_intermedia # de paises incluidos
África 2 África Central 17 8
África 2 Africa Del Sur 18 5
África 2 África Occidental 11 16
África 2 África Oriental 14 17
África 2 NA NA 6
Américas 19 Caribe 29 26

Herramientas de Consulta de Países con trasacciones en la tabla.

library(kableExtra)
herramientas_mostrar_paises_en_tabla() %>% head() %>% kable() %>% kable_material(html_font = "sans-serif")
pais anio # Transacciones
Afganistan 2018 7
Afganistan 2019 10
Afganistan 2020 29
Afganistan 2021 6
Albania 2018 27
Albania 2019 46

Uso de Indicador de Ventaja Comparativa Revelada

Ejemplo 1

En este ejemplo se analizará el IVCR con Guatemala, para el período 2018-2021, para el capitúlo “01”

Resultados_IVCR<- data.frame("años"=2018:2021,
                             "IVCR"=sapply(X = 2018:2021,FUN = Indicadores_IVCR_Capitulo,codigo_pais=320,capitulo="02"))
Resultados_IVCR %>% kable(align = "l") %>% 
  kable_material(html_font = "sans-serif")
años IVCR
2018 -0.0550457
2019 -0.0440050
2020 -0.0092087
2021 -0.0218591

Ejemplo 2

En este ejemplo se analizará el IVCR con Honduras para el período 2018-2021, para el producto “0105110000”.

Resultados_IVCR_sac<- data.frame("años"=2018:2021,
                             "IVCR"=sapply(X = 2018:2021,FUN = Indicadores_IVCR_Partida,codigo_pais=340,partida="0105110000"))
Resultados_IVCR_sac %>% kable(align = "l") %>% 
  kable_material(html_font = "sans-serif")
años IVCR
2018 0.1066577
2019 0.0740897
2020 0.0757650
2021 0.0710306

Uso de Indicador de Balassa

Ejemplo 1

En este ejemplo se analizará el índice de Balassa con Guatemala, para el periodo 2018-2021

library(kableExtra)
Resultados_Balassa<-data.frame("años"=2018:2021,
                               "IB"=sapply(X = 2018:2021,
                                          FUN =indicadores_Balassa_Capitulo,
                                          codigo_pais=320,
                                          capitulo="02"))
Resultados_Balassa %>% kable(align = "l") %>% 
  kable_material(html_font = "sans-serif")
años IB
2018 -0.9939616
2019 -0.9946068
2020 -0.9796601
2021 -0.9833423

Ejemplo 2

En este ejemplo se analizará el IB con Honduras, para el periodo 2018-2021, para el producto “0105110000”.

library(kableExtra)
Resultados_IB_sac<-data.frame("años"=2018:2021,
                               "IB"=sapply(X = 2018:2021,
                                          FUN =indicadores_Balassa_Partida,
                                          codigo_pais=340,
                                          partida="0105110000",
                                          normalizado=TRUE))
Resultados_IB_sac %>% kable(align = "l") %>% 
  kable_material(html_font = "sans-serif")
años IB
2018 2.404843
2019 2.405236
2020 2.986312
2021 5.181354

Uso de Indicador de Herfindahl Hirschmann anual

Ejemplo 1:

Uso de Indicador de Herfindahl Hirschmann anual para GTM

Resultados_IHH<-data.frame("años"=2018:2021,"IHH"=sapply(X = 2018:2021,
       FUN = indicadores_IHH_Herdindahl_Hirschmann_anual,codigo_pais=320,normalizado=TRUE))
Resultados_IHH %>% kable(align = "l",digits = 6) %>% 
  kable_material(html_font = "sans-serif")
años IHH
2018 0.001258
2019 0.001518
2020 0.001185
2021 0.002129

Ejemplo 2

Uso de Indicador de Herfindahl Hirschmann anual propuesto en el texto para GTM

options(scipen = 9999)
Resultados_IHH_texto<-data.frame("años"=2018:2021,"IHH"=sapply(X = 2018:2021,
       FUN = indicadores_IHH_Herfindahl_Hirschmann_anual_texto,codigo_pais= 320,normalizado=TRUE))
Resultados_IHH_texto %>% kable(align = "l",digits = 6) %>% 
  kable_material(html_font = "sans-serif")
años IHH
2018 -0.000054
2019 -0.000040
2020 -0.000054
2021 -0.000100

2° Ejercicio: Generé una función personalizada que Obtenga un ranking, anual, de los “K” principales socios comerciales de El Salvador, para el periodo año inicio-año final.

Función: ranking_socios_comerciales

  • anios_ranking : Los años a analizar
  • k : Los k principales socios comerciales
  • digits : Los decimales mostrados en los porcentajes. Por defecto son 2.
ranking_socios_comerciales <- function(anios_ranking, k, digits = 0){
   data_comercio_exterior %>% 
  filter(anio %in% anios_ranking) %>% 
    group_by(anio, iso_3) %>%
    summarise(total = sum(valor_fob)) %>%
    mutate(percent = round(prop.table(total) * 100, digits)) %>%
    slice_max(n = k, 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() %>% 
  tidyr::pivot_wider(names_from = rank,values_from = data) %>%
  kable(caption = paste("Top",k,"de Exportaciones periodo",
    min(anios_ranking),"-",max(anios_ranking))) %>%
  add_footnote(label = "Elaboración propia con base en datos del BCR")
}

Ejemplo de la Función:

ranking_socios_comerciales(anios_ranking = 2018:2021, k = 6, digits = 2)
Top 6 de Exportaciones periodo 2018 - 2021
anio 1 2 3 4 5 6
2018 USA | 44.07 % HND | 15.34 % GTM | 14.36 % NIC | 6.87 % CRI | 4.39 % MEX | 2.44 %
2019 USA | 42.03 % GTM | 15.92 % HND | 15.9 % NIC | 6.66 % CRI | 4.46 % MEX | 2.54 %
2020 USA | 39.18 % GTM | 16.89 % HND | 15.44 % NIC | 7.26 % CRI | 4.65 % MEX | 2.46 %
2021 USA | 40.48 % GTM | 17 % HND | 15.62 % NIC | 6.93 % CRI | 3.99 % KOR | 2.27 %
a Elaboración propia con base en datos del BCR