Frequently visited locations in UNSW
library(leaflet)
library(tidyr)
data<- data.frame(name=c("UNSW Library","UNSW Village","Mathematics and Statistics Department",
"Chemical Sciences Building","Central Lecture Block","Law Building"),
lat= c(-33.917288, -33.915783, -33.918041, -33.917298, -33.917146,-33.916986),
lng= c(151.233501, 151.229220, 151.230405, 151.228730, 151.232524, 151.227808),
popup=c("<a> UNSW Library </a>","<a>UNSW Village</a>","<a> Mathematics and Statistics Department</a>",
"<a>Chemical Sciences Building</a>", "<a> Central Lecture Block </a>","Law Building")
)
leaflet(data) %>% addTiles() %>% addMarkers(popup=data$popup)
## Assuming 'lng' and 'lat' are longitude and latitude, respectively