## Plot all Starbucks locations using OpenStreetMap ## Credit: http://www.computerworld.com/article/2893271/business-intelligence/5-data-visualizations-in-5-minutes-each-in-5-lines-or-less-of-r.html library(checkpoint) checkpoint("2016-08-22") file <- "https://opendata.socrata.com/api/views/ddym-zvjk/rows.csv" starbucks <- read.csv(file) library(leaflet); library(magrittr) leaflet() %>% addTiles() %>% setView(-84.3847, 33.7613, zoom = 16) %>% addMarkers(data = starbucks, lat = ~ Latitude, lng = ~ Longitude, popup = starbucks$Name)