A simple map

library(leaflet)
quakes %>% 
  head(50) %>% 
  leaflet() %>% 
  addTiles() %>% 
  addCircles()
## Assuming "long" and "lat" are longitude and latitude, respectively

A map with a tooltip

library(leaflet)
quakes %>% 
  head(50) %>% 
  leaflet() %>% 
  addTiles() %>% 
  addCircles(popup = ~str_c("Magnitude: ", mag))
## Assuming "long" and "lat" are longitude and latitude, respectively

Copyright © 2018 Kirill Müller. Licensed under CC BY-NC 4.0.