【R】日本の都市公園100選を地図にプロット

（社）日本公園緑地協会が1989（平成元）年に公園緑地に対する愛護精神を高め、その整備を推進するために「 日本の都市公園100選 」を選定したそうです。早速、この公園をプロットしてみます。

library(rvest)
library(leaflet)

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

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)

都市公園というだけあって、都市に多く分布していました。

元のデータは、「万物はすべて座標値（経緯度数値）を持っている」というサイトから利用させていただきました。ありがとうございました。たくさんの有用なデータが載っています。