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

Merge branch 'main' into sgy

Browse Source
This commit is contained in:
bvarick 2024-10-31 14:36:50 -05:00 committed by GitHub
commit c5fa6c73fc
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
R/route_analysis.Rmd
View File

@ -34,7 +34,9 @@ school_focus <- data.frame(name = c("East High School"), NCES_CODE = c("55085200
walk_boundary_m <- 1.5 * 1609 walk_boundary_m <- 1.5 * 1609
## load school locations ## load school locations
WI_schools <- st_read(dsn = "./data/Schools/WI_schools.gpkg")
WI_schools <- st_transform(st_read(dsn = "./data/Schools/Wisconsin_Public_Schools_-5986231931870160084.gpkg"), crs = 4326)
WI_schools <- WI_schools %>% mutate(geom = SHAPE)
## load addresses ## load addresses
addresses <- read_csv(file="./data/addresses/Addresses_Students_EastHS_2024_GeocodeResults.csv") %>% addresses <- read_csv(file="./data/addresses/Addresses_Students_EastHS_2024_GeocodeResults.csv") %>%
@ -78,6 +80,8 @@ for(i in addresses_near$number) {
routes <- bind_rows(routes) routes <- bind_rows(routes)
## combine routes ## combine routes
# Count the routes that intersect or overlap with each segment of the bike_tls network.
# The intersections have a buffer of 20m
bike_lts_buffer <- st_buffer(st_intersection(bike_lts, walk_boundary_poly), 20) 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))
@ -90,7 +94,7 @@ logo <- image_read(path = "./other/BFW_Logo_180_x_200_transparent_background.png
school_symbol <- image_read_svg(path = "./other/school_FILL0_wght400_GRAD0_opsz24.svg") school_symbol <- image_read_svg(path = "./other/school_FILL0_wght400_GRAD0_opsz24.svg")
bbox <- st_bbox(st_transform(st_buffer(addresses_near, dist = 500), crs = 4326)) bbox <- st_bbox(st_transform(st_buffer(walk_boundary_poly, dist = 500), crs = 4326))
bbox <- c(left = as.double(bbox[1]), bbox <- c(left = as.double(bbox[1]),
bottom = as.double(bbox[2]), bottom = as.double(bbox[2]),
right = as.double(bbox[3]), right = as.double(bbox[3]),

BIN
other/school_FILL0_wght400_GRAD0_opsz24.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 1.0 KiB