Slide 1
Slide 1 text
GTFS with Tidytransit package
@nonki1974
Slide 2
Slide 2 text
No content
Slide 3
Slide 3 text
GTFS
General Transit Feed Specification
/ / / /
Slide 4
Slide 4 text
| 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
Slide 5
Slide 5 text
stop_times.txt
Slide 6
Slide 6 text
route.txt
Slide 7
Slide 7 text
Tidytransit package
Slide 8
Slide 8 text
GTFS
https://ckan.odpt.org/dataset/b_bus_gtfs_jp-toei
Slide 9
Slide 9 text
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()
Slide 10
Slide 10 text
No content
Slide 11
Slide 11 text
No content
Slide 12
Slide 12 text
leaflet
leaflet() %>%
addTiles() %>%
addPolylines(data = toeibus$shapes) %>%
addMarkers(
data = toeibus$stops,
label = toeibus$stops$stop_name
)
Slide 13
Slide 13 text
leaflet
Slide 14
Slide 14 text
No content
Slide 15
Slide 15 text
Enjoy!!