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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.