RPubs Assignment

Problem 1

Make the leaflet and readr packages available.

# Place your code here.
library(leaflet)
library(readr)

Problem 2

Rerun the code from Problem 2 in the previous assignment.

# Place your code here.

mylocs <- read_csv("mylocs.csv")

## Parsed with column specification:
## cols(
##   Location = col_character(),
##   Lat = col_double(),
##   Long = col_double()
## )

leaflet(data = mylocs) %>% 
  addTiles() %>%
  addMarkers(~Long, ~Lat, popup = ~Location)

Problem 3

Rerun the code again with a different provider’s tiles.

# Place your code here.

leaflet(data = mylocs) %>% 
  addProviderTiles('CartoDB.Voyager') %>%
  addMarkers(~Long, ~Lat, popup = ~Location)

Problem 4

Do that again with a different provider.

# Place your code here.

leaflet(data = mylocs) %>% 
  addProviderTiles('Esri.WorldStreetMap') %>%
  addMarkers(~Long, ~Lat, popup = ~Location)

Problem 5

Which provider looks best to you? No code, just write.

I think the CartoDB.Voyager map provider looks to best. The map design it uses is very minimal which is perfect for showing the markers of the assignment. The extra details from the other maps can make the view a little cluttered.