ben/madison-metro
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

changed from segments to lat lon buckets

Browse source
This commit is contained in:
Ben Varick 2024-11-21 17:33:44 -06:00
parent 877a8af693
commit 51806c81d4
Signed by: ben
SSH key fingerprint: SHA256:jWnpFDAcacYM5aPFpYRqlsamlDyKNpSj3jj+k4ojtUo
1 changed files with 30 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

34
madison-metro.R
View file

@ -146,11 +146,17 @@ for (route in unique(routes_categorized$name)){
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")) +
geom_sf(data = metro_segments %>% filter(name %in% route), geom_tile(data = metro_summary %>%
filter(name %in% route) %>%
group_by(lon_bucket, lat_bucket) %>%
summarise(spd_calc = weighted.mean(spd_calc, trip_count)),
inherit.aes = FALSE, inherit.aes = FALSE,
aes(color = spd_calc), aes(x = lon_bucket,
linewidth = 1) + y = lat_bucket,
scale_color_distiller(palette = "RdYlGn", direction = "reverse", limits = c(0,70), name = "Average speed or segment\n(calculated with locations, not reported speed)") fill = spd_calc,
height = lat_round,
width = lon_round)) +
scale_fill_distiller(palette = "RdYlGn", direction = "reverse", limits = c(0,70), name = "Average speed or segment\n(calculated with locations, not reported speed)")
ggsave(file = paste0("figures/", ggsave(file = paste0("figures/",
route, route,
"_map.pdf"), "_map.pdf"),
@ -175,3 +181,23 @@ for (route in unique(routes_categorized$name)){
units = "in", units = "in",
create.dir = TRUE) create.dir = TRUE)
} }
# ggmap(basemap) +
# labs(title = paste0("Metro Route Speed - ", route),
# subtitle = paste0("averaged between ",
# sum(route_counts %>% filter(pid %in% route_focus) %>% pull(route_count)),
# " bus trips - ",
# min(date(metro_data$time)),
# " to ",
# max(date(metro_data$time))),
# x = NULL,
# y = NULL) +
# theme(axis.text=element_blank(),
# axis.ticks=element_blank(),
# plot.caption = element_text(color = "grey")) +
# geom_sf(data = metro_segments %>% filter(name %in% route),
# inherit.aes = FALSE,
# aes(color = spd_calc),
# linewidth = 1) +
# scale_color_distiller(palette = "RdYlGn", direction = "reverse", limits = c(0,70), name = "Average speed or segment\n(calculated with locations, not reported speed)")