【R】鉄道網

国土交通省提供の国土数値情報の鉄道データを描画してみます。路線のうち、民営会社の路線のみ表示します。（N02_002=4）

library(tidyverse)
library(mapview)
library(sf)

sf_train <- read_sf("sho_train/N02-19_RailroadSection.shp") # 鉄道路線のシェープファイル
sf_train %>% 
  filter(N02_002 == "4") %>% 
  select(-N02_003, -N02_004) %>%
  mapview()