Upgrade to Pro
— share decks privately, control downloads, hide ads and more …
Speaker Deck
Features
Speaker Deck
PRO
Sign in
Sign up for free
Search
Search
GTFS with Tidytransit package
Search
nonki1974
May 28, 2023
Technology
0
310
GTFS with Tidytransit package
Yakitori.R#03(2023/05/27)のLTで話した内容です
nonki1974
May 28, 2023
Tweet
Share
More Decks by nonki1974
See All by nonki1974
TokyoR#84_Rexams
nonki1974
0
200
都道府県別焼き鳥屋ランキングの作成
nonki1974
1
890
Introduction to R
nonki1974
0
340
Introduction to dplyr
nonki1974
0
480
Introduction to ggplot2
nonki1974
1
500
Analyzing PSB tracks with R
nonki1974
0
590
introduction to fukuoka.R @ Fukuoka.LT
nonki1974
0
62
所要時間のヒートマップを作成する
nonki1974
0
540
gtfsr package @ fukuoka.R #11
nonki1974
0
330
Other Decks in Technology
See All in Technology
Exadata Database Service on Dedicated Infrastructure(ExaDB-D) UI スクリーン・キャプチャ集
oracle4engineer
PRO
3
5.5k
AI駆動開発を推進するためにサービス開発チームで 取り組んでいること
noayaoshiro
0
250
Large Vision Language Modelを用いた 文書画像データ化作業自動化の検証、運用 / shibuya_AI
sansan_randd
0
130
OCI Network Firewall 概要
oracle4engineer
PRO
2
7.9k
ユーザーの声とAI検証で進める、プロダクトディスカバリー
sansantech
PRO
1
130
E2Eテスト設計_自動化のリアル___Playwrightでの実践とMCPの試み__AIによるテスト観点作成_.pdf
findy_eventslides
2
600
綺麗なデータマートをつくろう_データ整備を前向きに考える会 / Let's create clean data mart
brainpadpr
3
380
そのWAFのブロック、どう活かす? サービスを守るための実践的多層防御と思考法 / WAF blocks defense decision
kaminashi
0
160
プロダクトのコードから見るGoによるデザインパターンの実践 #go_night_talk
bengo4com
1
2.3k
小学4年生夏休みの自由研究「ぼくと Copilot エージェント」
taichinakamura
0
620
大規模サーバーレスAPIの堅牢性・信頼性設計 〜AWSのベストプラクティスから始まる現実的制約との向き合い方〜
maimyyym
6
4.1k
衛星画像超解像化によって実現する2D, 3D空間情報の即時生成と“AI as a Service”/ Real-time generation spatial data enabled_by satellite image super-resolution
lehupa
0
140
Featured
See All Featured
Principles of Awesome APIs and How to Build Them.
keavy
127
17k
Helping Users Find Their Own Way: Creating Modern Search Experiences
danielanewman
30
2.9k
Reflections from 52 weeks, 52 projects
jeffersonlam
352
21k
BBQ
matthewcrist
89
9.8k
Balancing Empowerment & Direction
lara
4
690
Context Engineering - Making Every Token Count
addyosmani
5
230
4 Signs Your Business is Dying
shpigford
185
22k
Writing Fast Ruby
sferik
629
62k
For a Future-Friendly Web
brad_frost
180
9.9k
Side Projects
sachag
455
43k
Automating Front-end Workflow
addyosmani
1371
200k
Six Lessons from altMBA
skipperchong
28
4k
Transcript
GTFS with Tidytransit package @nonki1974
None
GTFS General Transit Feed Specification / / /
/
| 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
stop_times.txt
route.txt
Tidytransit package
GTFS https://ckan.odpt.org/dataset/b_bus_gtfs_jp-toei
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()
None
None
leaflet leaflet() %>% addTiles() %>% addPolylines(data = toeibus$shapes) %>% addMarkers(
data = toeibus$stops, label = toeibus$stops$stop_name )
leaflet
None
Enjoy!!