Datos de fuentes de agua potable en la Comunidad Valenciana

GPKG

EQUIPAMIENTO URBANO

COMUNIDAD VALENCIANA

Autor/a

Afiliación

Natalia Rudilla Ponce

Universitat de València

Fecha de publicación

1 de abril de 2026

Input

Dentro del equipamiento urbano, una de las capas de información más interesantes es la relativa a las fuentes de agua potable, ya que se trata de elementos distribuidos por el territorio que pueden resultar útiles tanto para residentes como para visitantes. Además, este tipo de datos puede emplearse en estudios relacionados con la accesibilidad urbana, la planificación del espacio público y la disponibilidad de servicios básicos.

En esta ficha se trabaja con la localización de las fuentes de agua potable en la Comunidad Valenciana, entendidas como puntos geográficos donde existe acceso público al suministro de agua para consumo.

En este caso, se ha utilizado OpenStreetMap (OSM) como fuente de información para obtener la localización de las fuentes de agua potable en la Comunidad Valenciana. Esta plataforma colaborativa permite descargar datos geográficos abiertos y actualizados, además de realizar consultas espaciales reproducibles mediante R gracias a la librería osmdata.

Descripción

Comenzamos cargando las librerías necesarias:

libs <- c("tidyverse", "sf", "mapSpain", "osmdata", "ggspatial","ggplot2")
installed_libs <- libs %in% rownames(installed.packages())
if (any(installed_libs == FALSE)) {install.packages(libs[!installed_libs])}
invisible(lapply(libs, library, character.only = TRUE))
rm(libs, installed_libs)

Seguidamente, decretamos los límites de la Comunidad Valenciana

valencia <- mapSpain::esp_get_munic() %>%
  filter(cpro %in% c("03", "12", "46")) %>%
  st_transform(4326)

Y creamos el bounding box a través de la consulta:

bbox_valencia <- st_bbox(valencia)

q_fuentes <- opq(bbox = bbox_valencia) %>%
  add_osm_feature(key = "amenity", value = "drinking_water")

fuentes <- osmdata_sf(q_fuentes)

fuentes_cv <- fuentes$osm_points %>%
  st_intersection(valencia)

class(fuentes_cv)

[1] "sf"         "data.frame"

dim(fuentes_cv)

[1] 3260   92

Se trata de un objeto sf con 3260 observaciones y 92 variables. Tras observar nuestra base de datos vamos a contemplar si tiene valores ausentes.

sum(is.na(fuentes_cv$name))

[1] 2929

Tal y como podemos observar, el principal problema de nuestra base de datos es que contamos con 2929 localizaciones que tienen NA en la variable nombre (name), por lo que no se pueden identificar correctamente.

Tratamiento

Procedemos a eliminar los NA y así dispondremos de una base de datos mucho más limpia.

fuentes_cv_SINNA <- fuentes_cv %>% filter(!is.na(name))
dim(fuentes_cv_SINNA)

[1] 331  92

Ahora tenemos una base de datos de 331 observaciones y 92 variables.

Continuando con esta mejora de los datos, comprobamos si todos los puntos se encuentran dentro de los límites de la Comunidad Valenciana o si alguno se encuentra fuera de ella.

spain <- mapSpain::esp_get_ccaa()
spain <- sf::st_transform(spain, crs = 4326)
cval <- spain %>% dplyr::filter(codauto == "10")
pts_in <- sf::st_intersection(fuentes_cv_SINNA, cval)
pts_out <- sf::st_difference(fuentes_cv_SINNA, cval)

Con esto hemos podido observar que todos los puntos del nuevo conjunto de datos se encuentran dentro de los límites de la Comunidad Valenciana.

Output

Hemos obtenido un nuevo objeto sf, con 331 observaciones y 92 variables:

class(fuentes_cv_SINNA)

[1] "sf"         "data.frame"

dim(fuentes_cv_SINNA)

[1] 331  92

En la siguiente figura se puede observar que todos los puntos del nuevo dataset sí están dentro de los límites de la Comunidad Valenciana y no obtenemos valores ausentes:

spain <- mapSpain::esp_get_ccaa()
spain <- sf::st_transform(spain, crs = 4326)

limites_gva <- sf::st_buffer(cval, 25000) %>% sf::st_bbox()

ggplot() +
  geom_sf(data = spain, fill = "deeppink") +
  geom_sf(data = valencia, fill = "white") +
  geom_sf(data = fuentes_cv_SINNA, color = "lightpink", alpha = 0.5) +
  coord_sf(xlim = c(limites_gva["xmin"], limites_gva["xmax"]),
           ylim = c(limites_gva["ymin"], limites_gva["ymax"])) +
  theme_minimal() +
  theme(axis.title = element_blank(),
        panel.background = element_rect(fill = "lightgrey")) +
  ggtitle("Fuentes de agua potable en la Comunidad Valenciana")

En la figura anterior se puede observar la distribución espacial de las fuentes de agua potable en la Comunidad Valenciana. Se aprecia una mayor concentración de puntos en las zonas más urbanizadas, especialmente en áreas cercanas a la costa y en ciudades principales como Valencia, Alicante y Castellón. Por otro lado, en zonas del interior la densidad de fuentes es menor, lo que puede estar relacionado con una menor densidad de población o con diferencias en la disponibilidad de infraestructuras urbanas.

En conclusión, a partir de datos abiertos de OpenStreetMap se ha construido y mejorado un conjunto de datos geoespacial sobre fuentes de agua potable en la Comunidad Valenciana. El proceso ha permitido obtener, depurar y analizar la información, generando un dataset estructurado y listo para su reutilización en futuros estudios o aplicaciones geográficas.

sf::st_write(fuentes_cv_SINNA, "sf_fuentes_cvalenciana.gpkg", delete_dsn = TRUE)

El fichero generado con el procedimiento descrito anteriormente se puede descargar, en formato GeoPackage (gpkg), aquí.

Proyecto de Innovación Educativa Emergente (PIEE-3898312)