UP17003_P1_1

library(kableExtra)
library(dplyr)
library(readr)
load("C:/Users/Keiry/Downloads/data_parcial_1_2021.RData")
source("C:/Users/Keiry/Documents/MAE21/funciones_comercio_exterior.R")

Ejercicio 1

capitulo <- "01"
data.frame(
  "años" = 2017:2019,
  "IVCR_Mexico" = sapply(
    X = 2017:2019,
    FUN = indicadores_IVCR_capitulo,
    codigo_pais = 484,
    capitulo = capitulo
  ),
  "IVCR_USA" = sapply(
    X = 2017:2019,
    FUN = indicadores_IVCR_capitulo,
    codigo_pais = 840,
    capitulo = capitulo
  ),
  "IVCR_Canada" = sapply(
    X = 2017:2019,
    FUN = indicadores_IVCR_capitulo,
    codigo_pais = 124,
    capitulo = capitulo
  )
) %>%
  kable(caption =  "Indice de Ventaja Comparativa Revelada",
        digits =  6,
        align =  "l") %>%  add_footnote(label = "Elaboración propia con base en datos del BCR") %>%  kable_minimal()

Indice de Ventaja Comparativa Revelada

años	IVCR_Mexico	IVCR_USA	IVCR_Canada
2017	-0.000637	-0.126811	0.002581
2018	-0.004782	-0.099528	0.000047
2019	-0.001508	-0.089891	0.000174
a Elaboración propia con base en datos del BCR

Ejercicio 2

#Año 2017
data_comercio_exterior %>% filter(valor_cif == 0,
                                  valor_fob > 0,
                                  anio == 2017,
                                  region_intermedia == "Centroamérica") %>%
  summarise(`Total de exportaciones de ESA a Centroamérica` = sum(valor_fob)) ->
  exportaciones_1

data_comercio_exterior %>%
  filter(region_intermedia == "Centroamérica",
         valor_cif > 0,
         valor_fob == 0,
         anio == 2017) %>%
  summarise(`Total de importaciones de ESA a Centroamérica` = sum(valor_cif)) ->
  importaciones_1

ratio_importaciones_exportaciones_1 <-
  (importaciones_1 / exportaciones_1)
print(ratio_importaciones_exportaciones_1)  %>%
  head() %>% kable(caption = "Ratio Importaciones/eEportaciones de ESA-Centroamérica durante 2017")  %>%  add_footnote(label =
                                                                                                                         "Elaboracion propia con base en datos del BCR",
                                                                                                                       notation = "symbol") %>% kable_minimal()

##   Total de importaciones de ESA a Centroamérica
## 1                                      1.580565

Ratio Importaciones/eEportaciones de ESA-Centroamérica durante 2017

Total de importaciones de ESA a Centroamérica
1.580565
* Elaboracion propia con base en datos del BCR

#Año 2018
data_comercio_exterior %>% filter(valor_cif == 0,
                                  valor_fob > 0,
                                  anio == 2018,
                                  region_intermedia == "Centroamérica") %>%
  summarise(`Total de exportaciones de ESA a Centroamérica` = sum(valor_fob)) ->
  exportaciones_2

data_comercio_exterior %>%
  filter(region_intermedia == "Centroamérica",
         valor_cif > 0,
         valor_fob == 0,
         anio == 2018) %>%
  summarise(`Total de importaciones de ESA a Centroamérica` = sum(valor_cif)) ->
  importaciones_2

ratio_importaciones_exportaciones_2 <-
  (importaciones_2 / exportaciones_2)
print(ratio_importaciones_exportaciones_2)  %>%
  head() %>% kable(caption = "Ratio Importaciones/Exportaciones de ESA-Centroamérica durante 2018")  %>%
  add_footnote(label = "Elaboracion propia con base en datos del BCR",
               notation = "symbol") %>% kable_minimal()

##   Total de importaciones de ESA a Centroamérica
## 1                                      1.705861

Ratio Importaciones/Exportaciones de ESA-Centroamérica durante 2018

Total de importaciones de ESA a Centroamérica
1.705861
* Elaboracion propia con base en datos del BCR

#Año 2019
data_comercio_exterior %>% filter(valor_cif == 0,
                                  valor_fob > 0,
                                  anio == 2019,
                                  region_intermedia == "Centroamérica") %>%
  summarise(`Total de exportaciones de ESA a Centroamérica` = sum(valor_fob)) ->
  exportaciones_3

data_comercio_exterior %>%
  filter(region_intermedia == "Centroamérica",
         valor_cif > 0,
         valor_fob == 0,
         anio == 2019) %>%
  summarise(`Total de importaciones de ESA a Centroamérica` = sum(valor_cif)) ->
  importaciones_3

ratio_importaciones_exportaciones_3 <-
  (importaciones_3 / exportaciones_3)
print(ratio_importaciones_exportaciones_3)  %>%
  head() %>% kable(caption = "Ratio Importaciones/Exportaciones de ESA-Centroamérica durante 2019") %>%
  add_footnote(label = "Elaboracion propia con base en datos del BCR",
               notation = "symbol") %>% kable_minimal()

##   Total de importaciones de ESA a Centroamérica
## 1                                      1.716166

Ratio Importaciones/Exportaciones de ESA-Centroamérica durante 2019

Total de importaciones de ESA a Centroamérica
1.716166
* Elaboracion propia con base en datos del BCR

Ejercicio 3

data_comercio_exterior %>%
  filter(region_intermedia == "Caribe", anio %in% 2017:2019) %>%
  group_by(anio) %>%
  summarise(
    `Total Exportaciones al Caribe  MM US$` = sum(valor_fob) / 1e6,
    `Total Importaciones al Caribe MM US$` = sum(valor_cif) / 1e6,
    `Balanza Comercial ESA-El Caribe MM $` = `Total Exportaciones al Caribe  MM US$` -
      `Total Importaciones al Caribe MM US$`
  ) %>%
  head() %>% kable(caption = "Saldo de la Balanza comercial de El Salvador-Caribe durante 2017-2019") %>%
  add_footnote(label = "Elaboracion propia con base en datos del BCR",
               notation = "symbol") %>% kable_minimal()

Saldo de la Balanza comercial de El Salvador-Caribe durante 2017-2019

anio	Total Exportaciones al Caribe MM US$	Total Importaciones al Caribe MM US$	Balanza Comercial ESA-El Caribe MM $
2017	150.1824	46.04799	104.1345
2018	172.1334	31.94117	140.1922
2019	166.3778	21.14147	145.2364
* Elaboracion propia con base en datos del BCR

Ejercicio 4

data_comercio_exterior %>%
  select("pais", "sac", "anio", "mes", "valor_fob", "sub_region") %>%
  filter(sub_region == "Norte De Europa", anio %in% 2019:2020, valor_fob >
           0) %>%
  group_by(anio) %>%
  summarise(`Total Exportaciones ESA MM US$` = sum(valor_fob) / 1e6) %>%
  head() %>% kable(caption = "Exportaciones totales a El Salvador") %>%
  add_footnote(label = "Elaboracion propia con base en datos del BCR",
               notation = "symbol") %>%  kable_minimal()

Exportaciones totales a El Salvador

anio	Total Exportaciones ESA MM US$
2019	19.60181
2020	15.73139
* Elaboracion propia con base en datos del BCR