From b19add99acea6840802ca147964233e81894fa84 Mon Sep 17 00:00:00 2001 From: Ben Varick Date: Tue, 5 Nov 2024 09:35:37 -0600 Subject: [PATCH] fixed erroneous join --- cycling_route_analysis.Rmd | 2 +- route_analysis.Rmd | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/cycling_route_analysis.Rmd b/cycling_route_analysis.Rmd index 3e9afaa..10356b3 100644 --- a/cycling_route_analysis.Rmd +++ b/cycling_route_analysis.Rmd @@ -148,7 +148,7 @@ bike_lts_buffer <- st_buffer(st_intersection(bike_lts, cycle_boundary_poly), 20) bike_lts_buffer["student_use"] <- unlist(lapply(st_intersects(bike_lts_buffer, routes), length)) -bike_lts <- st_join(bike_lts, bike_lts_buffer %>% select(OBJECTID, student_use)) +bike_lts <- left_join(bike_lts, as.data.frame(bike_lts_buffer %>% select(OBJECTID, student_use)), by = "OBJECTID") ``` Notes: diff --git a/route_analysis.Rmd b/route_analysis.Rmd index 07ba8c3..fe2902b 100644 --- a/route_analysis.Rmd +++ b/route_analysis.Rmd @@ -122,7 +122,7 @@ 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 <- st_join(bike_lts, bike_lts_buffer %>% select(OBJECTID, student_use)) +bike_lts <- left_join(bike_lts, as.data.frame(bike_lts_buffer %>% select(OBJECTID, student_use)), by = "OBJECTID") ``` # Make Maps