library(tidyverse)
library(readxl)
baixa <- read_excel("DADES MASSIVES/baixa.xlsx")
View(baixa)
baixa$categoria <- factor(baixa$category,
                          levels = c("Cultural", "Natural", "Mixed"),
                          labels = c("Cultural", "Natural", "Mixto"))
if (any(is.na(baixa$categoria))) {
  stop("Categorías sin reconocer. Valores encontrados en category: ",
       paste(unique(baixa$category), collapse = " | "))
}
fmt     <- function(x, d = 1) format(round(x, d), nsmall = d, decimal.mark = ",")
fmt_int <- function(x) format(round(x), big.mark = ".", decimal.mark = ",")
n_total     <- nrow(baixa)
n_cult      <- sum(baixa$categoria == "Cultural")
n_nat       <- sum(baixa$categoria == "Natural")
n_mix       <- sum(baixa$categoria == "Mixto")
n_sin_coord <- sum(is.na(baixa$longitude))
n_con_coord <- n_total - n_sin_coord

La Lista del Patrimonio Mundial de la UNESCO reúne 1.273 lugares que la humanidad ha decidido proteger. La mayoría son culturales (991): ciudades históricas, templos, paisajes moldeados por las personas. Pero también hay 240 naturales (parques, selvas, arrecifes) y 42 mixtos, que cumplen criterios de las dos categorías. A primera vista son solo etiquetas; los datos muestran que cultura y naturaleza ocupan el planeta de maneras muy distintas.

Este reportaje las compara en tres frentes, con los datos oficiales de la UNESCO: dónde están, cuándo llegaron a la Lista y cuánto espacio ocupan.

Dónde está cada tipo de sitio

El mapa sitúa los 1.233 sitios con coordenadas conocidas, coloreados por categoría. Los 40 restantes no tienen coordenadas en los datos y no aparecen, y un sitio compartido por varios países se dibuja como un único punto.

fronteras <- NULL
if (requireNamespace("maps", quietly = TRUE)) {
  fronteras <- geom_polygon(
    data = map_data("world") %>% filter(region != "Antarctica"),
    aes(x = long, y = lat, group = group),
    fill = "grey90", color = "white", linewidth = 0.15)
}


con_coord <- baixa %>% filter(!is.na(longitude))
con_coord <- con_coord[order(con_coord$categoria), ]

ggplot() +
  fronteras +
  geom_point(data = con_coord,
             aes(x = longitude, y = latitude, color = categoria),
             size = 1.2, alpha = 0.7) +
  coord_quickmap() +
  labs(title = "Cada punto es un sitio de la Lista", color = "Categoría") +
  theme_void() +
  theme(legend.position = "bottom")

Los sitios culturales (rojizos) forman una mancha casi continua en Europa y se extienden por el Mediterráneo, Oriente Medio, el sur de Asia y Asia oriental. Los naturales (verdes) están mucho más dispersos: se ven en todos los continentes, con presencia destacada en África, América y Oceanía, y también en islas remotas del Pacífico y el Índico. Los mixtos (azules) son pocos y quedan repartidos por todo el mapa.

Los países que más acumulan

Hay 1.273 sitios, pero no se reparten por igual entre países. El gráfico muestra los diez que más tienen, con la categoría de cada sitio.

un_pais <- baixa %>% filter(transboundary == 0)


un_pais$pais <- sub("Federación de ", "", un_pais$states_name_es)
un_pais$pais <- sub(" \\(.*\\)", "", un_pais$pais)
un_pais$pais <- sub(" de Gran Bretaña.*", "", un_pais$pais)


ranking <- sort(table(un_pais$pais), decreasing = TRUE)
top10   <- names(ranking)[1:10]
top_paises <- un_pais %>% filter(pais %in% top10)
top_paises$pais <- factor(top_paises$pais, levels = rev(top10))  # rev: el primero queda arriba

ggplot(top_paises, aes(x = pais, fill = categoria)) +
  geom_bar() +
  coord_flip() +
  labs(
    title = "Los diez países con más sitios en la Lista",
    x = "País",
    y = "Número de sitios",
    fill = "Categoría"
  ) +
  theme_minimal()

Diez países reúnen el 34,7 % de los 1.222 sitios que pertenecen a un solo país: China lidera con 60, seguida de Italia (55) y Francia (49). Lo interesante es qué tipo de patrimonio acumulan. En esos diez países los naturales son el 13,4 % de los sitios, frente al 18,9 % del conjunto de la Lista: el patrimonio de los países con más sitios es sobre todo cultural. En Alemania, 43 de 44 sitios son culturales; en cambio, Rusia es donde más pesan los naturales (9 de 29, el 31 %) y China es el país del grupo con más sitios naturales (15).

Una lista que crece a golpes

La Lista no se ha construido de una vez. Cada año, el Comité del Patrimonio Mundial decide qué lugares se incorporan. El histograma cuenta las inscripciones año a año, separadas por categoría.

tabla_anyos <- table(baixa$date_inscribed)
anyo_pico   <- names(tabla_anyos)[which.max(tabla_anyos)]
n_pico      <- max(tabla_anyos)
segundo     <- sort(tabla_anyos, decreasing = TRUE)[2]
anyo_ini    <- min(baixa$date_inscribed)
anyo_fin    <- max(baixa$date_inscribed)
anyos_vacios <- setdiff(anyo_ini:anyo_fin, baixa$date_inscribed)

ggplot(baixa, aes(x = date_inscribed, fill = categoria)) +
  geom_histogram(binwidth = 1, color = "white") +
  labs(
    title = paste0("El récord fue el año ", anyo_pico, ": ", n_pico, " sitios inscritos"),
    x = "Año de inscripción",
    y = "Número de sitios",
    fill = "Categoría"
  ) +
  theme_minimal()

Las inscripciones llegan por oleadas: el récord es 2000, con 61 sitios, seguido de 1999 (48). Entre 1978, el año de las primeras inscripciones, y 2026 hay 2 años sin ninguna incorporación: 2020 y 2022. Y aunque la Lista no ha dejado de crecer, la proporción de sitios naturales apenas ha cambiado: eran el 19,9 % de los inscritos hasta 1999 y son el 17,8 % de los inscritos desde el año 2000. Cultura y naturaleza han crecido a la vez.

Pequeños monumentos, inmensos parques

La tercera comparación es el tamaño. La superficie de los sitios va desde unas pocas hectáreas hasta decenas de millones, así que el diagrama de caja usa una escala logarítmica: cada unidad del eje significa multiplicar por 10 (0 equivale a 1 hectárea, 3 a 1.000 y 6 a un millón). La caja recoge el 50 % central de los sitios y la línea gruesa marca la mediana.

con_area <- baixa %>% filter(area_hectares > 0)
con_area$log_area <- log10(con_area$area_hectares)

med_area  <- tapply(con_area$area_hectares, con_area$categoria, median)
med_cult  <- med_area[["Cultural"]]
med_nat   <- med_area[["Natural"]]
med_mix   <- med_area[["Mixto"]]
vez_nat   <- med_nat / med_cult
sitio_max <- con_area$name_es[which.max(con_area$area_hectares)]
area_max  <- max(con_area$area_hectares)

ggplot(con_area, aes(x = categoria, y = log_area, fill = categoria)) +
  geom_boxplot() +
  labs(
    title = paste0("Superficie mediana: ", fmt_int(med_cult), " ha en los culturales y ",
                   fmt_int(med_nat), " ha en los naturales"),
    x = "Categoría",
    y = "Superficie (log10 de hectáreas)"
  ) +
  theme_minimal() +
  theme(legend.position = "none")

La diferencia es enorme: el sitio natural mediano ocupa 169.696 hectáreas, unas 1.286 veces más que el cultural mediano (132). Tiene sentido: un casco histórico cabe en unas decenas o centenares de hectáreas, mientras que un ecosistema necesita mucho más espacio. Los sitios mixtos se parecen más a los naturales, con una mediana de 119.805 hectáreas. El mayor de toda la Lista es «Territorios y mares australes franceses», con 166.267.100 hectáreas.

El segundo mapa se centra en los sitios naturales y usa el tamaño del punto para mostrar su superficie.

naturales <- baixa %>% filter(categoria == "Natural", !is.na(longitude), area_hectares > 0)

naturales$tamano <- cut(naturales$area_hectares,
                        breaks = c(0, 1e5, 1e6, Inf),
                        labels = c("Menos de 100.000 ha", "De 100.000 ha a 1 millón", "Más de 1 millón de ha"),
                        ordered_result = TRUE)

ggplot() +
  fronteras +
  geom_point(data = naturales,
             aes(x = longitude, y = latitude, size = tamano),
             color = "forestgreen", alpha = 0.5) +
  coord_quickmap() +
  labs(title = "Los sitios naturales, según su superficie", size = "Superficie") +
  theme_void() +
  theme(legend.position = "bottom")

De los 226 sitios naturales con coordenadas y superficie conocidas, 43 superan el millón de hectáreas. Los más grandes no se concentran en un solo continente: hay grandes áreas en América, África, Asia y Oceanía, y los mayores incluyen espacios marinos remotos, como «Territorios y mares australes franceses» y «Zona protegida de las Islas Fénix».

Dos formas de patrimonio

Cultura y naturaleza son dos formas distintas de patrimonio y los datos las separan con claridad. Los sitios culturales son casi cuatro de cada cinco (78 %), se concentran sobre todo en Europa, el Mediterráneo y Asia, y ocupan poco espacio. Los naturales (19 %) están más repartidos por el planeta y necesitan territorios inmensos: un sitio natural mediano ocupa unas 1.286 veces la superficie de uno cultural. Ambos han crecido a la vez desde 1978, y por eso la Lista es, al mismo tiempo, un inventario de lo que hemos construido y de lo que hemos decidido conservar.

Fuente y notas. Datos: Centro del Patrimonio Mundial de la UNESCO, https://whc.unesco.org/en/list/. El gráfico de países excluye los 51 sitios compartidos por varios países. El gráfico de superficie excluye los sitios sin superficie conocida o con superficie cero. Cartografía base: paquete maps, con límites orientativos.