changed name to ltscount (from routeslts) to match cycling_route_analysis_brouter.Rmd
This commit is contained in:
parent
b19add99ac
commit
9959536378
@ -140,7 +140,7 @@ Notes:
|
|||||||
|
|
||||||
|
|
||||||
## 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 ltscount, eval = TRUE, echo = TRUE, results = "show", warning = FALSE, error = TRUE, message = FALSE}
|
||||||
|
|
||||||
# Count the routes that intersect or overlap with each segment of the bike_tls network.
|
# Count the routes that intersect or overlap with each segment of the bike_tls network.
|
||||||
# The intersections have a buffer of 20m
|
# The intersections have a buffer of 20m
|
||||||
@ -150,6 +150,7 @@ bike_lts_buffer["student_use"] <- unlist(lapply(st_intersects(bike_lts_buffer, r
|
|||||||
|
|
||||||
bike_lts <- left_join(bike_lts, as.data.frame(bike_lts_buffer %>% select(OBJECTID, student_use)), by = "OBJECTID")
|
bike_lts <- left_join(bike_lts, as.data.frame(bike_lts_buffer %>% select(OBJECTID, student_use)), by = "OBJECTID")
|
||||||
```
|
```
|
||||||
|
Notes: for each segment in bike_lts, this counts how many student's calculated routes intersect with it (within a 20 m buffer)
|
||||||
|
|
||||||
Notes:
|
Notes:
|
||||||
|
|
||||||
|
@ -114,7 +114,7 @@ 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 ltscount, eval = TRUE, echo = TRUE, results = "show", warning = FALSE, error = TRUE, message = FALSE}
|
||||||
|
|
||||||
# Count the routes that intersect or overlap with each segment of the bike_tls network.
|
# Count the routes that intersect or overlap with each segment of the bike_tls network.
|
||||||
# The intersections have a buffer of 20m
|
# The intersections have a buffer of 20m
|
||||||
@ -124,6 +124,7 @@ bike_lts_buffer["student_use"] <- unlist(lapply(st_intersects(bike_lts_buffer, r
|
|||||||
|
|
||||||
bike_lts <- left_join(bike_lts, as.data.frame(bike_lts_buffer %>% select(OBJECTID, student_use)), by = "OBJECTID")
|
bike_lts <- left_join(bike_lts, as.data.frame(bike_lts_buffer %>% select(OBJECTID, student_use)), by = "OBJECTID")
|
||||||
```
|
```
|
||||||
|
Notes: for each segment in bike_lts, this counts how many student's calculated routes intersect with it (within a 20 m buffer)
|
||||||
|
|
||||||
# Make Maps
|
# Make Maps
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user