In swissgeodata4r/swissvector4r: Easy access to swiss vector data

knitr::opts_chunk$set(echo = TRUE)

What is this package about?

I've developed this package to provide myself with a fast access to open vector data which I use frequently. I usually use this data to bring context to other data that I need to visualize. Check the reference section to see some metadata.

How does this package work?

Load the necessary packages

# devtools::install_github("swissgeodata4r/swissvector4r")

library(swissvector4r) 

library(sf)
library(ggplot2)
library(dplyr)

Plot the data

data("kantonsgebiet")


ggplot(kantonsgebiet, aes(fill = Beitritt)) + 
  geom_sf() + 
  scale_fill_viridis_c() +
  coord_sf(datum = 2056)

data("seen")
data("landesgebiet")

ggplot(landesgebiet) +
  geom_sf() +
  geom_sf(data = seen %>% arrange(desc(SHP_AREA)) %>% head(7), fill = "deepskyblue3")