【R】日本の夜景100選

日本最大の夜景愛好者のコミニュケーションの場である夜景倶楽部（1997年9月発足）の有志によって構成されて いる 新日本三大夜景・夜景100選事務局が夜景スポットを管理する全ての役所・企業に確認を行い、2004（平成16）年に「夜景100選」として公表しています。この位置を座標から日本地図へプロットしてみます。

library(rvest)
library(leaflet)

x <- read.csv("http://www.dinov.tokyo/Data/JP_Pref/JapanNightView100.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)

全国的にまんべんなく設置されているようですが、やはり人が集まる場所、アクセスしやすい場所が多いですかね？

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