INPUTしたらOUTPUT!

忘れっぽいんでメモっとく

{mapdeck}を試してみる(1/5) 背景地図編

R

geocompr.robinlovelace.net

を読んでたらUberのdeck.glをベースにした{mapdeck}なるパッケージがあることを知った。

流石にGeo勢には既に知られているようだけど観測する範囲では紹介記事が見つからなかったのでvignetteの内容を試してみる。


背景地図の描画

背景地図の描画はmapdeck()で行う。引数は以下の通り。

引数 説明
token Mapbox APIのアクセストークン
data 地図に重ねるデータ
width 地図の幅
height 地図の高さ
padding 地図の余白
style 背景地図のスタイル
pitch 地図の傾き
zoom 地図のズームレベル
location 地図の中心座標


mapboxのAPIを使用するため事前にアクセストークンを用意しておく必要がある。

> library(googlePolylines)
> library(mapdeck)
> key <- "https://www.mapbox.com/account/で発行したアクセストークン"
> mapdeck(token = key)


set_token()でグローバル環境にアクセストークンを設定するとその後のセッション中でmapdeck()でトークンの指定が不要になる。便利！

> set_token(key)
> mapdeck()


背景地図のスタイルはMapbox API Documentationにあるスタイルを指定しても良いしmapdeck_style()で指定しても良い。streetとoutdoorsは拡大すると微妙に違う。

  • streets
> mapdeck(style = "mapbox://styles/mapbox/streets-v10", zoom = 10, location = c(139.745433, 35.658581))
> mapdeck(style = mapdeck_style("streets"), zoom = 10, location = c(139.745433, 35.658581))

f:id:tak95:20180922160955p:plain

  • outdoors
> mapdeck(style = "mapbox://styles/mapbox/outdoors-v10", zoom = 10, location = c(139.745433, 35.658581))
> mapdeck(style = mapdeck_style("outdoors"), zoom = 10, location = c(139.745433, 35.658581))

f:id:tak95:20180922161056p:plain

  • light
> mapdeck(style = "mapbox://styles/mapbox/light-v9", zoom = 10, location = c(139.745433, 35.658581))
> mapdeck(style = mapdeck_style("light"), zoom = 10, location = c(139.745433, 35.658581))

f:id:tak95:20180922161131p:plain

  • dark
> mapdeck(style = "mapbox://styles/mapbox/dark-v9", zoom = 10, location = c(139.745433, 35.658581))
> mapdeck(style = mapdeck_style("dark"), zoom = 10, location = c(139.745433, 35.658581))

f:id:tak95:20180922161152p:plain

  • satellite
> mapdeck(style = "mapbox://styles/mapbox/satellite-v9", zoom = 10, location = c(139.745433, 35.658581))
> mapdeck(style = mapdeck_style("satellite"), zoom = 10, location = c(139.745433, 35.658581))

f:id:tak95:20180922161220p:plain

  • satellite-streets
> mapdeck(style = "mapbox://styles/mapbox/satellite-streets-v10", zoom = 10, location = c(139.745433, 35.658581))
> mapdeck(style = mapdeck_style("satellite-streets"), zoom = 10, location = c(139.745433, 35.658581))

f:id:tak95:20180922161245p:plain

> mapdeck(style = "mapbox://styles/mapbox/navigation-preview-day-v4", zoom = 10, location = c(139.745433, 35.658581))

f:id:tak95:20180922161332p:plain

> mapdeck(style = "mapbox://styles/mapbox/navigation-preview-night-v4", zoom = 10, location = c(139.745433, 35.658581))

f:id:tak95:20180922161344p:plain

  • navigation-guidance-day
> mapdeck(style = "mapbox://styles/mapbox/navigation-guidance-day-v4", zoom = 10, location = c(139.745433, 35.658581))

f:id:tak95:20180922161354p:plain

  • navigation-guidance-night
> mapdeck(style = "mapbox://styles/mapbox/navigation-guidance-night-v4", zoom = 10, location = c(139.745433, 35.658581))

f:id:tak95:20180922161409p:plain


背景地図の描画ができたので次からはレイヤを試していく。