Leaflet Map

Map of the 20 finalists for Amazon HQ2

2018-01-20

Making a quick Leaflet map for Developping Data Products Week 2.

library(leaflet)

cities<-c("Atlanta","Austin","Boston","Chicago","Columbus","Dallas","Denver","Indianapolis","Los Angeles","Miami","Montgomery County",
"Nashville","Newark","New York City","Northern Virginia","Philadelphia","Pittsburgh","Raleigh","Toronto","Washington")

lat<-as.numeric(c("33.748995","30.267153","42.360082","41.878114","39.961176","32.776664","39.739236","39.768403","34.052234","25.76168","39.154743",
  "36.162664","40.735657","40.712775","38.963964","39.952584","40.440625","35.77959","43.653226","38.907192"))

lng<-as.numeric(c("-84.387982","-97.743061","-71.05888","-87.629798","-82.998794","-96.796988","-104.990251","-86.158068","-118.243685","-80.19179",
  "-77.240515","-86.781602","-74.172367","-74.005973","-77.420585","-75.165222","-79.995886","-78.638179","-79.383184","-77.036871"))

data<-data.frame(cbind(lat, lng))

data %>% leaflet() %>% addTiles() %>% addMarkers(label=cities, clusterOptions = markerClusterOptions())