1- cargamos nuestras bases de datos
2- cargamos la base de datos de los países
nombre_archivo<- "C:/Users/latit/Downloads/nombres_iso_paises.xlsx"3- abrimos el documento de las funciones
source(file = "C:/Users/latit/OneDrive/Escritorio/Nueva carpeta/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/latit/OneDrive/Escritorio/MAE 2020 GT 2/Tarea_Métodos/Comercio/data_comercio_exteri ..." ... [TRUNCATED]
##
## > nombre_archivo <- "C:/Users/latit/OneDrive/Escritorio/Nueva carpeta/nombres_iso_paises.xlsx"
##
## > nombres_iso_paises <- read_excel(nombre_archivo)
##
## > data_comercio_exterior <- data_comercio_exterior %>%
## + left_join(nombres_iso_paises, by = c(p .... [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 %>% group_by(pai .... [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]4- probamos la herramienta de consulta de países
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) Se analizara el IVCR con USA, para el período 2017-2020, para el 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 |
(ejemplo 3 adicional) En este ejemplo se analizará el IVCR con Francia para el periodo 2017-2018 para el producto “3901100000”
Resultados_IVCR_sac<-data.frame("años"=2017:2018,
"IVCR"=sapply(X=2017:2018,FUN = indicadores_IVCR_partida,codigo_pais=250,partida="3901100000"))
Resultados_IVCR_sac %>% kable(align = "l") %>%
kable_material(html_font = "sans-serif")| años | IVCR |
|---|---|
| 2017 | -0.7846487 |
| 2018 | -0.7769593 |
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 el 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 indice de Balasssa con USA, para el período 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 |
(Ejemplo 3) En este ejemplo se analizara el indice de Balassa con portugal,para el periodo 2016-2020, para el producto “3905910000”
Resultados_IB_sac<-data.frame("años"=2016:2020,
"IB"=sapply(X=2016:2020,
FUN = indicadores_Balassa_partida,
codigo_pais=620,
partida="3905910000",
normalizado=TRUE))
Resultados_IB_sac %>% kable(align = "l") %>%
kable_material(html_font = "sans-serif")| años | IB |
|---|---|
| 2016 | NaN |
| 2017 | 0.5646451 |
| 2018 | 0.5561408 |
| 2019 | 0.5538812 |
| 2020 | 0.7400013 |
7- Uso de indicador de herfindahl Hirschmann anual (Ejemplo 1) Ambos ejemplos para USA, período 2017-2020
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 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 |
(Ejemplo 3) Uso de indicador de Herfindahl hirschmann para suiza para el período 2015-2020
Resultados_IHH_texto<-data.frame("años"=2015:2020,"IHH"=sapply(X = 2015:2020,
FUN = indicadores_IHH_Herfindahl_Hirschmann_anual_texto,codigo_pais=756,normalizado=TRUE))
Resultados_IHH_texto %>% kable(align = "l",digits = 6) %>%
kable_material(html_font = "sans-serif")| años | IHH |
|---|---|
| 2015 | -Inf |
| 2016 | -Inf |
| 2017 | -0.021739 |
| 2018 | -0.030303 |
| 2019 | -0.020408 |
| 2020 | -0.029412 |