toolleaflet

library(leaflet)

location_long <- runif(30, min = -120, max = -70)
location_lat <- runif(30, min = 35, max = 48)
loc <- data.frame(location_long, location_lat)

my_map <- loc  %>%
  leaflet() %>%
  addTiles()

#my_map <- my_map %>%
#  addMarkers()

location_names <- c("state","state","state","state","state","state","state","state","state","state","state","state","state","state","state","state","state","state","state","state","state","state","state","state","state","state","state","state","state","state")

my_map %>%
  addMarkers(lng = ~location_long, lat = ~location_lat, popup =   location_names)