library(leaflet)
leaflet(data = trauma_centers) %>% 
  addTiles() %>% 
  addMarkers(lng = ~LONGITUDE, lat = ~LATITUDE, label = ~NAME)

Data taken from the US Government’s Open Data Site.