library(dplyr)
source("C:/Users/User/Desktop/documents_rstudio/ciclo_6/archivos_MAE/funciones_comercio_exterior_fix.R",echo = TRUE,max.deparse.length = 100,encoding = "utf-8")##
## > options(scipen = 999)
##
## > library(dplyr)
##
## > library(readxl)##
## > library(stringr)##
## > load("C:/Users/User/Desktop/documents_rstudio/ciclo_6/archivos_MAE/data_comercio_exterior.RData")
##
## > nombre_archivo <- "C:/Users/User/Desktop/documents_rstudio/ciclo_6/archivos_MAE/master_paises_iso. ..." ... [TRUNCATED]
##
## > nombres_iso_paises <- read_excel(nombre_archivo)##
## > nombres_iso_paises <- nombres_iso_paises %>% rename(codigo_pais = codigo_pais...5)
##
## > 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]Usando los datos de Comercio Exterior de El Salvador, disponibles en la base de datos,responda las siguientes preguntas, mostrando sus resultados en formato tabular, y asignando los encabezados y pies de página apropiados en cada caso
Por cada dólar exportado a la región suramericana, en el periodo 2018-2019, ¿Cuánto se importó? (resultado por año)
library(dplyr)
library(kableExtra)
# Agrupación y resumen de los datos
x_relacion_m <- data_comercio_exterior %>%
group_by(cod_sub_region, anio) %>%
summarise(`Total de Exportaciones MM US$` = sum(valor_fob) / 1e6,
`Total de Importaciones MM US$` = sum(valor_cif) / 1e6)
# Filtro y cálculo del ratio
x_relacion_m %>%
filter(cod_sub_region == "Sudamerica",
anio %in% 2018:2019) %>%
mutate(Ratio = `Total de Exportaciones MM US$` / `Total de Importaciones MM US$`) %>%
kable(caption = "Importaciones de El Salvador del Continente Sudamericano 2018-2019", digits = 4) %>%
kable_classic(html_font = "Times New Roman", font_size = 14) %>%
add_footnote(label = "Elaboración propia con base de datos del Comercio Exterior", notation = "symbol") %>%
kable_styling()| cod_sub_region | anio | Total de Exportaciones MM US$ | Total de Importaciones MM US$ | Ratio |
|---|---|---|---|---|
| Sudamerica | 2018 | 43.3597 | 645.4535 | 0.0672 |
| Sudamerica | 2019 | 47.7304 | 718.6470 | 0.0664 |
| * Elaboración propia con base de datos del Comercio Exterior |
Calcule el IHH de El Salvador, con México, Estados Unidos y Canadá, durante el periodo 2017-2019, normalizado.
library(kableExtra)
library(dplyr)
Calculos_IHH<-data.frame("anios"=2017:2019,
"IHH_ELSALVADOR"=sapply(X = 2017:2019, FUN = indicadores_IHH_Herfindahl_Hirschmann_anual,codigo_pais=222,normalizado=TRUE),
"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))
Calculos_IHH %>% kable(align = "l",digits = 6) %>%
kable_material(html_font = "sans-serif")| anios | IHH_ELSALVADOR | IHH_Mexico | IHH_Canada | IHH_USA |
|---|---|---|---|---|
| 2017 | NaN | 0.016553 | 0.123102 | 0.005591 |
| 2018 | NaN | 0.018216 | 0.008444 | 0.005661 |
| 2019 | NaN | 0.014281 | 0.119025 | 0.005873 |
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)
export_SVL_Africa<-function(Region,anios){
total_exportsvl_africa<-data_comercio_exterior %>%
group_by(cod_sub_region,anio) %>%
summarise(`Total de Exportaciones MM US$` = sum(valor_fob) / 1e6)
total_exportsvl_africa %>% filter(cod_sub_region== Region,anio %in% anios)
}
export_SVL_Africa(Region = "África Oriental", 2017:2019) %>%
kable(caption = "Total de Exportaciones de El Salvador hacia África Oriental", digits = 4) %>%
kable_classic(html_font = "Times New Roman", font_size = 14) %>%
add_footnote(label = "Elaboración propia con base de datos del Comercio Exterior", notation = "symbol") %>%
kable_styling()| cod_sub_region | anio | Total de Exportaciones MM US$ |
|---|---|---|
| África Oriental | 2017 | 0.6734 |
| África Oriental | 2018 | 4.0123 |
| África Oriental | 2019 | 0.8439 |
| * Elaboración propia con base de datos del Comercio Exterior |
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(cod_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-America Latina y el Caribe`=`Total Exportaciones MM US$`-`Total Importaciones MM US$`) %>%
kable(caption = "Saldo de la Balanza Comercial de El Salvador con Latinoamérica", digits = 4) %>%
kable_classic(html_font = "Times New Roman", font_size = 14) %>%
add_footnote(label = "Elaboración propia con base de datos del Comercio Exterior", notation = "symbol") %>%
kable_styling()| anio | Total Exportaciones MM US$ | Total Importaciones MM US$ | Balanza Comercial El Salvador-America Latina y el Caribe |
|---|---|---|---|
| 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 de datos del Comercio Exterior |