Improve map plot

Author: ma-z-am

NAMESPACE

@@ -1,6 +1,7 @@
 # Generated by roxygen2: do not edit by hand
 
 export(Berlin_add_boarder)
+export(Berlin_add_waterbodies)
 export(QSIM_prepare)
 export(add_catchments)
 export(add_coloredRivers)

R/add_coloured_rivers.R

@@ -34,7 +34,7 @@ add_coloredRivers <- function(
       lines(x = ext_rivers[[j]]$x[i:(i+1)],
             y = ext_rivers[[j]]$y[i:(i+1)],
             col = ext_rivers[[j]]$color[i+1],
-            lwd = 6)
+            lwd = 4)
     }
   }
 

R/add_polygons.R

@@ -50,7 +50,7 @@ add_catchments <- function(){
 #' @export
 #'
 add_districts <- function(){
-  geo <- load_geo(region = "Berlin", Rdata_file = "berlin_boarder")
+  geo <- load_geo(region = "berlin", Rdata_file = "berlin_boarder")
   polygon(
     x = geo$gis_coordinates[,1],
     y = geo$gis_coordinates[,2],
@@ -66,12 +66,34 @@ add_districts <- function(){
 #' @importFrom graphics polygon
 #' @export
 #'
-Berlin_add_boarder <- function(bg_color = "gray80"){
-  geo <- load_geo(region = "Berlin", Rdata_file = "berlin_boarder")
+Berlin_add_boarder <- function(bg_color = "gray60"){
+  geo <- load_geo(region = "berlin", Rdata_file = "berlin_boarder")
   polygon(
     x = geo$gis_coordinates[,"X"],
     y = geo$gis_coordinates[,"Y"],
     col = bg_color
   )
 }
 
+#' Add Berlin boarder to a map
+#'
+#' Polygons is drawn in lightgray
+#' @param bg_color Character string or [rgb()] for the polygon background color
+#'
+#' @importFrom graphics polygon
+#' @export
+#'
+Berlin_add_waterbodies <- function(bg_color = "lightblue"){
+  geo <- load_geo(region = "berlin", Rdata_file = "berlin_waterbodies_ordnung1")
+  polies <- unique(geo$gis_coordinates[,"L2"])
+  for(poly in polies){
+    poly_rows <- geo$gis_coordinates[geo$gis_coordinates[,"L2"] == poly,]
+    polygon(
+      x = poly_rows[,"X"],
+      y = poly_rows[,"Y"],
+      col = bg_color, border = NA
+    )
+  }
+
+}
+

inst/extdata/berlin_data/berlin_waterbodies_ordnung1.RData

@@ -28,14 +28,15 @@ rivers_ext <- lapply(
 names(rivers_ext) <- names(rivers)
 
 # plot empty map
-qsimVis::plot_empty_map(rivers = rivers_ext, plot_toner = FALSE)
+# qsimVis::plot_empty_map(rivers = rivers_ext, plot_toner = FALSE)
 qsimVis::plot_empty_map(
   bbox = list(c(13, 13.8),
-              c(52.29755, 52.68))
+              c(52.35, 52.68))
 )
 
 # Add Shape Background
 qsimVis::Berlin_add_boarder()
+qsimVis::Berlin_add_waterbodies()
 
 # Add colored Rivers
 qsimVis::add_coloredRivers(