【R】バス停表示

1. はじめに

公共交通オープンデータセンター 開発者サイトで鉄道、バス、航空機の交通データをJSON-LD形式で取得できます。ここでは、例としてバス停の位置座標を取得して地図上に表示してみます。

2. データ取得

こちらのAPIの仕様に副って、データを取得します。

library(leaflet)
library(curl)
library(tidyverse)

req <- curl_fetch_memory("https://api.odpt.org/api/v4/places/odpt:Station?lon=139.766926&lat=35.681265&radius=4000&acl:consumerKey=ACL_CONSUMERKEY")
str(req)
jsonlite::prettify(rawToChar(req$content))
data.json <- jsonlite::fromJSON(jsonlite::prettify(rawToChar(req$content)))

3. データ表示

取得したデータをleafletでMarker表示してみます。

leaflet(data.json) %>% 
  addTiles() %>% 
  addMarkers(lat = ~`geo:lat`, lng = ~`geo:long`)

電車の駅は地図を見れば表示されているので、容易にわかりますが、バス停は地図に表示されていない場合も多く、探すのに苦労しますよね。