NRWgauges aims to grant easy access to gauge (meta-)data published on distributed web-based platforms by various water management associations in North Rhine-Westphalia, Germany.
As of today, the following platforms can be harvested:
- pegel.eglv.de (Emschergenossenschaft / Lippeverband)
You can install the development version of NRWgauges with:
# install.packages("devtools")
devtools::install_github("dimfalk/NRWgauges")and load the package via
library(NRWgauges)
#> 0.3.4# fetch all available gauges
gauges <- get_eglv_gauges()
gauges
#> Simple feature collection with 112 features and 12 fields
#> Geometry type: POINT
#> Dimension: XY
#> Bounding box: xmin: 336929 ymin: 5701285 xmax: 433191 ymax: 5733623
#> Projected CRS: ETRS89 / UTM zone 32N
#> # A tibble: 112 × 13
#> id name waterbody current_trend has_current_waterlevel
#> <chr> <chr> <chr> <chr> <lgl>
#> 1 10104 Econova Allee Berne Keine Daten TRUE
#> 2 10135 E Posener Straße (neu) Borbecke… Keine Daten TRUE
#> 3 11038 HRB Borbecker MB, Ablau… Borbecke… Keine Daten TRUE
#> 4 12036 HRB Borbecker Mühlenbac… Borbecke… Keine Daten TRUE
#> 5 10085 Nöggerathstraße Borbecke… Keine Daten TRUE
#> 6 10140 BOT Gungstraße, Fußgäng… Boye Keine Daten TRUE
#> 7 10141 Braukstraße, B224 Boye Keine Daten FALSE
#> 8 10139 GLA Brücke Welheimer St… Boye Keine Daten TRUE
#> 9 22049 An den Höfen, Hünxe (HR… Bruckhau… Kein Trend TRUE
#> 10 21119 HÜN HRB Zur alten Mühle… Bruckhau… Keine Daten TRUE
#> # ℹ 102 more rows
#> # ℹ 8 more variables: latest_waterlevel_datetime <dttm>,
#> # latest_waterlevel_value <dbl>, latest_waterlevel_current_alertlevel <int>,
#> # has_current_discharge <lgl>, latest_discharge_datetime <dttm>,
#> # latest_discharge_value <dbl>, latest_discharge_current_alertlevel <lgl>,
#> # geometry <POINT [m]>
# ... eventually filter the dataset to the objects you're interested in
gauge <- gauges |> dplyr::filter(id == "10119")
gauge
#> Simple feature collection with 1 feature and 12 fields
#> Geometry type: POINT
#> Dimension: XY
#> Bounding box: xmin: 367059.8 ymin: 5712147 xmax: 367059.8 ymax: 5712147
#> Projected CRS: ETRS89 / UTM zone 32N
#> # A tibble: 1 × 13
#> id name waterbody current_trend has_current_waterlevel
#> * <chr> <chr> <chr> <chr> <lgl>
#> 1 10119 Adenauerallee Emscher Keine Daten TRUE
#> # ℹ 8 more variables: latest_waterlevel_datetime <dttm>,
#> # latest_waterlevel_value <dbl>, latest_waterlevel_current_alertlevel <int>,
#> # has_current_discharge <lgl>, latest_discharge_datetime <dttm>,
#> # latest_discharge_value <dbl>, latest_discharge_current_alertlevel <lgl>,
#> # geometry <POINT [m]>get_eglv_meta(gauge)
#> # A tibble: 1 × 10
#> id name operator waterbody municipality X Y river_km
#> <chr> <chr> <chr> <chr> <chr> <dbl> <dbl> <dbl>
#> 1 10119 Adenauerallee EG Emscher Gelsenkirchen 367060. 5712147. 36.4
#> # ℹ 2 more variables: catchment_area <dbl>, level_zero <dbl># fetch water level measurements
meas <- get_eglv_measurements(gauge)[[1]]
meas
#> Wasserstand
#> 2024-10-29 20:25:00 86
#> 2024-10-29 20:30:00 86
#> 2024-10-29 20:35:00 86
#> 2024-10-29 20:40:00 86
#> 2024-10-29 20:45:00 86
#> 2024-10-29 20:50:00 86
#> 2024-10-29 20:55:00 86
#> 2024-10-29 21:00:00 86
#> 2024-10-29 21:05:00 86
#> 2024-10-29 21:10:00 86
#> ...
#> 2024-12-27 19:30:00 83
#> 2024-12-27 19:35:00 83
#> 2024-12-27 19:40:00 83
#> 2024-12-27 19:45:00 83
#> 2024-12-27 19:50:00 83
#> 2024-12-27 19:55:00 83
#> 2024-12-27 20:00:00 83
#> 2024-12-27 20:05:00 83
#> 2024-12-27 20:10:00 83
#> 2024-12-27 20:15:00 83
class(meas)
#> [1] "xts" "zoo"
plot(meas, main = "10119 Adenauerallee", ylab = "Water level [cm]")