5.5 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()