Librerias a usar

library(readr)
library(dplyr)
library(tidyr)
library(kableExtra)

setwd("C:/Users/recin/Downloads/MACRO 3/cuentas/comercio/Importaciones")

# Lectura masiva de archivos delimitados por pipe (|)
archivos_importar <- list.files()

lista_importacion <- lapply(
  archivos_importar,
  FUN = read_delim,
  delim = "|",
  col_names = c("pais", "sac", "anio", "mes", "valor_cif", "kilogramos"),
  col_types = cols(
    pais = "c",
    sac = "c",
    anio = "d",
    mes = "d",
    valor_cif = "d",
    kilogramos = "d"
  ),
  skip = 1
)

# Ensamblar dataframes en un único objeto
data_importaciones <- bind_rows(lista_importacion)

# Visualización de muestra
data_importaciones %>% 
  head() %>% 
  kable(
    format = "html", 
    caption = "El Salvador: Base Muestra de Importaciones",
    align = "c"
  ) %>% 
  kable_styling(
    bootstrap_options = c("striped", "hover", "condensed", "responsive"), 
    full_width = TRUE, 
    position = "center"
  ) %>% 
  add_footnote(label = "Fuente: Elaboración propia con base en datos del Banco Central de Reserva (BCR)", notation = "symbol")

El Salvador: Base Muestra de Importaciones
pais	sac	anio	mes	valor_cif	kilogramos
GROENLANDIA	3814001000	2022	5	3795.41	633.22
CANADA	0511100000	2022	4	17565.11	38.00
CANADA	0712209000	2022	3	512.59	118.73
CANADA	0712209000	2022	6	499.48	92.13
CANADA	0712909000	2022	3	2231.66	729.32
CANADA	0713200000	2022	3	1522.28	1881.60
^* Fuente: Elaboración propia con base en datos del Banco Central de Reserva (BCR)

setwd("C:/Users/recin/Downloads/MACRO 3/cuentas/comercio/Exportaciones")

# Lectura masiva de archivos
archivos_exportar <- list.files()

lista_exportacion <- lapply(
  archivos_exportar,
  FUN = read_delim,
  delim = "|",
  col_names = c("pais", "sac", "anio", "mes", "valor_fob", "kilogramos"),
  col_types = cols(
    pais = "c",
    sac = "c",
    anio = "d",
    mes = "d",
    valor_fob = "d",
    kilogramos = "d"
  ),
  skip = 1
)

# Ensamblar los archivos en un único objeto
data_exportaciones <- bind_rows(lista_exportacion)

# Visualización de muestra
data_exportaciones %>%
  head() %>%
  kable(
    format = "html",
    caption = "El Salvador: Base Muestra de Exportaciones",
    align = "c"
  ) %>%
  kable_styling(
    bootstrap_options = c("striped", "hover", "condensed", "responsive"),
    full_width = TRUE,
    position = "center"
  ) %>%
  add_footnote(
    label = "Fuente: Elaboración propia con base en datos del Banco Central de Reserva (BCR)",
    notation = "symbol"
  )

El Salvador: Base Muestra de Exportaciones
pais	sac	anio	mes	valor_fob	kilogramos
CANADA	0106190000	2022	6	600.00	9.98
CANADA	0106200000	2022	6	4620.00	10.00
CANADA	0602100000	2022	1	1055690.77	16511.64
CANADA	0602100000	2022	2	819959.20	12047.40
CANADA	0602100000	2022	3	253333.70	2928.69
CANADA	0602100000	2022	4	49719.91	639.52
^* Fuente: Elaboración propia con base en datos del Banco Central de Reserva (BCR)

Integración de la Base de Comercio Exterior:

data_comercio_exterior <- data_importaciones %>%
  full_join(
    data_exportaciones,
    by = c("pais", "sac", "anio", "mes"),
    suffix = c("_importaciones", "_exportaciones")
  ) %>%
  replace_na(
    list(
      valor_cif = 0,
      valor_fob = 0,
      kilogramos_importaciones = 0,
      kilogramos_exportaciones = 0
    )
  ) %>%
  arrange(pais, anio, mes, sac)

Numeral 1

1.Con base en la información disponible en la “Base de Datos de Comercio Exterior” del BCR, incluida en el archivo .RData disponible para esta tarea, para los años 2022-2026. Genera una tabla tal como se mostró en las clases (aún no incluya los nombres ISO de los países). Muestre un head de 10 casos.

data_comercio_exterior %>%
  head(10) %>%
  kable(
    format = "html",
    caption = "El Salvador: Base de Comercio Exterior, muestra de 10 casos",
    align = "c"
  ) %>%
  kable_styling(
    bootstrap_options = c("striped", "hover", "condensed", "responsive"),
    full_width = TRUE,
    position = "center"
  ) %>%
  add_footnote(
    label = "Elaboración propia con base en datos del Banco Central de Reserva (BCR)",
    notation = "symbol"
  )

El Salvador: Base de Comercio Exterior, muestra de 10 casos
pais	sac	anio	mes	valor_cif	kilogramos_importaciones	valor_fob	kilogramos_exportaciones
AFGANISTAN	8708990000	2022	2	220.50	0.29	0	0
AFGANISTAN	8471900000	2022	5	665.90	4.00	0	0
AFGANISTAN	5702310000	2022	6	913.74	22.02	0	0
AFGANISTAN	5702502000	2022	6	566.35	11.36	0	0
AFGANISTAN	6111200000	2022	8	213.69	1.56	0	0
AFGANISTAN	8536509000	2022	9	42.28	2.00	0	0
AFGANISTAN	6210400000	2023	7	204.75	0.10	0	0
AFGANISTAN	0901210000	2024	4	0.00	0.00	440	21
AFGANISTAN	4909000000	2024	4	0.07	0.15	0	0
AFGANISTAN	8473300000	2024	6	60.18	1.00	0	0
^* Elaboración propia con base en datos del Banco Central de Reserva (BCR)

Numeral 2

Agregue la información estandarizada de los países (nombres iso de los países y regiones, etc, tal como se vio en clases). Muestre un head de 10 casos.

Almacenamiento y recuperación de datos.

save(data_comercio_exterior,file = "C:/Users/recin/Downloads/MACRO 3/cuentas/comercio/data_comercio_exterior.RData"
)

load("C:/Users/recin/Downloads/MACRO 3/cuentas/comercio/data_comercio_exterior.RData")

source(
  file = "C:/Users/recin/Downloads/MACRO 3/cuentas/comercio/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/recin/Downloads/MACRO 3/cuentas/comercio/data_comercio_exterior.RData")
## 
## > nombre_archivo <- "C:/Users/recin/Downloads/MACRO 3/cuentas/comercio/nombres_iso_paises.xlsx"
## 
## > nombres_iso_paises <- read_excel(nombre_archivo)
## 
## > nombres_iso_paises$nom_pais_esp <- toupper(nombres_iso_paises$nom_pais_esp)
## 
## > 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]

Numeral 3

Obtenga un ranking, anual, de los 5 principales socios comerciales de El Salvador, para el periodo 2022-2026. Presente sus resultados en el siguiente formato:

# Mostrar una muestra de 10 casos

data_comercio_exterior %>%
  head(10) %>%
  kable(
    format = "html",
    caption = "El Salvador: Base de Comercio Exterior con información estandarizada de países",
    align = "c"
  ) %>%
  kable_styling(
    bootstrap_options = c(
      "striped",
      "hover",
      "condensed",
      "responsive"
    ),
    full_width = TRUE,
    position = "center"
  ) %>%
  add_footnote(
    label = "Elaboración propia con base en datos del Banco Central de Reserva (BCR)",
    notation = "symbol"
  )

El Salvador: Base de Comercio Exterior con información estandarizada de países
pais	sac	anio	mes	valor_cif	kilogramos_importaciones	valor_fob	kilogramos_exportaciones	nom_pais_ingles	iso_2	iso_3	codigo_pais	region	cod_region	sub_region	cod_sub_region	region_intermedia	cod_region_intermedia
AFGANISTAN	8708990000	2022	2	220.50	0.29	0	0	Afghanistan	AF	AFG	4	Asia	142	Asia Meridional	34	NA	NA
AFGANISTAN	8471900000	2022	5	665.90	4.00	0	0	Afghanistan	AF	AFG	4	Asia	142	Asia Meridional	34	NA	NA
AFGANISTAN	5702310000	2022	6	913.74	22.02	0	0	Afghanistan	AF	AFG	4	Asia	142	Asia Meridional	34	NA	NA
AFGANISTAN	5702502000	2022	6	566.35	11.36	0	0	Afghanistan	AF	AFG	4	Asia	142	Asia Meridional	34	NA	NA
AFGANISTAN	6111200000	2022	8	213.69	1.56	0	0	Afghanistan	AF	AFG	4	Asia	142	Asia Meridional	34	NA	NA
AFGANISTAN	8536509000	2022	9	42.28	2.00	0	0	Afghanistan	AF	AFG	4	Asia	142	Asia Meridional	34	NA	NA
AFGANISTAN	6210400000	2023	7	204.75	0.10	0	0	Afghanistan	AF	AFG	4	Asia	142	Asia Meridional	34	NA	NA
AFGANISTAN	0901210000	2024	4	0.00	0.00	440	21	Afghanistan	AF	AFG	4	Asia	142	Asia Meridional	34	NA	NA
AFGANISTAN	4909000000	2024	4	0.07	0.15	0	0	Afghanistan	AF	AFG	4	Asia	142	Asia Meridional	34	NA	NA
AFGANISTAN	8473300000	2024	6	60.18	1.00	0	0	Afghanistan	AF	AFG	4	Asia	142	Asia Meridional	34	NA	NA
^* Elaboración propia con base en datos del Banco Central de Reserva (BCR)

Tarea A14:Base de datos de Comercio Exterior