library(leaflet)
leaflet(data = trauma_centers) %>% addTiles() %>% addMarkers(lng = ~LONGITUDE, lat = ~LATITUDE, label = ~NAME)
Data taken from the US Government’s Open Data Site.