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
530
Analyzing PSB tracks with R
Avatar for nonki1974 nonki1974
0
600
introduction to fukuoka.R @ Fukuoka.LT
Avatar for nonki1974 nonki1974
0
78
所要時間のヒートマップを作成する
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
毎日の作業を Claude Code 経由にしたら、 ノウハウがコードになった
Avatar for Hajime KOSHIRO kossykinto
1
1.4k
Redmine次期バージョン7.0の注目新機能解説 — UI/UX強化と連携強化を中心に
Avatar for MAEDA Go vividtone
1
150
マンション備え付けのネットワークとLTE回線を組み合わせた ネットワークの安定化の考案
Avatar for harutiro harutiro
1
130
Claude Codeウェビナー資料 - AWSの最新機能をClaude Codeで高速に検証する
Avatar for ONOYAMA Shodai oshanqq
0
880
Oracle AI Database@AWS：サービス概要のご紹介
Avatar for oracle4engineer oracle4engineer
PRO
4
2.6k
Every Conversation Counts
Avatar for Yasunobu Kawaguchi kawaguti
PRO
0
230
Oracle Base Database Service 技術詳細
Avatar for oracle4engineer oracle4engineer
PRO
15
100k
LookerとADKで作る社内AIエージェント
Avatar for chanyou0311 chanyou0311
0
240
O'Reilly Infrastructure & Ops Superstream: Platform Engineering for Developers, Architects & the Rest of Us
Avatar for Syntasso syntasso
0
210
サンプリングは「作る」のか「使う」のか？ 分散トレースのコストと運用を両立する実践的戦略 / Why you need the tail sampling and why you don't want it
Avatar for ymotongpoo ymotongpoo
4
180
freeeで運用しているAIQAについて
Avatar for tonchan qatonchan
1
630
AI時代に、 データアナリストがデータエンジニアに異動して
Avatar for jackojacko_ jackojacko_
0
950

Featured

See All Featured
Everyday Curiosity
Avatar for Cassini Nazir cassininazir
0
210
The agentic SEO stack - context over prompts
Avatar for schlessera schlessera
0
780
Bridging the Design Gap: How Collaborative Modelling removes blockers to flow between stakeholders and teams @FastFlow conf
Avatar for Kenny Baas-Schwegler baasie
0
550
BBQ
Avatar for Matthew Crist matthewcrist
89
10k
Ruling the World: When Life Gets Gamed
Avatar for Sebastian Deterding codingconduct
0
230
How to build a perfect <img>
Avatar for Jono Alderson jonoalderson
1
5.5k
コードの90%をAIが書く世界で何が待っているのか / What awaits us in a world where 90% of the code is written by AI
Avatar for r-kagaya rkaga
61
44k
Avoiding the “Bad Training, Faster” Trap in the Age of AI
Avatar for Mike Taylor tmiket
0
140
Facilitating Awesome Meetings
Avatar for Lara Hogan lara
57
6.8k
Cheating the UX When There Is Nothing More to Optimize - PixelPioneers
Avatar for Stéphanie Walter stephaniewalter
287
14k
Agile that works and the tools we love
Avatar for Rasmus Luckow-Nielsen rasmusluckow
331
21k
Future Trends and Review - Lecture 12 - Web Technologies (1019888BNR)
Avatar for Beat Signer signer
PRO
0
3.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!!