Carga de funciones
source(file = "C:/Users/Melvin/Desktop/Metodos/funciones_comercio_exterior.R",echo = TRUE,max.deparse.length = 100,encoding = "utf-8")
##
## > options(scipen = 999)
##
## > library(dplyr)
##
## > library(readxl)
##
## > library(stringr)
##
## > load("C:/Users/Melvin/Desktop/Metodos/data_comercio_exterior_actualizado.RData")
##
## > nombre_archivo <- "C:/Users/Melvin/Desktop/Metodos/nombres_iso_paises.xlsx"
##
## > nombres_iso_paises <- read_excel(nombre_archivo)
##
## > data_comercio_exterior_actualizado <- data_comercio_exterior_actualizado %>%
## + left_join(nomb .... [TRUNCATED]
##
## > herramientas_mostrar_paises <- function() {
## + paises <- nombres_iso_paises %>% select(nom_pais .... [TRUNCATED]
##
## > herramientas_mostrar_regiones <- function() {
## + nombres_iso_paises %>% group_by(region, cod_re .... [TRUNCATED]
##
## > herramientas_mostrar_paises_en_tabla <- function() {
## + data_comercio_exterior_actualizado %>% .... [TRUNCATED]
##
## > indicadores_IVCR_capitulo <- function(codigo_pais,
## + capitulo, anio) {
## + codigo_pais <- e .... [TRUNCATED]
##
## > indicadores_IVCR_partida <- function(codigo_pais,
## + partida, anio) {
## + codigo_pais <- enq .... [TRUNCATED]
##
## > indicadores_Balassa_capitulo <- function(codigo_pais,
## + capitulo, anio, normalizado = TRUE) { .... [TRUNCATED]
##
## > indicadores_Balassa_partida <- function(codigo_pais,
## + partida, anio, normalizado = TRUE) {
## + .... [TRUNCATED]
##
## > indicadores_IHH_Herfindahl_Hirschmann_anual_texto <- function(codigo_pais,
## + anio, normalizad .... [TRUNCATED]
##
## > indicadores_IHH_Herfindahl_Hirschmann_anual <- function(codigo_pais,
## + anio, normalizado = TR .... [TRUNCATED]
2 Herramientas de Consulta de Paises
library(kableExtra)
##
## Attaching package: 'kableExtra'
## The following object is masked from 'package:dplyr':
##
## group_rows
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")
## `summarise()` regrouping output by 'region', 'cod_region', 'region_intermedia' (override with `.groups` argument)
|
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")
## `summarise()` regrouping output by 'pais' (override with `.groups` argument)
|
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
Ejemplo1
En este ejemplo se analizará el IVCR con USA, para el periodo 2017-2020, para al capitulo “01”
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
Ambos ejemplos para USA para el período 2017-2020
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=840,normalizado=TRUE))
Resultados_IHH %>% kable(align = "l",digits = 6) %>%
kable_material(html_font = "sans-serif")
|
años
|
IHH
|
|
2017
|
0.005591
|
|
2018
|
0.005661
|
|
2019
|
0.005873
|
|
2020
|
0.009867
|
Ejemplo 2: Uso de Indicador de Herfindahl Hirschmann anual propuesto en el texto
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
|
Ejemplos propuestos.
Indice de Herfindahl Hirschmann
Uso del indicador de Herfindahl Hirschmann anual para la Colombia y Ecuador, para el año 2018
Resultados_IHH<-data.frame("paises"=c(170,218),
"IHH"=sapply(X = c(643,246),
FUN=indicadores_IHH_Herfindahl_Hirschmann_anual,
anio=2018,
normalizado=TRUE))
Resultados_IHH %>% kable(align = "l",digits = 6) %>%
kable_material(html_font = "sans-serif")
|
paises
|
IHH
|
|
170
|
0.149267
|
|
218
|
0.020763
|
Indice de Balassa
En este ejemplo se analizará el IB con Costa Rica, para el periodo 2018-2020, para la partida “6403999000”
Resultados_IB_sac<-data.frame("años"=2018:2020,
"IB"=sapply(X=2018:2020,
FUN = indicadores_Balassa_partida,
codigo_pais=188,
partida="6403999000",))
Resultados_IB_sac %>% kable(align = "l") %>%
kable_material(html_font = "sans-serif")
|
años
|
IB
|
|
2018
|
0.5561408
|
|
2019
|
0.5538812
|
|
2020
|
0.7400013
|
Indice de ventaja Comparativa
En este ejemplo se analizará el IVCR con España y Italia, para el año 2019, para el capitulo “01”
Resultados_IVCR_extra<-data.frame("paises"=c(724,380),
"IVCR"=sapply(X=c(724,380),
FUN= indicadores_IVCR_capitulo,
anio=2019,
capitulo="01"))
Resultados_IVCR_extra %>% kable(align= "l") %>%
kable_material(html_font = "sans-serif")
|
paises
|
IVCR
|
|
724
|
0.0004425
|
|
380
|
0.0027927
|