【R】ダム湖百選をプロット

2005(平成17)年に所在する地方自治体首長の推薦を受けて、 (財)ダム水源地環境整備センターが 選定した65のダム湖をプロットします。

library(rvest)
library(leaflet)

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

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

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

greenLeafIcon <- makeIcon(
  iconUrl = "http://leafletjs.com/examples/custom-icons/leaf-green.png",
  iconWidth = 10, iconHeight = 20,
#  iconAnchorX = 22, iconAnchorY = 94,
)

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

東北や中日本の山々にダム湖が多いのは分かる気がしますが、中国・四国地方にもありますねえ。

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

Add a Comment

メールアドレスが公開されることはありません。