UCLA Map

lets make a quick map of UCLA!

library(leaflet)

my_map <- leaflet() %>% 
    addTiles() %>% 
    addMarkers(lat = 34.0689, 
               lng = -118.4452, 
               label = "UCLA", 
               popup = "https://www.ucla.edu/") %>%
    addMarkers(lat = 34.071285, 
               lng = -118.450422, 
               label = "The hill", 
               popup = "https://portal.housing.ucla.edu/") %>%
    addMarkers(lat = 34.074148, 
               lng = -118.441137, 
               label = "North Campus", 
               popup = "http://www.directory.ucla.edu/") %>%
    addMarkers(lat = 34.068902, 
               lng = -118.442315, 
               label = "South Campus", 
               popup = "http://www.directory.ucla.edu/")
my_map