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