Map with Leaflet: Coursera week-2 Assignment

Data was taken from internet and modified

##            State       City      lat        lng Population color
## 1     Washington Marysville 48.05176 -122.17708      63269  blue
## 2     California     Perris 33.78252 -117.22865      72326  blue
## 3           Ohio  Cleveland 41.49932  -81.69436     390113 Green
## 4  Massachusetts  Worcester 42.26259  -71.80229     182544 Green
## 5 South Carolina   Columbia 34.00071  -81.03481     133358 Green
## 6    Connecticut  Waterbury 41.55815  -73.05150     109676 Green

Create map with leaflet

New_US_Pop %>% leaflet() %>% addTiles() %>% setView(lat=37.0902,lng= -95.7129,zoom=4) %>%
addCircles(lat=~lat,lng=~lng,weight=1,radius=~sqrt(Population)*100,color=~color,fillOpacity = 0.5,
popup= ~paste("<b>", City, 
 "<br><br>","Population:",Population)) %>%
 addLegend("bottomleft",labels = c("<= 50000", "<= 100000", "<= 500000", "<= 1000000", "<= 3000000", "<= 5000000", "> 5000000"), colors = c("red", "blue", "Green","gold","darkturquoise","deeppink","purple"),title = ("Total US Population Growth From 2000 to 2013"))