library(leaflet)
m = leaflet() %>% 
  addTiles() %>% 
  setView(mean(range(d$long)), mean(range(d$lat)), zoom = 10) %>% 
  addMarkers(d$long, d$lat, popup = d$n)
m