leafletでサードパーティの地図を追加

2558 ワード
R leaflet R テキストリンク 
library(leaflet)
library(leaflet.providers)

lng <- 12.08671
lat <- 54.19191
l <- leaflet() %>% setView(lng=lng, lat=lat, zoom=12)
l %>% addTiles() # 追加前
l %>% addTiles() %>% addProviderTiles(provider=providers$OpenSeaMap) # 追加後

追加前

追加後