library(tidyverse)
Starbucks <- readr::read_csv("starbucks.csv") Starbucks %<>% rename(long = Longitude, lat = Latitude, postcode = Postcode, ownership = `Ownership Type`, country = Country, state = `State/Province`, city = City) %>% select(long, lat, postcode, ownership, country, state, city) # save(Starbucks, file = "../../data/Starbucks.rda")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.