library(readr)      
library(dplyr)       
library(knitr)        
library(kableExtra)  
library(readxl)      
library(stringr)     
library(tidyr) 

setwd("C:/Users/MINEDUCYT/OneDrive/Escritorio/MAE/BASE DE COMERCIO EXTERIOR/Importaciones")

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
)

data_importaciones <- bind_rows(lista_importacion)

setwd("C:/Users/MINEDUCYT/OneDrive/Escritorio/MAE/BASE DE COMERCIO EXTERIOR/Exportaciones")

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
)

data_exportaciones <- bind_rows(lista_exportacion)

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)

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

nombre_archivo <- "C:/Users/MINEDUCYT/OneDrive/Escritorio/MAE/BASE DE COMERCIO EXTERIOR/nombres_iso_paises.xlsx"
nombres_iso_paises <- read_excel(nombre_archivo)

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

data_comercio_exterior %>% 
  head(10) %>% 
  kable(
    format = "html", 
    caption = "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 = "Fuente: Elaboración propia con base en datos del Banco Central de Reserva (BCR)", notation = "symbol")

#Seleccionar Años
anios_ranking<-2022:2026
data_comercio_exterior %>% 
  filter(anio %in% anios_ranking) ->data_ranking
data_ranking %>% 
  group_by(anio,iso_3) %>% 
  summarise(total=sum(valor_fob)) %>% mutate(percent=round(prop.table(total)*100,2)) %>% 
  slice_max(n = 5,order_by = total) %>% 
  as.data.frame() %>% 
  group_by(anio) %>% 
  mutate(rank = row_number(),
         data=paste(iso_3,"|",percent,sep = "")) %>% 
  select(anio,data,rank) %>% as.data.frame() -> insumo_reporte
print(insumo_reporte)

# Convertir a formato ancho (una columna por posición del ranking)
tabla_final <- insumo_reporte %>%
  pivot_wider(
    names_from = rank,
    values_from = data
  )
data_comercio_exterior %>% 
  head(10) %>% 
  kable(
    format = "html", 
    caption = "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 = "Fuente: Elaboración propia con base en datos del Banco Central de Reserva (BCR)", notation = "symbol")