library(tidyverse)
library(sf)

Generate fake data (tribble() is a cool function, btw)

events <- tribble(
  ~event, ~latitude, ~longitude,