【R】日本百名山を地図上にプロットしてみた

昨今は山登りブーム。日本百名山がいくつか選定されているようですが、 文筆家（小説家のち随筆家）で登山家だった深田久弥が 記した日本百名山を地図にプロットしてみます。

library(rvest)
library(leaflet)

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

lat <- as.numeric(as.character(x$緯度))
lon <- as.numeric(as.character(x$経度))

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

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

日本の地形の特徴からかもしれませんが、東北や中部が多いですね。