library(sf)
library(ggplot2)
data("veloparkierungsanlagen_zh")
library(dplyr)
parkBikes_winti <- filter(veloparkierungsanlagen_zh,GEMEINDE == "Winterthur")
ggplot() + geom_sf(data = veloparkierungsanlagen_zh) + geom_sf(data = parkBikes_winti, fill = "red", aes(color = "Bike parking spots in Winterthur")) + ggtitle("Bike parking facilities in Canton Zurich") + labs(color = " ") + theme(legend.position = "right", axis.text.x = element_text(angle=90, hjust=1)) + coord_sf(datum = 2056)


arc2r/book documentation built on March 5, 2021, 2:10 p.m.