1. Carga de las funciones

source('C:/Users/Eduardo/Downloads/funciones_comercio_exterior (1).R')

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

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

4. Herramientas de Consulta de Paises con transacciones en la tabla

library(kableExtra)
herramientas_mostrar_paises_en_tabla() %>% head() %>% kable() %>% kable_material(html_font = "sans-serif")
pais anio # Transacciones
Afganistan 2017 8
Afganistan 2018 7
Afganistan 2019 10
Afganistan 2020 14
Albania 2017 26
Albania 2018 27

5. Uso de Indicador de Ventaja Comparativa Revelada

Ejemplo 1

En este ejemplo se analizará el IVCR con USA, para el periodo 2017-2020, para al capitulo “01”

options(scipen = 999999)
Resultados_IVCR<-data.frame("años"=2017:2020,
                            "IVCR"=sapply(X=2017:2020,FUN = indicadores_IVCR_capitulo,codigo_pais=840,capitulo="01"))
Resultados_IVCR %>% kable(align = "l") %>% 
  kable_material(html_font = "sans-serif")
años IVCR
2017 -0.1268112
2018 -0.0997253
2019 -0.0880920
2020 -0.0841604

Ejemplo 2

En este ejemplo se analizará el IVCR con USA, para el periodo 2017-2020, para el producto “0105110000”

Resultados_IVCR_sac<-data.frame("años"=2017:2020,
                            "IVCR"=sapply(X=2017:2020,FUN = indicadores_IVCR_partida,codigo_pais=840,partida="0105110000"))
Resultados_IVCR_sac %>% kable(align = "l") %>% 
  kable_material(html_font = "sans-serif")
años IVCR
2017 -0.1332373
2018 -0.1862546
2019 -0.1890461
2020 -0.2208467

6. Uso de Indicador de Balassa

Ejemplo 1

En este ejemplo se analizará el indice de Balassa con USA, para el periodo 2017-2020, para al capitulo “01”

Resultados_Balassa<-data.frame("años"=2017:2020,
                            "IB"=sapply(X=2017:2020,FUN = indicadores_Balassa_capitulo,codigo_pais=840,capitulo="01"))
Resultados_Balassa %>% kable(align = "l") %>% 
  kable_material(html_font = "sans-serif")
años IB
2017 0.3597730
2018 0.3228978
2019 0.4015546
2020 0.7034690

Ejemplo 2

En este ejemplo se analizará el IB con USA, para el periodo 2017-2020, para el producto “0105110000”

Resultados_IB_sac<-data.frame("años"=2017:2020,
                            "IB"=sapply(X=2017:2020,
                                          FUN = indicadores_Balassa_partida,
                                          codigo_pais=840,
                                          partida="0105110000",
                                          normalizado=TRUE))
Resultados_IB_sac %>% kable(align = "l") %>% 
  kable_material(html_font = "sans-serif")
años IB
2017 0.5646451
2018 0.5561408
2019 0.5538812
2020 0.7400013

7. Uso de Indicador de Herfindahl Hirschmann anual

Ejemplo 1: Uso de Indicador de Herfindahl Hirschmann anual

Resultados_IHH<-data.frame("años"=2017:2020,"IHH"=sapply(X = 2017:2020,
       FUN = indicadores_IHH_Herfindahl_Hirschmann_anual,codigo_pais=484,normalizado=TRUE))
Resultados_IHH %>% kable(align = "l",digits = 6) %>% 
  kable_material(html_font = "sans-serif")
años IHH
2017 0.016553
2018 0.018216
2019 0.014281
2020 0.014698

Ejemplo 2: Uso de Indicador de Herfindahl Hirschmann anual propuesto en el texto

library(readr)
library(dplyr)
library(kableExtra)
Resultados_IHH_texto<-data.frame("años"=2017:2020,"IHH"=sapply(X = 2017:2020,
       FUN = indicadores_IHH_Herfindahl_Hirschmann_anual_texto,codigo_pais=840,normalizado=TRUE))
Resultados_IHH_texto %>% kable(align = "l",digits = 6) %>% 
  kable_material(html_font = "sans-serif")
años IHH
2017 0.000982
2018 0.000977
2019 0.000906
2020 0.001103

Ejemplo 8

Indicador de Ventaja Comparativa Revelada

En este ejemplo se analizará el IVCR con Hondura, para el periodo 2017-2020, para al capitulo “01”

options(scipen = 999999)
Resultados_IVCR<-data.frame("años"=2017:2020,
                            "IVCR"=sapply(X=2017:2020,FUN = indicadores_IVCR_capitulo,codigo_pais=340,capitulo="01"))
Resultados_IVCR %>% kable(align = "l") %>% 
  kable_material(html_font = "sans-serif")
años IVCR
2017 0.0108375
2018 0.0144144
2019 0.0004869
2020 0.0216374

Uso de Indicador de Balassa

En este ejemplo se analizará el indice de Balassa con Holanda, para el periodo 2017-2020, para al capitulo “01”

Resultados_Balassa<-data.frame("años"=2017:2020,
                            "IB"=sapply(X=2017:2020,FUN = indicadores_Balassa_capitulo,codigo_pais=528,capitulo="01"))
Resultados_Balassa %>% kable(align = "l") %>% 
  kable_material(html_font = "sans-serif")
años IB
2017 0.0428191
2018 -0.4009560
2019 -1.0000000
2020 -1.0000000

Uso de Indicador de Herfindahl Hirschmann anual

Ejemplo 1: Uso de Indicador de Herfindahl Hirschmann anual

Resultados_IHH<-data.frame("años"=2017:2020,"IHH"=sapply(X = 2017:2020,
       FUN = indicadores_IHH_Herfindahl_Hirschmann_anual,codigo_pais=170,normalizado=TRUE))
Resultados_IHH %>% kable(align = "l",digits = 6) %>% 
  kable_material(html_font = "sans-serif")
años IHH
2017 0.021044
2018 0.015239
2019 0.010724
2020 0.273700

Uso de Indicador de Herfindahl Hirschmann anual propuesto en el texto

library(readr)
library(dplyr)
library(kableExtra)
Resultados_IHH_texto<-data.frame("años"=2017:2020,"IHH"=sapply(X = 2017:2020,
       FUN = indicadores_IHH_Herfindahl_Hirschmann_anual_texto,codigo_pais=170,normalizado=TRUE))
Resultados_IHH_texto %>% kable(align = "l",digits = 6) %>% 
  kable_material(html_font = "sans-serif")
años IHH
2017 -0.002164
2018 -0.001919
2019 -0.001887
2020 -0.003150