My Map

library(leaflet)
library(magrittr)
set.seed(20170626)

df <- data.frame(lat = runif(6, min = -31.9189, max = -31.8189), lng=runif(6, min = 115.8184, max = 115.9184))
df %>%
  leaflet() %>%
  addTiles() %>%
  addMarkers(popup=c("My home", "My school", "My park", "My supermarket", "My hospital", "My favourite place"))