library(tidyverse)
library(readxl)
library(kableExtra)

# Cargar la base de datos
Data_ODS <- read_excel("C:/Users/johan/Downloads/Data_ODS.xlsx")

# Cálcular el índice IODS como promedio de los 16 ODS
IODSx <- Data_ODS %>%
  rowwise() %>%
  mutate(
    IODS = mean(c_across(`ODS 1`:`ODS 16`), na.rm = TRUE)
  ) %>%
  ungroup()

# Tabla con País, Año e IODS, ordenada por país y año
tabla_iods <- IODSx %>%
  select(Pais, Año, IODS) %>%
  arrange(Pais, Año)

# Personalización de la tabla

tabla_iods %>%
  kable(format = "html", digits = 3,
        caption = "Tabla 2:  Indicador general de los Objetivos de Desarrollo Sostenible de los países de América") %>%
  kable_styling(full_width = FALSE, bootstrap_options = c("striped", "hover", "condensed")) %>%
  footnote(general = "Elaborado en base a Sustainable Development Report 2024",
           general_title = "Fuente: ")

library(tidyverse)
library(kableExtra)

# 1. Definir regiones
regiones <- tibble(
  Pais = c("Canada", "United States", "Mexico",
           "Belize", "Guatemala", "Honduras", "Nicaragua", "Costa Rica", "Panama",
           "Haiti", "Cuba", "Jamaica", "Dominican Republic",
           "Colombia", "Venezuela", "Peru", "Chile", "Bolivia", "Argentina", "Brazil"),
  Region = c(rep("Norteamérica", 3),
             rep("Centroamérica", 6),
             rep("Caribe", 4),
             rep("Suramérica", 7))
)

# 2. Unir región a tabla
IODSx_region <- IODSx %>%
  left_join(regiones, by = "Pais") %>%
  filter(!is.na(Region))

# 3. Calcular IGDS promedio por región y año

IGDS_region <- IODSx_region %>%
  group_by(Region, Año) %>%
  summarise(IGDS_promedio = mean(IODS, na.rm = TRUE), .groups = "drop")

# 4. Mostrar tabla con título y pie de página

IGDS_region %>%
  arrange(Region, Año) %>%
  kable(format = "html", digits = 3,
        caption = "Tabla 3: Promedio regional del Índice de Desarrollo Sostenible (IGDS)") %>%
  kable_styling(full_width = FALSE, bootstrap_options = c("striped", "hover", "condensed")) %>%
  footnote(general = "Elaborado en base a Sustainable Development Report 2024",
           general_title = "Fuente: ")

# Guardar la tabla por país en un archivo CSV
write_csv(tabla_iods, "C:/Users/johan/Downloads/IGDS_por_pais.csv")

# Guardar la tabla por región en un archivo CSV
write_csv(IGDS_region, "C:/Users/johan/Downloads/IGDS_por_region.csv")