Interactive Map with Leaflet - 22 Nov 2017

Map created in R Studio using leaflet

1. Points of Interest in SFO: Golden Gate Bridge, UC Berkeley, Stanford University, and UC Davis

(click the markers to show popups for the locations)

library(leaflet)
mapNorcal = leaflet() %>%
 addTiles() %>%
 addMarkers (lat= 37.819722, lng= -122.478611, popup="Golden Gate Bridge")%>%
 addMarkers (lat= 37.4275, lng = -122.1697, popup="Stanford University")%>%
 addMarkers (lat= 37.8719, lng = -122.2585, popup="University of California Berkeley")%>%
 addMarkers (lat= 38.5382, lng= -121.7617, popup="University of California Davis")
mapNorcal

2. Three major Northern California Cities: Sacramento, San Francisco and San Jose. Circles are added using the addCircles() function in leaflet. Click circles to show city name and population.

cities <- read.csv(textConnection("
City,Lat,Long,Pop
Sacramento, 38.5816, -121.4944, 495234
San Francisco,37.78, -122.41,864816
San Jose,37.35,-121.85,1026938"))
leaflet(cities) %>% 
        addTiles() %>%
        addCircles(lng = ~Long, lat = ~Lat, weight = 2, radius = ~sqrt(Pop)*10, popup=~paste(City, ", population=", Pop)
  )