From 96cdcbc5ecdc820c4429c3d44f9ca46a33c37519 Mon Sep 17 00:00:00 2001 From: Ben Varick Date: Tue, 29 Oct 2024 16:21:57 -0500 Subject: [PATCH] adjusted wording, adjusted buffer for line intersections from 10m to 20m --- R/route_analysis.Rmd | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/R/route_analysis.Rmd b/R/route_analysis.Rmd index b920db1..f391e28 100644 --- a/R/route_analysis.Rmd +++ b/R/route_analysis.Rmd @@ -77,7 +77,7 @@ for(i in addresses_near$number) { routes <- bind_rows(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)) @@ -106,7 +106,7 @@ ggmap(basemap) + x = NULL, y = NULL, color = NULL, - linewidth = "How many students would use road") + + linewidth = "Potential student walkers") + theme(axis.text=element_blank(), axis.ticks=element_blank(), plot.caption = element_text(color = "grey")) + @@ -154,7 +154,7 @@ ggmap(basemap) + x = NULL, y = NULL, color = NULL, - linewidth = "How many students would use road") + + linewidth = "Potential student walkers") + theme(axis.text=element_blank(), axis.ticks=element_blank(), plot.caption = element_text(color = "grey")) +