【R】日本百名橋をプロット

橋梁工学の専門家である大阪市都市工学情報センター理事長の松村博氏によって選定され、著書「日本百名橋」（1998年刊）にて紹介された「日本百名橋」なるものがあるそうです。地図上にプロットしてみます。

library(rvest)
library(leaflet)

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

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