ben/route_analysis
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

More Organization of cycle_route_analysis_brouter.Rmd

Browse Source
This commit is contained in:
syounkin 2024-11-07 13:37:00 -06:00
parent 41d87517d8
commit 1843fd3e44
1 changed files with 14 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
cycling_route_analysis_brouter.Rmd
View File

@ -30,8 +30,10 @@ library(httr)
library(jsonlite) library(jsonlite)
library(parallel) library(parallel)
fig.height <- 6 fig.height <- 6
runTLS <- FALSE
set.seed(1) set.seed(1)
runTLS <- TRUE
logo <- image_read(path = "other/BFW_Logo_180_x_200_transparent_background.png")
school_symbol <- image_read_svg(path = "other/school_FILL0_wght400_GRAD0_opsz24.svg")
``` ```
## School Location Data ## School Location Data
@ -198,7 +200,7 @@ Notes:
source("./R/functions.R") source("./R/functions.R")
``` ```
```{r routeslts, eval = runTLS, echo = FALSE, results = "show", warning = FALSE, error = TRUE, message = FALSE} ```{r routeslts, eval = runTLS, echo = TRUE, results = "show", warning = FALSE, error = TRUE, message = FALSE}
# Start with routes_lts as a NULL list # Start with routes_lts as a NULL list
routes_lts <- list(NULL) routes_lts <- list(NULL)
@ -221,6 +223,11 @@ Notes:
probably a more efficient way to do this calculation. probably a more efficient way to do this calculation.
- see ./R/functions.R for defintion of getLTSForRoute() - see ./R/functions.R for defintion of getLTSForRoute()
# Make Maps
## Generate map with LTS data
```{r maplts, eval = runTLS, echo = FALSE, results = "show", warning = FALSE, error = TRUE, message = FALSE} ```{r maplts, eval = runTLS, echo = FALSE, results = "show", warning = FALSE, error = TRUE, message = FALSE}
ggmap(basemap) + ggmap(basemap) +
geom_sf(data = routes_lts %>% filter(student_number == 6), inherit.aes = FALSE, geom_sf(data = routes_lts %>% filter(student_number == 6), inherit.aes = FALSE,
@ -240,16 +247,6 @@ addresses_near <- left_join(addresses_near,
addresses_near <- addresses_near %>% mutate(lts_34_dist = lts_3_dist + lts_4_dist) addresses_near <- addresses_near %>% mutate(lts_34_dist = lts_3_dist + lts_4_dist)
``` ```
# Make Maps
## Load school and Bike Fed logo
```{r logos, eval = TRUE, echo = TRUE, results = "show", warning = FALSE, error = TRUE, message = FALSE}
# load logo
logo <- image_read(path = "other/BFW_Logo_180_x_200_transparent_background.png")
school_symbol <- image_read_svg(path = "other/school_FILL0_wght400_GRAD0_opsz24.svg")
```
## Generate map of addresses ## Generate map of addresses
```{r mapaddresses, eval = TRUE, echo = FALSE, results = "show", warning = FALSE, error = TRUE, message = FALSE} ```{r mapaddresses, eval = TRUE, echo = FALSE, results = "show", warning = FALSE, error = TRUE, message = FALSE}
@ -349,8 +346,8 @@ ggsave(file = paste0("figures/",
create.dir = TRUE) create.dir = TRUE)
``` ```
## Generate map of routes with LTS ## Generate map of routes with LTS (1)
```{r maprouteslts, eval = TRUE, echo = FALSE, results = "show", warning = FALSE, error = TRUE, message = FALSE} ```{r maprouteslts, eval = runTLS, echo = FALSE, results = "show", warning = FALSE, error = TRUE, message = FALSE}
# generate map # generate map
ggmap(basemap) + ggmap(basemap) +
labs(title = paste0("Cycling routes for students at ", labs(title = paste0("Cycling routes for students at ",
@ -401,8 +398,9 @@ ggsave(file = paste0("figures/",
``` ```
## Generate map of routes with LTS ## Generate map of routes with LTS (2)
```{r mapaddresseslts, eval = TRUE, echo = FALSE, results = "show", warning = FALSE, error = TRUE, message = FALSE}
```{r mapaddresseslts, eval = runTLS, echo = FALSE, results = "show", warning = FALSE, error = TRUE, message = FALSE}
# generate map # generate map
ggmap(basemap) + ggmap(basemap) +
labs(title = paste0("Level of Traffic stress for biking for students at ", labs(title = paste0("Level of Traffic stress for biking for students at ",