GTFS with Tidytransit package

Yakitori.R#03（2023/05/27）のLTで話した内容です

Transcript

1. GTFS with Tidytransit package @nonki1974
3. GTFS  General Transit Feed Specification  / / / /
4. | Zip agency.txt stops.txt routes.txt trips.txt stop_times.txt calendar.txt calendar_dates.txt fare_attributes.txt fare_rules.txt shapes.txt frequencies.txt transferes.txt feed_info.txt
5. stop_times.txt
6. route.txt
7. Tidytransit package
8. GTFS  https://ckan.odpt.org/dataset/b_bus_gtfs_jp-toei
9. GTFS -> sf toeibus <- read_gtfs("./ToeiBus-GTFS.zip") # attributionsのidが空になっているので警告が出る # GTFSオブジェクトとして読み込まれず単なるリストになる # 修正してから as_tidygtfs() 関数で改めてGTFSオブジェクトに変換 toeibus$attributions$attribution_id <- 1:2 toeibus <- as_tidygtfs(toeibus) toeibus <- gtfs_as_sf(toeibus) ggplot(toeibus$shapes) + geom_sf() + theme_minimal() ggplot(toeibus$stops) + geom_sf() + theme_minimal()
12. leaflet leaflet() %>% addTiles() %>% addPolylines(data = toeibus$shapes) %>% addMarkers( data = toeibus$stops, label = toeibus$stops$stop_name )
13. leaflet
15. Enjoy!!