Skip to content

Instantly share code, notes, and snippets.

@yutannihilation
Created July 29, 2018 09:45
Show Gist options
  • Select an option

  • Save yutannihilation/79b8e9df80325fb35109c5297fc9bec3 to your computer and use it in GitHub Desktop.

Select an option

Save yutannihilation/79b8e9df80325fb35109c5297fc9bec3 to your computer and use it in GitHub Desktop.
library(leaflet)
# 先にbasemapをつくっておく
basemap <- leaflet() %>%
addTiles("http://cyberjapandata.gsi.go.jp/xyz/std/{z}/{x}/{y}.png",
attribution = "<a href='http://maps.gsi.go.jp/development/ichiran.html' target='_blank'>地理院タイル</a>")
library(mapview)
# つくったbasemapをmap引数に指定する
mapview(franconia, map = basemap)
@yutannihilation
Copy link
Author

image

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment