【R】シェープファイルをmapviewで描画

またまた、石川県の地図と役所、河川を描画します。今回は、mapviewを使います。これ、お手軽ですよね。

河川のシェープファイルだけ、国土交通省のデータを予めダウンロードしておき、それを読み込みます。他のデータは、jpmdistrictパッケージのデータを使います。石川県のコードは１７です。

library(tidyverse)
library(jpndistrict)
library(mapview)

sf_pref17_river <- read_sf("shp_river/W05-07_17-g_Stream.shp") # 石川県の河川のシェープファイル

sf_pref17 <- jpn_pref(17, district = TRUE)
sf_pref17_admin <- jpn_admins(jis_code = 17)
sf_pref17_river_4326 <- sf_pref17_river %>% st_sf(crs = 4326)

mapview(sf_pref17, legend = FALSE) +
  mapview(sf_pref17_admin, color = "red", size = 3, legend = FALSE) +
  mapview(sf_pref17_river_4326, legend = FALSE)