Upgrade to Pro — share decks privately, control downloads, hide ads and more …

GTFS with Tidytransit package

Avatar for nonki1974 nonki1974
May 28, 2023
Technology
340
0

GTFS with Tidytransit package

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

Avatar for nonki1974

nonki1974

May 28, 2023

More Decks by nonki1974

See All by nonki1974
TokyoR#84_Rexams
Avatar for nonki1974 nonki1974
0
240
都道府県別焼き鳥屋ランキングの作成
Avatar for nonki1974 nonki1974
1
930
Introduction to R
Avatar for nonki1974 nonki1974
0
400
Introduction to dplyr
Avatar for nonki1974 nonki1974
0
570
Introduction to ggplot2
Avatar for nonki1974 nonki1974
1
550
Analyzing PSB tracks with R
Avatar for nonki1974 nonki1974
0
630
introduction to fukuoka.R @ Fukuoka.LT
Avatar for nonki1974 nonki1974
0
81
所要時間のヒートマップを作成する
Avatar for nonki1974 nonki1974
0
610
gtfsr package @ fukuoka.R #11
Avatar for nonki1974 nonki1974
0
360

Other Decks in Technology

See All in Technology
GuardDuty 検知対応を DevOps Agent で効率化しようとしている話 / GuardDuty Investigations with DevOps Agent
Avatar for MasahiroKawahara masahirokawahara
1
320
こんなアーキテクチャ図は嫌だ BEYOND THE TIME: 半年後の自分へ贈る15のメッセージ / 15 of Anti-pattern in AWS Architecture Diagrams
Avatar for Naomi Yamasaki naospon
3
260
JAWS-UG初心者支部#88わいわい初心塾(夏休みの宿題やったかGit編)
Avatar for おーつき otsuki
0
150
書籍『生成AIの安全性入門』の入門
Avatar for Koki Wataoka wataoka
0
220
Autonomous AI Databaseサービス・アップデート（FY27）/ adb-service-update-jp-fy27
Avatar for oracle4engineer oracle4engineer
PRO
0
120
DGX Sparkを2台使って いろいろ動かす話
Avatar for そのだ sonoda_mj
1
130
スクラムで身についていた動き方を、XPで捉え直してみた
Avatar for コドモン開発チーム codmoninc
PRO
1
250
AIとペアプロを始める。人とのペアプロをやめる。ペアプロの良さを改めて知る。もっと好きになった。 / Rediscovering Pair Programming
Avatar for yuki honyanya
1
260
Where Is JetBrains AI Heading- — Central CLI, Air Alpha, and the Agentic Development Stack
Avatar for Daisuke Masuda x5gtrn
PRO
0
140
grill-me（grilling）：AI駆動開発を超助けてくれるSkill / grill me
Avatar for 数理の弾丸 mathbullet
0
110
Driving AI Adoption Using In-House GPUs to Serve Qwen
Avatar for po3rin po3rin
2
460
WAF 運用改善の承認サイクル/SRE_BizReach_MIXI_1
Avatar for Visional Engineering ＆ Design visional_engineering_and_design
1
190

Featured

See All Featured
It's Worth the Effort
Avatar for 3n 3n
188
29k
Conquering PDFs: document understanding beyond plain text
Avatar for Ines Montani inesmontani
PRO
4
3k
Unlocking the hidden potential of vector embeddings in international SEO
Avatar for Frank van Dijk frankvandijk
0
920
Tell your own story through comics
Avatar for letsgokoyo letsgokoyo
1
1.1k
Six Lessons from altMBA
Avatar for Skipper Chong Warson skipperchong
29
4.5k
The browser strikes back
Avatar for Jono Alderson jonoalderson
0
1.6k
Done Done
Avatar for chrislema chrislema
186
16k
How to train your dragon (web standard)
Avatar for Monica Dinculescu notwaldorf
97
6.8k
Amusing Abliteration
Avatar for ianozsvald ianozsvald
1
290
Bridging the Design Gap: How Collaborative Modelling removes blockers to flow between stakeholders and teams @FastFlow conf
Avatar for Kenny Baas-Schwegler baasie
0
690
The Limits of Empathy - UXLibs8
Avatar for Cassini Nazir cassininazir
1
640
Mozcon NYC 2025: Stop Losing SEO Traffic
Avatar for Sam Torres samtorres
1
520

Transcript

  1. GTFS with Tidytransit package @nonki1974

  2. None

  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()
  10. None
  11. None

  12. leaflet leaflet() %>% addTiles() %>% addPolylines(data = toeibus$shapes) %>% addMarkers(

    data = toeibus$stops, label = toeibus$stops$stop_name )

  13. leaflet

  14. None

  15. Enjoy!!