# Carpeta base del proyecto (donde tienes todo lo de "comercio exter")
directorio_base <- "C:/Users/gisel/Downloads/comercio exter"

ruta_importaciones <- file.path(directorio_base, "importaciones")
ruta_exportaciones <- file.path(directorio_base, "exportaciones")
ruta_rdata         <- file.path(directorio_base, "data_comercio_exterior.RData")
ruta_iso_paises    <- file.path(directorio_base, "nombres_iso_paises.xlsx")
ruta_funciones     <- file.path(directorio_base, "funciones_comercio_exterior_.R")

if (file.exists(ruta_rdata)) {

  load(ruta_rdata)

} else {

  ## Lectura de importaciones
  archivos_importar <- list.files(ruta_importaciones, full.names = TRUE)

  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
  )

  data_importaciones <- bind_rows(lista_importacion)

  ## Lectura de exportaciones
  archivos_exportar <- list.files(ruta_exportaciones, full.names = TRUE)

  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
  )

  data_exportaciones <- bind_rows(lista_exportacion)

  ## Integración de importaciones y exportaciones
  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)

  save(data_comercio_exterior, file = ruta_rdata)
}

# Filtro al periodo 2022-2026
data_comercio_exterior <- data_comercio_exterior %>%
  filter(anio >= 2022, anio <= 2026)

data_comercio_exterior %>%
  head(10) %>%
  kable(
    format = "html",
    caption = "El Salvador: Base de Comercio Exterior (2022-2026), sin estandarizar",
    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"
  )

if (!exists("ruta_iso_paises_elegida")) {
  ruta_iso_paises_elegida <- file.choose()
}

nombres_iso_paises <- read_excel(ruta_iso_paises_elegida, sheet = "nombres_iso_paises") %>%
  select(nom_pais_esp, iso_3)

nombres_iso_paises$nom_pais_esp <- toupper(nombres_iso_paises$nom_pais_esp)

data_comercio_exterior <- data_comercio_exterior %>%
  mutate(pais = toupper(pais)) %>%
  left_join(nombres_iso_paises, by = c("pais" = "nom_pais_esp"))

data_comercio_exterior %>%
  head(10) %>%
  kable(
    format = "html",
    caption = "El Salvador: Base de Comercio Exterior (2022-2026), con catálogo de países",
    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 BCR",
    notation = "symbol"
  )

top5_socios <- data_comercio_exterior %>%
  group_by(anio, iso_3) %>%
  summarise(exportaciones = sum(valor_fob, na.rm = TRUE), .groups = "drop") %>%
  group_by(anio) %>%
  mutate(pct_exportaciones = exportaciones / sum(exportaciones, na.rm = TRUE) * 100) %>%
  arrange(anio, desc(pct_exportaciones)) %>%
  group_by(anio) %>%
  slice_max(order_by = pct_exportaciones, n = 5, with_ties = FALSE) %>%
  mutate(
    puesto = row_number(),
    etiqueta = paste0(iso_3, " | ", round(pct_exportaciones, 1))
  ) %>%
  ungroup()

tabla_top5 <- top5_socios %>%
  select(anio, puesto, etiqueta) %>%
  pivot_wider(names_from = puesto, values_from = etiqueta) %>%
  arrange(anio) %>%
  rename(Año = anio)

tabla_top5 %>%
  kable(
    format = "html",
    caption = "Top 5 Socios comerciales, periodo 2022-2026 (% de las exportaciones totales)",
    align = "c",
    col.names = c("Año", "1", "2", "3", "4", "5")
  ) %>%
  kable_styling(
    bootstrap_options = c("striped", "hover", "condensed", "responsive"),
    full_width = TRUE,
    position = "center"
  ) %>%
  add_footnote(
    label = "Fuente: Elaboración propia, con base en información del BCR.",
    notation = "symbol"
  )