RPubs Assignment

Problem 1

Make the leaflet and tidyverse packages available. This implies that you have already installed them on your computer.

# Place your code here.
library(tidyverse)

## Warning: package 'tidyverse' was built under R version 3.6.2

## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.1 ──

## ✓ ggplot2 3.3.5     ✓ purrr   0.3.4
## ✓ tibble  3.1.4     ✓ dplyr   1.0.7
## ✓ tidyr   1.1.3     ✓ stringr 1.4.0
## ✓ readr   2.0.1     ✓ forcats 0.5.1

## Warning: package 'ggplot2' was built under R version 3.6.2

## Warning: package 'tibble' was built under R version 3.6.2

## Warning: package 'tidyr' was built under R version 3.6.2

## Warning: package 'readr' was built under R version 3.6.2

## Warning: package 'purrr' was built under R version 3.6.2

## Warning: package 'dplyr' was built under R version 3.6.2

## Warning: package 'forcats' was built under R version 3.6.2

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

library(leaflet)

## Warning: package 'leaflet' was built under R version 3.6.2

Problem 2

Use Leaflet to display your central location, probably the address where you live.

# Place your code here.
myCentralLocation <- leaflet() %>%
                      addTiles()  %>%
                      addMarkers(lng=-122.24757 , lat=47.27293, popup = "My home" )

myCentralLocation

Problem 3

Use Leaflet with the default tiles to display the locations in your myLocs file.

myLoc1 <- leaflet() %>%
          addTiles() %>%
          addMarkers(lng=-122.24757 , lat=47.27293, popup = "My home" )

myLoc2 <- leaflet() %>%
          addTiles() %>%
          addMarkers(lng = -122.81719, lat = 47.04327, popup = "St Martin")

myLoc3 <- leaflet() %>%
          addTiles() %>%
          addMarkers(lng = -122.06519 , lat = 47.55192, popup = "Lake Sammamish State park")

myLoc4 <- leaflet() %>%
          addTiles() %>%
          addMarkers(lng = -122.40844, lat = 47.57988, popup = "Alki beach park")

myLoc5 <- leaflet() %>%
          addTiles() %>%
          addMarkers(lng = -122.21572, lat = 47.705376, popup = "juanita beach park")

myLoc1

myLoc2

myLoc3

myLoc4

myLoc5

Problem 4

Do that again with a different provider.

myLoc6 <- leaflet() %>%
          addProviderTiles(provider = "CartoDB") %>%
          addMarkers(lng=-122.24757 , lat=47.27293, popup = "My home" )

myLoc7 <- leaflet() %>%
          addProviderTiles(provider = "CartoDB") %>%
          addMarkers(lng = -122.81719, lat = 47.04327, popup = "St Martin")

myLoc8 <- leaflet() %>%
          addProviderTiles(provider = "CartoDB") %>%
          addMarkers(lng = -122.06519 , lat = 47.55192, popup = "Lake Sammamish State park")

myLoc9 <- leaflet() %>%
          addProviderTiles(provider = "CartoDB") %>%
          addMarkers(lng = -122.40844, lat = 47.57988, popup = "Alki beach park")

myLoc10 <- leaflet() %>%
          addProviderTiles(provider = "CartoDB") %>%
          addMarkers(lng = -122.21572, lat = 47.705376, popup = "juanita beach park")

myLoc6

myLoc7

myLoc8

myLoc9

myLoc10

Problem 5

Do that again with another provider.

# Place your code here.
myLoc11 <- leaflet() %>%
          addProviderTiles(provider = "Esri") %>%
          addMarkers(lng=-122.24757 , lat=47.27293, popup = "My home" )

myLoc12 <- leaflet() %>%
          addProviderTiles(provider = "Esri") %>%
          addMarkers(lng = -122.81719, lat = 47.04327, popup = "St Martin")

myLoc13 <- leaflet() %>%
          addProviderTiles(provider = "Esri") %>%
          addMarkers(lng = -122.06519 , lat = 47.55192, popup = "Lake Sammamish State park")

myLoc14 <- leaflet() %>%
          addProviderTiles(provider = "Esri") %>%
          addMarkers(lng = -122.40844, lat = 47.57988, popup = "Alki beach park")

myLoc15 <- leaflet() %>%
          addProviderTiles(provider = "Esri") %>%
          addMarkers(lng = -122.21572, lat = 47.705376, popup = "juanita beach park")

myLoc11

myLoc12

myLoc13

myLoc14

myLoc15

Problem 6

Which provider looks best to you? No code, just write. = provider Esri looks best to me because the outlines are clear on that.