leaflet、mapviewパッケージを用いた可視化のコードサンプル
いつも調べながら書いているので、 よく利用するオプションを書いておく
# 必要とするパッケージ library(mapview) library(kokudosuuchi) library(tidyverse) library(sp)
# データの読込(岐阜県の行政区域) getURL <- kokudosuuchi::getKSJURL("N03", prefCode=21) %>% filter(year == 2017) %>% .[,"zipFileUrl"] adm_area <- kokudosuuchi::getKSJData(as.character(getURL)) adm_area <- adm_area[[1]] proj4string(adm_area) <- CRS("+init=epsg:4612")
# mapview,leafletパッケージを用いて可視化 pal <- colorFactor(palette = "YlOrRd", domain = adm_area$市区町村名) leaflet() %>% addProviderTiles("OpenStreetMap.BlackAndWhite") %>% addPolygons(data = adm_area, weight = 1, group = "adm area", fillColor = ~ pal(adm_area$市区町村名), fillOpacity = 0.5, highlightOptions = highlightOptions(color = "green", weight = 7), popup = popupTable(adm_area@data)) %>% addLayersControl(overlayGroups = c("adm area"), position = "bottomright") %>% # mapview::mapshot(url = "test.html") # 静的な図として保存する場合はコメントアウト