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

remove duplicate bikelts chunk

Browse Source
This commit is contained in:
Ben Varick 2024-11-01 11:18:24 -05:00
parent 57d3a65db9
commit f3e68912ad
No known key found for this signature in database
1 changed files with 0 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
R/route_analysis.Rmd
View File

@ -112,25 +112,6 @@ for(i in addresses_near$number) {
routes <- bind_rows(routes) routes <- bind_rows(routes)
``` ```
## Bike Level of Traffic Stress (LTS)
```{r bikelts, eval = TRUE, echo = TRUE, results = "show", warning = FALSE, error = TRUE, message = FALSE}
bike_lts <- st_read("data/bike_lts/bike_lts_DANE.geojson")
# make lts attribute a factor
bike_lts[["lts"]] <- as.factor(bike_lts$LTS_F)
# remove segments with an LTS value of 9
bike_lts <- bike_lts %>% filter(lts != 9)
# set color scale
bike_lts_scale <- data.frame(code = c(1, 2, 3, 4, 9),
color = c("#1a9641",
"#a6d96a",
"#fdae61",
"#d7191c",
"#d7191c"))
routes <- bind_rows(routes)
```
## Combine routes with Bike LTS ## Combine routes with Bike LTS
```{r routeslts, eval = TRUE, echo = TRUE, results = "show", warning = FALSE, error = TRUE, message = FALSE} ```{r routeslts, eval = TRUE, echo = TRUE, results = "show", warning = FALSE, error = TRUE, message = FALSE}