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

adjusted wording, adjusted buffer for line intersections from 10m to 20m

Browse Source
This commit is contained in:
Ben Varick 2024-10-29 16:21:57 -05:00
parent f8cf08ef8b
commit 96cdcbc5ec
No known key found for this signature in database
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
R/route_analysis.Rmd
View File

@ -77,7 +77,7 @@ for(i in addresses_near$number) {
routes <- bind_rows(routes) routes <- bind_rows(routes)
## combine routes ## combine routes
bike_lts_buffer <- st_buffer(st_intersection(bike_lts, walk_boundary_poly), 10) bike_lts_buffer <- st_buffer(st_intersection(bike_lts, walk_boundary_poly), 20)
bike_lts_buffer["student_use"] <- unlist(lapply(st_intersects(bike_lts_buffer, routes), length)) bike_lts_buffer["student_use"] <- unlist(lapply(st_intersects(bike_lts_buffer, routes), length))
@ -106,7 +106,7 @@ ggmap(basemap) +
x = NULL, x = NULL,
y = NULL, y = NULL,
color = NULL, color = NULL,
linewidth = "How many students would use road") + linewidth = "Potential student walkers") +
theme(axis.text=element_blank(), theme(axis.text=element_blank(),
axis.ticks=element_blank(), axis.ticks=element_blank(),
plot.caption = element_text(color = "grey")) + plot.caption = element_text(color = "grey")) +
@ -154,7 +154,7 @@ ggmap(basemap) +
x = NULL, x = NULL,
y = NULL, y = NULL,
color = NULL, color = NULL,
linewidth = "How many students would use road") + linewidth = "Potential student walkers") +
theme(axis.text=element_blank(), theme(axis.text=element_blank(),
axis.ticks=element_blank(), axis.ticks=element_blank(),
plot.caption = element_text(color = "grey")) + plot.caption = element_text(color = "grey")) +