library(arc2r)
library(sf)
library(ggplot2)
data("mountainBikes_routes") # Dataset depicting the mountain bike routes in Switzerland

data("kantonsgebiet")
plot(st_geometry(kantonsgebiet))
plot(st_geometry(mountainBikes_routes), add = TRUE, col = "red")
routes_buffer <- st_buffer(mountainBikes_routes,1000)

plot(st_geometry(routes_buffer))
plot(st_geometry(mountainBikes_routes), add = TRUE)


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