RPubs Assignment

Problem 1

Make the leaflet and readr packages available.

# Place your code here.
library(tidyverse)

## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.0 ──

## ✓ ggplot2 3.3.0     ✓ purrr   0.3.4
## ✓ tibble  3.0.5     ✓ dplyr   1.0.3
## ✓ tidyr   1.0.2     ✓ stringr 1.4.0
## ✓ readr   1.3.1     ✓ forcats 0.5.0

## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

library(leaflet)

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(
##   lat = col_double(),
##   lon = col_double(),
##   ID = col_character()
## )

myMap = myLocs %>% 
  leaflet() %>% 
  addTiles() %>% 
  addMarkers(popup = ~ID)

## Assuming "lon" and "lat" are longitude and latitude, respectively

myMap

Problem 3

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

# Place your code here.

Problem 4

Do that again with a different provider.

# Place your code here.

Problem 5

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