DC Mall Walk!

I used one of my favorite walking or running routes as the focus for Assignment #3 First thing was configuring my R environment with the right libraries and registered for Google Maps API keys.

library(dplyr)
library(tidyr)
library(ggplot2)
library(ggmap)
library(knitr)
library(leaflet)
#library(OpenStreetMap)
register_google(key = "AIzaSyBe06J9wAhCc43eJcPihRNK4c56a-z7Ovk")

The Lincoln Monument

LM <- "2 Lincoln Memorial Cir NW, Washington, DC 20037"
LM_M <- geocode(LM)
LM_M <- leaflet() %>% addTiles() %>%
  addMarkers(lng = LM_M$lon, lat = LM_M$lat, popup = "The Lincoln Monument")
LM_M

The White House

WH <- "1600 Pennsylvania Ave, Washington, DC 20024"
WH_M <- geocode(WH)
WH_M <- leaflet() %>% addTiles() %>%
  addMarkers(lng = WH_M$lon, lat = WH_M$lat, popup = "The White House")
WH_M

The DC Mall

route_DCMall <- route(WH, LM, mode = c("walking"), structure = c("route"))
route_DCMall
## # A tibble: 15 x 9
## # Groups:   route [1]
##    route     m     km    miles seconds minutes    hours   lon   lat
##    <chr> <int>  <dbl>    <dbl>   <int>   <dbl>    <dbl> <dbl> <dbl>
##  1 A        61  0.061  0.0379       44   0.733  0.0122  -77.0  38.9
##  2 A       100  0.1    0.0621       76   1.27   0.0211  -77.0  38.9
##  3 A       375  0.375  0.233       276   4.6    0.0767  -77.0  38.9
##  4 A       765  0.765  0.475       529   8.82   0.147   -77.0  38.9
##  5 A       168  0.168  0.104       135   2.25   0.0375  -77.0  38.9
##  6 A       192  0.192  0.119       141   2.35   0.0392  -77.0  38.9
##  7 A        17  0.017  0.0106       11   0.183  0.00306 -77.0  38.9
##  8 A        48  0.048  0.0298       31   0.517  0.00861 -77.0  38.9
##  9 A       234  0.234  0.145       173   2.88   0.0481  -77.0  38.9
## 10 A       226  0.226  0.140       161   2.68   0.0447  -77.0  38.9
## 11 A       113  0.113  0.0702       84   1.4    0.0233  -77.0  38.9
## 12 A        15  0.015  0.00932      12   0.2    0.00333 -77.0  38.9
## 13 A       169  0.169  0.105       120   2      0.0333  -77.0  38.9
## 14 A       169  0.169  0.105       128   2.13   0.0356  -77.1  38.9
## 15 A        NA NA     NA            NA  NA     NA       -77.1  38.9
m <- leaflet() %>%
  addProviderTiles("Stamen.Toner") %>%
  addPolylines(lng = route_DCMall$lon, lat = route_DCMall$lat, fill=FALSE, color="red")
m