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

GTFS with Tidytransit package

Sponsored · Your Podcast. Everywhere. Effortlessly. Share. Educate. Inspire. Entertain. You do you. We'll handle the rest. →
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
230
都道府県別焼き鳥屋ランキングの作成
Avatar for nonki1974 nonki1974
1
930
Introduction to R
Avatar for nonki1974 nonki1974
0
390
Introduction to dplyr
Avatar for nonki1974 nonki1974
0
560
Introduction to ggplot2
Avatar for nonki1974 nonki1974
1
540
Analyzing PSB tracks with R
Avatar for nonki1974 nonki1974
0
620
introduction to fukuoka.R @ Fukuoka.LT
Avatar for nonki1974 nonki1974
0
81
所要時間のヒートマップを作成する
Avatar for nonki1974 nonki1974
0
600
gtfsr package @ fukuoka.R #11
Avatar for nonki1974 nonki1974
0
360

Other Decks in Technology

See All in Technology
Multicaで30個のミニプロジェクトをAIエージェント運用して見えてきたこと
Avatar for eiei114 eiei114
1
630
生成 AI 時代にいま一度「問い合わせ」について考えてみる
Avatar for kazzpapa3 kazzpapa3
1
130
インシデント事例と
パッケージの全量解析に学ぶ
ソフトウェアサプライチェーンの守り方 / supply-chain-attack-defense
Avatar for GMO Flatt Security flatt_security
0
900
VPCセキュリティ対応の最新事情
Avatar for nagisa_53 nagisa53
1
290
reFACToring
Avatar for moznion moznion
0
200
AmplifyHostingConstructからSSRフレームワークのためのホスティング設計を考察する/amplify-hosting-construct
Avatar for MURAKAMI Masahiko fossamagna
1
310
AIとハーネスで育てるトランスコンパイラ / 20260722 Yasushi Katayama
Avatar for SHIFT EVOLVE shift_evolve
PRO
3
780
AICoEでAIネイティブ組織への進化
Avatar for YukiOgawa yukiogawa
0
220
AIコード生成×サプライチェーン攻撃 — PHPが直面する“二重の信頼問題
Avatar for Shinya Saita shinyasaita
0
460
AIエージェントがあれば技術書なんてすぐ書けるでしょ→無理でした
Avatar for watany watany
2
280
Oracle Base Database Service 技術詳細
Avatar for oracle4engineer oracle4engineer
PRO
15
110k
41歳でAWSが好きすぎてITエンジニアになったおっさんの話
Avatar for Yuuki Yamashita yama3133
1
740

Featured

See All Featured
The Curse of the Amulet
Avatar for Matthew Lei leimatthew05
2
13k
The Straight Up "How To Draw Better" Workshop
Avatar for Dennis Kardys denniskardys
239
140k
The Art of Programming - Codeland 2020
Avatar for Erika Heidi erikaheidi
57
14k
Building Applications with DynamoDB
Avatar for Matt Wood mza
96
7.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
620
How Software Deployment tools have changed in the past 20 years
Avatar for Geshan Manandhar geshan
0
34k
[RailsConf 2023] Rails as a piece of cake
Avatar for Vladimir Dementyev palkan
59
6.8k
Ethics towards AI in product and experience design
Avatar for Skipper Chong Warson skipperchong
2
330
Performance Is Good for Brains [We Love Speed 2024]
Avatar for Tammy Everts tammyeverts
12
1.7k
[Rails World 2023 - Day 1 Closing Keynote] - The Magic of Rails
Avatar for Eileen M. Uchitelle eileencodes
38
2.9k
Connecting the Dots Between Site Speed, User Experience & Your Business [WebExpo 2025]
Avatar for Tammy Everts tammyeverts
11
970
Why You Should Never Use an ORM
Avatar for John Nunemaker jnunemaker
PRO
61
9.9k

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