【R】日本100名城を地図上にプロット

公益財団法人日本城郭協会 が定めた日本100名城を地図上にプロットしてみた。

library(rvest)
library(leaflet)

x <- read.csv("http://www.dinov.tokyo/Data/JP_Pref/JapanCastle100.csv", header = FALSE, fileEncoding="UTF-8")

lat <- as.numeric(as.character(x$V3))
lon <- as.numeric(as.character(x$V4))

dt <- data.frame("Name"=x$V2, "lat"=lat, "lon"=lon)

dt %>% leaflet %>% addTiles() %>% addMarkers(lng = ~lon, lat = ~lat)

やはりというか、なんとなく西日本に多いですね。