Buffers
# original data
seine |>
ggplot() +
geom_sf(aes(color = name)) +
labs(title = "La Seine",
subtitle = "Rivers in France",
caption = "GeoComputation with R book club") +
theme_minimal()
seine_buffer_5 = st_buffer(seine, dist = 5000) #5 kilometers
seine |>
ggplot() +
geom_sf() +
geom_sf(aes(fill = name), alpha = 0.5,
data = seine_buffer_5) +
labs(title = "La Seine",
subtitle = "buffer: 5 kilometers",
caption = "GeoComputation with R book club") +
theme_minimal()
seine_buffer_50 = st_buffer(seine, dist = 50000) #50 kilometers
seine |>
ggplot() +
geom_sf() +
geom_sf(aes(fill = name), alpha = 0.5,
data = seine_buffer_50) +
labs(title = "La Seine",
subtitle = "buffer: 50 kilometers",
caption = "GeoComputation with R book club") +
theme_minimal()