# Build Map
leaflet(states_data) %>%
  addProviderTiles(providers$CartoDB.Positron) %>%
  addPolygons(
    fillColor = ~pal(DEATHS),
    weight = 1,
    opacity = 1,
    color = "white",
    dashArray = "3",
    fillOpacity = 0.7,
    popup = ~paste(NAME, "Total Fatalities:", DEATHS, "<br>DUI Fatalities:", drunk_accidents, "<br>Percentage of Fatalities Involving DUI:", percent_drunk, "%")
  ) %>%
  addLegend(pal = pal, values = ~DEATHS, opacity = 0.7, title = "Fatalities from Accidents in 2022", position = "bottomright")

## Warning: sf layer has inconsistent datum (+proj=longlat +datum=NAD83 +no_defs).
## Need '+proj=longlat +datum=WGS84'