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
220
都道府県別焼き鳥屋ランキングの作成
Avatar for nonki1974 nonki1974
1
920
Introduction to R
Avatar for nonki1974 nonki1974
0
380
Introduction to dplyr
Avatar for nonki1974 nonki1974
0
550
Introduction to ggplot2
Avatar for nonki1974 nonki1974
1
540
Analyzing PSB tracks with R
Avatar for nonki1974 nonki1974
0
610
introduction to fukuoka.R @ Fukuoka.LT
Avatar for nonki1974 nonki1974
0
79
所要時間のヒートマップを作成する
Avatar for nonki1974 nonki1974
0
590
gtfsr package @ fukuoka.R #11
Avatar for nonki1974 nonki1974
0
360

Other Decks in Technology

See All in Technology
AI駆動開発が変える、大規模開発の前提 ーHuman in the Loop から Human on the Loop へ / AIE2026
Avatar for Visional Engineering ＆ Design visional_engineering_and_design
2
2.2k
Oracle AI Database@Azure：サービス概要のご紹介
Avatar for oracle4engineer oracle4engineer
PRO
6
1.9k
GoとSIMDとWasmの今。
Avatar for asuka askua
3
490
実装は速くなった、レビューはどうする？ ― 自身のレビューをAIで再現させるサーヴァントエンジニアリングのすゝめ / Implementation got faster. So what about reviews? — An invitation to Servant Engineering: Recreating your own code reviews with AI
Avatar for nrs nrslib
6
3.1k
Chart.js が簡単に使えるようになっていたので OGP 画像生成に使った話
Avatar for すずとも kamekyame
0
140
JJUG CCC 2026 Spring　AI時代の開発こそ標準化を武器に！ ― 方式・プロセス・プラットフォームの標準化
Avatar for WatanabeShun s27watanabe
2
690
プラットフォームエンジニア ワークショップ/ platform-workshop
Avatar for Databricks Japan databricksjapan
0
230
イベントストーミングとKiroの仕様駆動開発で実現する要件の認識合わせプロセス
Avatar for syobochim syobochim
7
1.1k
コードレビューを制するチームがソフトウェアデリバリーのフローを制す / Beyond Code Review: Distributing Its Responsibilities Across the SDLC
Avatar for mtx2s mtx2s
3
920
速さだけじゃない！ VoidZero ツールが移行先に選ばれる理由
Avatar for mizdra mizdra
PRO
6
730
脅威をエンジニアリングの糧にして：恐怖を乗り越えた先にあったもの / Turn threats into fuel for engineering: what lay beyond overcoming fear
Avatar for nrs nrslib
1
380
AI Adaptable なテストを整える工夫 / Ways to Make Your Tests AI-Adaptable
Avatar for 株式会社ビットキー / Bitkey Inc. bitkey
PRO
2
210

Featured

See All Featured
How to Think Like a Performance Engineer
Avatar for Harry Roberts csswizardry
28
2.6k
Amusing Abliteration
Avatar for ianozsvald ianozsvald
1
190
The Invisible Side of Design
Avatar for Vitaly Friedman smashingmag
302
52k
Navigating the Design Leadership Dip - Product Design Week Design Leaders+ Conference 2024
Avatar for Andy Polaine apolaine
1
340
Marketing Yourself as an Engineer | Alaka | Gurzu
Avatar for Gurzu gurzu
0
210
The browser strikes back
Avatar for Jono Alderson jonoalderson
0
1.1k
New Earth Scene 8
Avatar for Sydney Stone popppiees
3
2.3k
Making Projects Easy
Avatar for Brett Harned brettharned
120
6.7k
Automating Front-end Workflow
Avatar for Addy Osmani addyosmani
1370
210k
Between Models and Reality
Avatar for mayunak mayunak
4
320
"I'm Feeling Lucky" - Building Great Search Experiences for Today's Users (#IAC19)
Avatar for Dan Newman danielanewman
231
23k
Into the Great Unknown - MozCon
Avatar for Noah Learner thekraken
41
2.5k

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!!