Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Surface Water: can more quality parameters be added to Wasserportal ? #24

Open
mrustl opened this issue Jun 9, 2022 · 0 comments
Open

Surface Water: can more quality parameters be added to Wasserportal ? #24

mrustl opened this issue Jun 9, 2022 · 0 comments
Labels
question Further information is requested upstream Needs to be fixed in "upstream" dependency

Comments

@mrustl
Copy link
Member

mrustl commented Jun 9, 2022 •
edited
Loading

The question to SenUMVK is whether there could be more water quality parameters for surface water monitoring stations are available that can be integrated to the Wasserportal.

Currently there are in total 92 surface water stations (includes also 5 from Brandenburg starting with alphanumeric IDs -> no data can be requested!!) for which the following 7 parameters are available:

  • water_level
  • flow
  • level
  • temperature
  • ph
  • oxygen_concentration
  • oxygen_saturation

See below for a detailed table of parameter availability (indicated with x) for each surface monitoring station:

library(wasserportal)

stations <- wasserportal::get_stations()
#> Importing 9 station overviews from Wasserportal Berlin ... ok. (3.92s)
stations_sw <- stations$crosstable %>%
  dplyr::filter(is.na(.data$gws) & is.na(.data$gwq)) %>%
  dplyr::select(-.data$gws, -.data$gwq) %>%
  dplyr::mutate_all(~tidyr::replace_na(., ""))

### Number of Surface Monitoring Stations in Wasserportal
nrow(stations_sw)
#> [1] 92

names(stations_sw)
#> [1] "Messstellennummer" "Messstellenname"   "ws"               
#> [4] "df"                "wt"                "lf"               
#> [7] "ph"                "og"                "os"
sw_parameters <- stringr::str_remove(names(stations$overview_list)[1:7], pattern = "surface_water\\.")
names(stations_sw)[3:9] <- sw_parameters
names(stations_sw)
#> [1] "Messstellennummer"    "Messstellenname"      "water_level"         
#> [4] "flow"                 "temperature"          "conductivity"        
#> [7] "ph"                   "oxygen_concentration" "oxygen_saturation"

knitr::kable(stations_sw,
             caption = "Data Availability of Surface Water Monitoring in Wasserportal"
             )
Messstellennummer Messstellenname water_level flow temperature conductivity ph oxygen_concentration oxygen_saturation
5865900 Allee der Kosmonauten x
5827103 Allendestraße x x
5865300 Am Bahndamm x x x
5819900 Am Freibad x
5864801 Am Kienberg x x
5861101 Am Reitweg x x
5800107 Am Wolfsschluchtkanal x x
5800317 Biesdorfer Baggersee x x
5867003 Blankenfelde x x
5867401 Bürgerpark x x x
5800301 Dianasee x
5800302 Dreipfuhl x x
5863000 Eisenacher Straße x x
5867900 Eisenbahnbrücke x x x
5827101 Fähre Rahnsdorf x x x
5800320 Fennpfuhl x x
5800313 Fennsee x
5860900 Fichtenau x
5867101 Flaischlenstraße x x
5800303 Flughafensee x x
5826702 Gosener Landstraße x
5800305 Groß Glienicker See x x
5800304 Grunewaldsee x x
5800306 Halensee x x
5861000 Hegemeisterweg x
5867300 Heinersdorf x x
5864700 Hellersdorf x x
5865000 Honsfelder Brücke x x
5865200 Hoppendorfer Straße x x
5800308 Hundekehlesee x x
5867100 Krontaler Straße x x
5869700 Krummendammbrücke x x
5867500 Kühnemannstraße x x
5870100 Lichterfelde x x x
5800309 Lietzensee x x
5819901 Lübars x x
5800318 Malchower See x x
5826701 Neue Fahlenbergbrücke x x x
5800316 Orankesee x x
5867700 Pasewalker Brücke x x
5803500 Pfaueninsel x x
5800312 Plötzensee x x
5867000 Röntgental x x
5800106 Schäfersee x x
5866700 Schleuse Neukölln OP x x
5866800 Schleuse Neukölln UP x x
5862811 Schmöckwitz US x x
5867600 Schönwalder Str. x x
5827700 Sophienwerder x x x
5820000 St.-Joseph-Steg x x
5815911 Tegelort x x
5803200 Tiefwerder x x x
5867301 Venturigerinne x x
5867201 Verteiler OP x x
5867202 Verteiler UP x x
5800310 Waldsee Zehlendorf x x
5800314 Weißer See x
5861200 Wiesengrund x x x
5867001 Wiltbergstraße x
5864800 Wuhletal x x x
5866301 Zoo x x
5825500 Beeskow, Spreeschleuse UP x
5828000 Bräsinchen, Hauptabflusspegel x
5821000 Cottbus, Sandower Brücke x
5827000 Hohenbinde x
5804300 Ketzin x
5824700 Leibsch, Spreewehr UP x
5823800 Lübben, Zusammenfluss x
580412 Potsdam x
5862201 Prierow 2 x
5802600 Sachsenhausen x
5819801 Schildow x
5820900 Spremberg x
5820901 Talsperre Spremberg, Beckenpegel x
581591 Borgsdorf x
580430 Ketzin x
601 MPS Berlin-Spandauer-Schifffahrtskanal x x x x x
151 MPS Caprivibrücke x x x x x
153 MPS Charlottenburg x x x x x
509 MPS Landwehrkanal x x x x x
504 MPS Neuköllner Schifffahrtskanal x x x x x
414 MPS Teltowkanal x x x x x
141 MS Mühlendammschleuse x x x x x
111 MS Rahnsdorf x x x x x
211 MS Schmöckwitz x x x x x
161 MS Sophienwerder x x x x x
421 MS Teltow-Werft x x x x x
SP_0150 Beeskow x x x x x
TK_0025 Kleinmachnow x x x x x
SP_0130 Leibsch x x x x x
SP_0050 Neuhausen x x x x x
HV_0110 Potsdam x x x x x

Data Availability of Surface Water Monitoring in Wasserportal

Created on 2022-06-09 by the reprex package (v2.0.0)

Session info 
sessioninfo::session_info()
#> - Session info ---------------------------------------------------------------
#>  setting  value
#>  version  R version 4.1.2 (2021-11-01)
#>  os       Windows 10 x64 (build 19044)
#>  system   x86_64, mingw32
#>  ui       RTerm
#>  language (EN)
#>  collate  German_Germany.1252
#>  ctype    German_Germany.1252
#>  tz       Europe/Berlin
#>  date     2022-06-09
#>  pandoc   2.14.0.3 @ C:/Program Files/RStudio/bin/pandoc/ (via rmarkdown)
#> 
#> - Packages -------------------------------------------------------------------
#>  package      * version date (UTC) lib source
#>  assertthat     0.2.1   2019-03-21 [1] CRAN (R 4.1.0)
#>  backports      1.4.1   2021-12-13 [1] CRAN (R 4.1.2)
#>  cli            3.3.0   2022-04-25 [1] CRAN (R 4.1.3)
#>  crayon         1.5.1   2022-03-26 [1] CRAN (R 4.1.3)
#>  data.table     1.14.2  2021-09-27 [1] CRAN (R 4.1.3)
#>  DBI            1.1.2   2021-12-20 [1] CRAN (R 4.1.3)
#>  digest         0.6.27  2020-10-24 [1] CRAN (R 4.1.0)
#>  dplyr          1.0.9   2022-04-28 [1] CRAN (R 4.1.3)
#>  ellipsis       0.3.2   2021-04-29 [1] CRAN (R 4.1.0)
#>  evaluate       0.15    2022-02-18 [1] CRAN (R 4.1.3)
#>  fansi          1.0.3   2022-03-24 [1] CRAN (R 4.1.3)
#>  fastmap        1.1.0   2021-01-25 [1] CRAN (R 4.1.0)
#>  fs             1.5.0   2020-07-31 [1] CRAN (R 4.1.0)
#>  generics       0.1.2   2022-01-31 [1] CRAN (R 4.1.3)
#>  glue           1.6.2   2022-02-24 [1] CRAN (R 4.1.3)
#>  highr          0.9     2021-04-16 [1] CRAN (R 4.1.0)
#>  htmltools      0.5.2   2021-08-25 [1] CRAN (R 4.1.2)
#>  httr           1.4.3   2022-05-04 [1] CRAN (R 4.1.3)
#>  knitr          1.39    2022-04-26 [1] CRAN (R 4.1.3)
#>  kwb.datetime   0.5.0   2022-06-01 [1] Github (kwb-r/kwb.datetime@5f2b2c4)
#>  kwb.utils      0.13.0  2022-06-08 [1] Github (kwb-r/kwb.utils@6218b79)
#>  lifecycle      1.0.1   2021-09-24 [1] CRAN (R 4.1.1)
#>  magrittr       2.0.3   2022-03-30 [1] CRAN (R 4.1.3)
#>  pillar         1.7.0   2022-02-01 [1] CRAN (R 4.1.3)
#>  pkgconfig      2.0.3   2019-09-22 [1] CRAN (R 4.1.0)
#>  purrr          0.3.4   2020-04-17 [1] CRAN (R 4.1.0)
#>  R6             2.5.1   2021-08-19 [1] CRAN (R 4.1.1)
#>  reprex         2.0.0   2021-04-02 [1] CRAN (R 4.1.0)
#>  rlang          1.0.2   2022-03-04 [1] CRAN (R 4.1.3)
#>  rmarkdown      2.14    2022-04-25 [1] CRAN (R 4.1.3)
#>  rstudioapi     0.13    2020-11-12 [1] CRAN (R 4.1.0)
#>  rvest          1.0.2   2021-10-16 [1] CRAN (R 4.1.3)
#>  sessioninfo    1.2.2   2021-12-06 [1] CRAN (R 4.1.3)
#>  stringi        1.7.6   2021-11-29 [1] CRAN (R 4.1.2)
#>  stringr        1.4.0   2019-02-10 [1] CRAN (R 4.1.0)
#>  styler         1.4.1   2021-03-30 [1] CRAN (R 4.1.0)
#>  tibble         3.1.7   2022-05-03 [1] CRAN (R 4.1.3)
#>  tidyr          1.2.0   2022-02-01 [1] CRAN (R 4.1.3)
#>  tidyselect     1.1.2   2022-02-21 [1] CRAN (R 4.1.3)
#>  utf8           1.2.2   2021-07-24 [1] CRAN (R 4.1.3)
#>  vctrs          0.4.1   2022-04-13 [1] CRAN (R 4.1.3)
#>  wasserportal * 0.1.1   2022-06-09 [1] Github (kwb-r/wasserportal@561db5c)
#>  withr          2.5.0   2022-03-03 [1] CRAN (R 4.1.3)
#>  xfun           0.31    2022-05-10 [1] CRAN (R 4.1.3)
#>  xml2           1.3.3   2021-11-30 [1] CRAN (R 4.1.3)
#>  yaml           2.3.5   2022-02-21 [1] CRAN (R 4.1.2)
#> 
#>  [1] C:/Users/mrustl/Documents/R/win-library/4.1
#>  [2] C:/Program Files/R/R-4.1.2/library
#> 
#> ------------------------------------------------------------------------------
@mrustl mrustl added question Further information is requested upstream Needs to be fixed in "upstream" dependency labels Jun 9, 2022
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Assignees
No one assigned
Labels
question Further information is requested upstream Needs to be fixed in "upstream" dependency
Projects
None yet
Milestone
No milestone
Development

No branches or pull requests
1 participant
@mrustl