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

GTFS with Tidytransit package

Sponsored · SiteGround - Reliable hosting with speed, security, and support you can count on. →
Avatar for nonki1974 nonki1974
May 28, 2023
Technology
0
330

GTFS with Tidytransit package

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

Avatar for nonki1974

nonki1974

May 28, 2023
Tweet

More Decks by nonki1974

See All by nonki1974
TokyoR#84_Rexams
Avatar for nonki1974 nonki1974
0
220
都道府県別焼き鳥屋ランキングの作成
Avatar for nonki1974 nonki1974
1
910
Introduction to R
Avatar for nonki1974 nonki1974
0
370
Introduction to dplyr
Avatar for nonki1974 nonki1974
0
540
Introduction to ggplot2
Avatar for nonki1974 nonki1974
1
530
Analyzing PSB tracks with R
Avatar for nonki1974 nonki1974
0
600
introduction to fukuoka.R @ Fukuoka.LT
Avatar for nonki1974 nonki1974
0
75
所要時間のヒートマップを作成する
Avatar for nonki1974 nonki1974
0
580
gtfsr package @ fukuoka.R #11
Avatar for nonki1974 nonki1974
0
350

Other Decks in Technology

See All in Technology
複数クラスタ運用と検索の高度化：ビズリーチにおけるElastic活用事例 / ElasticON Tokyo2026
Avatar for Visional Engineering ＆ Design visional_engineering_and_design
0
170
「通るまでRe-run」から卒業！落ちないテストを書く勘所
Avatar for asumikam asumikam
1
160
NewSQL_ ストレージ分離と分散合意を用いたスケーラブルアーキテクチャ
Avatar for hacomono Inc. hacomono
PRO
4
400
CyberAgentの生成AI戦略 〜変わるものと変わらないもの〜
Avatar for katayan katayan
0
270
Cortex Code CLI と一緒に進めるAgentic Data Engineering
Avatar for あれ __allllllllez__
0
440
WebアクセシビリティをCI/CDで担保する ― axe DevTools × Playwright C#実践ガイド
Avatar for tomokusaba tomokusaba
2
180
システム標準化PMOから ガバメントクラウドCoEへ
Avatar for 高橋広和 techniczna
1
140
【Λ（らむだ）】最近のアプデ情報 / RPALT20260318
Avatar for Λ lambda
0
100
AWS CDK「読めるけど書けない」を脱却するファーストステップ
Avatar for Makky12 smt7174
3
190
OpenClaw を Amazon Lightsail で動かす理由
Avatar for Uechi Shingo uechishingo
0
200
今のWordPress の制作手法ってなにがあんねん？(改) / What’s the Deal with WordPress Development These Days?
Avatar for tbshiki tbshiki
0
510
Claude Code のコード品質がばらつくので AI に品質保証させる仕組みを作った話 / A story about building a mechanism to have AI ensure quality, because the code quality from Claude Code was inconsistent
Avatar for nrs nrslib
13
8.6k

Featured

See All Featured
The Impact of AI in SEO - AI Overviews June 2024 Edition
Avatar for Aleyda Solis aleyda
5
770
How STYLIGHT went responsive
Avatar for nonsquared nonsquared
100
6k
How To Stay Up To Date on Web Technology
Avatar for Chris Coyier chriscoyier
790
250k
Making the Leap to Tech Lead
Avatar for Ryan Cromwell cromwellryan
135
9.8k
Building the Perfect Custom Keyboard
Avatar for Naoto Takai takai
2
710
Reality Check: Gamification 10 Years Later
Avatar for Sebastian Deterding codingconduct
0
2.1k
Bridging the Design Gap: How Collaborative Modelling removes blockers to flow between stakeholders and teams @FastFlow conf
Avatar for Kenny Baas-Schwegler baasie
0
480
Google's AI Overviews - The New Search
Avatar for Barry Adams badams
0
930
Balancing Empowerment & Direction
Avatar for Lara Hogan lara
5
950
The Invisible Side of Design
Avatar for Vitaly Friedman smashingmag
302
51k
Evolving SEO for Evolving Search Engines
Avatar for Ryan Jones ryanjones
0
160
Accessibility Awareness
Avatar for Sarah Abderemane sabderemane
0
82

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