This package contains spatial data files for various administrative
boundaries in Berlin, Germany and currently one function sf_fisbroker
to convert WKS files from the Berlin Geodata Portal
“FIS-Broker”
in sf objects. I was motivated by the package
nycgeo from Matt Herman.
Data Source: Amt für Statistik Berlin-Brandenburg, Data Licence: Lizenz CC-BY-3.0
Development version from GitHub
remotes::install_github("patperu/berlingeo")
library("berlingeo")library(berlingeo)
library(sf)
#> Linking to GEOS 3.6.1, GDAL 2.2.3, PROJ 4.9.3
library(tidyverse)
#> -- Attaching packages -------------------------------------------------------------- tidyverse 1.2.1 --
#> v ggplot2 3.2.0.9000 v purrr 0.3.2
#> v tibble 2.1.3 v dplyr 0.8.3
#> v tidyr 0.8.3 v stringr 1.4.0
#> v readr 1.3.1 v forcats 0.4.0
#> -- Conflicts ----------------------------------------------------------------- tidyverse_conflicts() --
#> x dplyr::filter() masks stats::filter()
#> x dplyr::lag() masks stats::lag()glimpse(lor_pgr_sf)
#> Observations: 60
#> Variables: 7
#> $ gml_id <chr> "s_lor_prog.0101", "s_lor_prog.0102", "s_lor_prog.0...
#> $ RAUMID <chr> "0101", "0102", "0103", "0104", "0201", "0202", "02...
#> $ PGRNAME <chr> "Zentrum", "Moabit", "Gesundbrunnen", "Wedding", "K...
#> $ BEZNAME <chr> "Mitte", "Mitte", "Mitte", "Mitte", "Friedrichshain...
#> $ DATUM <chr> "2007-10-31T00:00:00", "2007-10-31T00:00:00", "2007...
#> $ SHAPE_AREA <dbl> 15844742, 8239538, 5753252, 9611634, 2929465, 47540...
#> $ geometry <MULTIPOLYGON [°]> MULTIPOLYGON (((13.36953 52..., MULTIP...
ggplot(lor_pgr_sf) +
geom_sf() +
theme_minimal()
glimpse(lor_bzr_sf)
#> Observations: 138
#> Variables: 8
#> $ gml_id <chr> "s_lor_bez.010111", "s_lor_bez.010112", ...
#> $ RAUMID <chr> "010111", "010112", "010113", "010114", ...
#> $ BEZIRKSREGION <chr> "Tiergarten Süd", "Regierungsviertel", "...
#> $ PROGNOSERAUM <chr> "Zentrum", "Zentrum", "Zentrum", "Zentru...
#> $ BEZIRK <chr> "Mitte", "Mitte", "Mitte", "Mitte", "Mit...
#> $ DATUM_GUELTIG_AB <chr> "2006-06-14 00:00:00.0", "2006-06-14 00:...
#> $ FLAECHENGROESSE_IN_M2 <dbl> 366755.5, 744742.1, 1685341.1, 1151740.5...
#> $ geometry <MULTIPOLYGON [°]> MULTIPOLYGON (((13.36953 52...
ggplot(lor_bzr_sf) +
geom_sf() +
theme_minimal()
glimpse(lor_plr_sf)
#> Observations: 448
#> Variables: 9
#> $ gml_id <chr> "s_lor_plan.01011101", "s_lor_plan.01011...
#> $ RAUMID <chr> "01011101", "01011102", "01011103", "010...
#> $ PLANUNGSRAUM <chr> "Stülerstraße", "Großer Tiergarten", "Lü...
#> $ BEZIRKSREGION <chr> "Tiergarten Süd", "Tiergarten Süd", "Tie...
#> $ PROGNOSERAUM <chr> "Zentrum", "Zentrum", "Zentrum", "Zentru...
#> $ BEZIRK <chr> "Mitte", "Mitte", "Mitte", "Mitte", "Mit...
#> $ DATUM_GUELTIG_AB <chr> "14.06.2006", "14.06.2006", "14.06.2006"...
#> $ FLAECHENGROESSE_IN_M2 <int> 366756, 3009397, 522357, 338383, 934610,...
#> $ geometry <MULTIPOLYGON [°]> MULTIPOLYGON (((13.33889 52...
ggplot(lor_plr_sf) +
geom_sf() +
theme_minimal()
sf_fisbroker("s_erhaltgeb_es") %>%
ggplot() +
geom_sf() +
theme_minimal()
#> [1] "http://fbinter.stadt-berlin.de/fb/wfs/data/senstadt/s_erhaltgeb_es?service=wfs&version=2.0.0&request=GetFeature&TYPENAMES=s_erhaltgeb_es"
Please note that the ‘berlingeo’ project is released with a Contributor Code of Conduct. By contributing to this project, you agree to abide by its terms.