All latitude and attitude data is from Google Map with my arbitary choice on May 19,2017.
library(leaflet) names<- c("Home","Bobst Library","Yankee Stidum","SPS at 42nd St","Stern","NYU Bookstore","Media Storm - Gonna to do unpaid full-time intern") att<-c(40.762056,40.7294269,40.8296466,40.7541516,40.7290589,40.7293015,40.7267935) lat<-c(-73.948448,-73.9994032,-73.9283632,-73.9840473,-73.998712,-73.9954667,-74.0075843) Graduation_Season_May <- leaflet() %>% addTiles() %>% addMarkers (lat=att,lng=lat,popup=names) Graduation_Season_May