UNIVERSIDAD DE EL SALVADOR
FACULTAD DE CIENCIAS ECONÓMICAS
ESCUELA DE ECONOMÍA
CICLO II - 2024
Indicadores de Comercio Exterior
Asignatura:
Métodos para el Análisis Económico
Grupo teórico:
Gt 03
Docente:
MSF. Carlos Ademir Pérez Alas
Estudiante:
Vanessa Iveth López González LG20034
Ciudad Universitaria, 13 de Octubre de 2024
Carga de datos
library(dplyr)
library(readxl)
setwd("C:/Users/iveth/OneDrive/Escritorio/MAE118/Tareas")
load ("data_comercio_exterior.RData")
nombre_archivo <- ("master_paises_iso_1.xlsxs")
source ("funciones_comercio_exterior_fix.R")
Literal 1
Por cada dólar exportado a la región suramericana, en el
periodo 2018-2019, ¿Cuánto se importó? (resultado por año)
library(kableExtra)
library(dplyr)
data_comercio_exterior %>%
filter(region_intermedia == "Sudamerica", anio %in% 2018:2019) %>%
group_by(anio) %>%
summarise(`Total Exportaciones MM US$`=sum(valor_fob)/1e6,
`Total Importaciones MM US$`=sum(valor_cif)/1e6) %>%
mutate(`Ratio Importaciones/Exportaciones` = `Total Importaciones MM US$` / `Total Exportaciones MM US$`) %>%
kable(caption = "Relacion Importaciones con Exportaciones") %>% kable_minimal() %>%
add_footnote(label="Elaboración propia con base de datos del BCR",
notation="symbol") %>% kable_styling()
Relacion Importaciones con Exportaciones
|
anio
|
Total Exportaciones MM US$
|
Total Importaciones MM US$
|
Ratio Importaciones/Exportaciones
|
|
2018
|
43.35970
|
645.4535
|
14.88602
|
|
2019
|
47.73043
|
718.6470
|
15.05637
|
|
* Elaboración propia con base de datos del BCR
|
Literal 2
Calcule el IHH de El Salvador, con México, Estados Unidos y
Canadá, durante el periodo 2017-2019, normalizado
library(kableExtra)
library(dplyr)
Resultados_IHH<-data.frame("anios"=2017:2019,
"IHH_Mexico"=sapply(X=2017:2019,FUN = indicadores_IHH_Herfindahl_Hirschmann_anual,codigo_pais=484,normalizado = TRUE),
"IHH_Canada"=sapply(X=2017:2019,FUN = indicadores_IHH_Herfindahl_Hirschmann_anual,codigo_pais=124,normalizado=TRUE),
"IHH_USA"=sapply(X=2017:2019,FUN = indicadores_IHH_Herfindahl_Hirschmann_anual,codigo_pais=840,normalizado=TRUE))
Resultados_IHH%>% kable(align = "l",digits = 6) %>%
kable_material(html_font = "sans-serif")
|
anios
|
IHH_Mexico
|
IHH_Canada
|
IHH_USA
|
|
2017
|
0.016553
|
0.123102
|
0.005591
|
|
2018
|
0.018216
|
0.008444
|
0.005661
|
|
2019
|
0.014281
|
0.119025
|
0.005873
|
Literal 3
Calcule las exportaciones totales de El Salvador hacia la
región de África Oriental, para el periodo 2017-2019 son (en millones de
US$)
library(kableExtra)
library(dplyr)
Sys.setlocale("LC_ALL", "es_ES.UTF-8")
## [1] "LC_COLLATE=es_ES.UTF-8;LC_CTYPE=es_ES.UTF-8;LC_MONETARY=es_ES.UTF-8;LC_NUMERIC=C;LC_TIME=es_ES.UTF-8"
data_comercio_exterior %>%
select("pais", "sac","anio","mes","valor_fob","region_intermedia") %>%
filter(region_intermedia=="África Oriental",anio %in% 2017:2019,valor_fob>0) %>%
group_by(anio) %>%
summarise("Total Exportaciones ESA MM US$"=sum(valor_fob)/1e6) %>%
head() %>% kable(caption = "Exportaciones totales de El Salvador en millones de US$ hacia region de África oriental") %>% kable_minimal() %>%
add_footnote(label="Elaboración propia con base en datos del BCR",
notation="symbol") %>% kable_minimal
Exportaciones totales de El Salvador en millones de US$ hacia region de
África oriental
|
anio
|
Total Exportaciones ESA MM US$
|
|
2017
|
0.6734228
|
|
2018
|
4.0123130
|
|
2019
|
0.8439266
|
|
* Elaboración propia con base en datos del BCR
|
Literal 4
Obtenga el Saldo de la balanza comercial de El Salvador, con
Latinoamérica, para el periodo 2017-2019, (en millones de
US$)
library(kableExtra)
data_comercio_exterior %>%
filter(sub_region=="América Latina Y El Caribe", anio %in% 2017:2019) %>%
group_by(anio) %>%
summarise(`Total Exportaciones MM US$`=sum(valor_fob)/1e6,
`Total Importaciones MM US$`=sum(valor_cif)/1e6,
`Balanza Comercial El Salvador-Asia Sudoriental MM $`=`Total Exportaciones MM US$`-`Total Importaciones MM US$`) %>%
head() %>%
kable(caption = "Exportaciones totales de El Salvador a Asia Sudoriental 2017-2019") %>% kable_minimal() %>%
add_footnote(label="Elaboración propia con base en datos del BCR",
notation="symbol") %>% kable_styling()
Exportaciones totales de El Salvador a Asia Sudoriental 2017-2019
|
anio
|
Total Exportaciones MM US$
|
Total Importaciones MM US$
|
Balanza Comercial El Salvador-Asia Sudoriental MM $
|
|
2017
|
2746.262
|
3770.895
|
-1024.633
|
|
2018
|
2922.872
|
4144.131
|
-1221.259
|
|
2019
|
3067.961
|
4553.745
|
-1485.784
|
|
* Elaboración propia con base en datos del BCR
|