Sasquatch Sightings by State and Year

bfro <- read_csv("bfro_reports_geocoded.csv")
states <- read_csv("states.csv")

df <-left_join(bfro,states, by = "state") %>%
  drop_na(date) %>%
  mutate(year = year(ymd(date))) %>%  
  select(year, code, state) %>% 
  group_by(year, code, state) %>% 
  summarise(count = n()) %>% 
  ungroup() %>% 
  mutate(hover = paste0(state, "\n", count))

bf_graph <- plot_geo(df,
                     locationmode = 'USA-states',
                     frame = ~year) %>% 
  add_trace(locations = ~code,
            z = ~count,
            zmin = 0,
            zmax =max(df$count),
            color = ~count,
            colorscale = "Electric",
            text = ~hover,
            hoverinfo = 'text') %>% 
  layout(geo = list(scope = "usa"),
         title = "Sasquatch Sightings per Year by State") %>% 
  config(displayModeBar = FALSE)
bf_graph