【R】名水百選

環境省(当時環境庁)が1985(昭和60)年に身近な清澄な水であって、古くから地域住民の生活にとけ込み、住民自身の手によって保全活動がなされてきたものを再発見するとともに、これを広く国民に紹介することを目的として名水百選を選定しました。これをプロットしてみます。

library(rvest)
library(leaflet)
library(knitr)
library(kableExtra)
library(dplyr)
library(tidyr)
library(stringr)

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

table_df<-data.frame(名称=x$V2, 緯度=x$V3, 経度=x$V4, 所在地=x$V5)
table_df<-table_df[-1,]

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

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,
)

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

kable(table_df, align = "c") %>%
  kable_styling(full_width = F) %>%
  collapse_rows(columns = 1, valign = "middle") 

名称 緯度 経度 所在地
2 羊蹄のふきだし湧水 42.8580555 140.8702777 北海道京極町
3 甘露泉水 45.2197222 141.2172222 北海道利尻富士町
4 ナイベツ川湧水 42.8155555 141.5961111 北海道千歳市蘭越
5 富田の清水 40.5955555 140.47 青森県弘前市紙漉町
6 渾神の清水 40.5458333 140.6205555 青森県平川市唐竹
7 金沢清水 39.9077777 140.9858333 岩手県八幡平市松尾寄木
8 龍泉洞地底湖の水 39.86 141.7972222 岩手県岩泉町
9 桂葉清水 38.6591666 141.0080555 宮城県栗原市高清水桂葉
10 広瀬川 38.2580555 140.8597222 宮城県仙台市
11 六郷湧水群 39.4236111 140.5425 秋田県美郷町
12 力水 39.1636111 140.4961111 秋田県湯沢市古館山
13 月山山麓湧水群 38.4966666 139.9975 山形県西川町
14 小見川 38.4094444 140.3527777 山形県東根市羽入
15 磐梯西山麓湧水群 37.5761111 139.9847222 福島県磐梯町
16 小野川湧水 37.6902777 140.1225 福島県北塩原村
17 八溝川湧水群 36.9269444 140.2716666 茨城県大子町
18 出流原弁天池湧水 36.3666666 139.5388888 栃木県佐野市出流原町
19 尚仁沢湧水 36.8561111 139.8258333 栃木県塩谷町上寺島
20 雄川堰 36.2341666 138.9188888 群馬県甘楽町
21 箱島湧水 36.5377777 138.9283333 群馬県東吾妻町箱島
22 風布川・日本水 36.1011111 139.1438888 埼玉県寄居町
23 熊野の清水 35.3455555 140.2433333 千葉県長南町佐坪滝ノ上
24 お鷹の道・真姿の池湧水群 35.695 139.4730555 東京都国分寺市西元町
25 御岳渓谷 35.8005555 139.1805555 東京都青梅市
26 秦野盆地湧水群 35.3691666 139.2277777 神奈川県秦野市
27 洒水の滝・滝沢川 35.3522222 139.0613888 神奈川県山北町
28 竜ヶ窪の水 36.9766666 138.6308333 新潟県津南町
29 杜々森湧水 37.3875 138.9736111 新潟県長岡市西中野俣
30 黒部川扇状地湧水群 36.8938888 137.4175 富山県黒部市、入善町
31 穴の谷の霊水 36.7219444 137.4072222 富山県上市町
32 立山玉殿の湧水 36.5788888 137.595 富山県立山町
33 瓜裂の清水 36.5661111 136.9816666 富山県砺波市
34 弘法池の水 36.3630555 136.6111111 石川県白山市釜清水町
35 古和秀水 37.2711111 136.7727777 石川県輪島市門前町鬼屋
36 御手洗池 37.0516666 136.875 石川県七尾市
37 瓜割ノ滝 35.4594444 135.8422222 福井県若狭町
38 御清水 35.9827777 136.4861111 福井県大野市泉町
39 鵜の瀬 35.445 135.79 福井県小浜市神宮寺
40 忍野八海 35.4605555 138.8319444 山梨県忍野村
41 八ヶ岳南麓高原湧水群 35.8777777 138.3658333 山梨県北杜市
42 白州/尾白川 35.795 138.2944444 山梨県北杜市
43 猿庫の泉 35.5327777 137.7908333 長野県飯田市羽場
44 安曇野わさび田湧水群 36.3358333 137.9111111 長野県安曇野市
45 姫川源流湧水 36.6327777 137.8475 長野県白馬村
46 宗祇水(白雲水) 35.7491666 136.9538888 岐阜県郡上市
47 長良川(中流域) 35.4391666 136.7772222 岐阜県美濃市、関市、岐阜市
48 養老の滝・菊水泉 35.2822222 136.5388888 岐阜県養老町
49 柿田川湧水群 35.1069444 138.8994444 静岡県清水町
50 木曽川(中流域) 35.4063888 136.9627777 愛知県犬山市~可児川合流点
51 智積養水 34.9958333 136.5411111 三重県四日市市
52 恵利原の水穴(天の岩戸) 34.4069444 136.7627777 三重県志摩市磯部町
53 十王村の水 35.2438888 136.2388888 滋賀県彦根市西今町
54 泉神社湧水 35.3755555 136.4016666 滋賀県米原市大清水
55 伏見の御香水 34.9344444 135.7672222 京都府京都市伏見区
56 磯清水 35.5630555 135.1877777 京都府宮津市文殊(天橋立)
57 離宮の水 34.8847222 135.6730555 大阪府島本町
58 宮水 34.7316666 135.3413888 兵庫県西宮市
59 布引渓流 34.7088888 135.1936111 兵庫県神戸市中央区
60 千種川 35.1311111 134.4352777 兵庫県西南部(宍粟市、佐用町、上郡町、赤穂市坂越)
61 洞川湧水群 34.2697222 135.8855555 奈良県天川村
62 野中の清水 33.8283333 135.6344444 和歌山県田辺市
63 紀三井寺の三井水 34.185 135.19 和歌山県和歌山市
64 天の真名井 35.4386111 133.4416666 鳥取県米子市
65 天川の水 36.0841666 133.1130555 島根県海士町
66 壇鏡の滝湧水 36.2405555 133.2361111 島根県隠岐の島町
67 塩釜の冷泉 35.3 133.6791666 岡山県真庭市
68 雄町の冷泉 34.6858333 133.9711111 岡山県岡山市
69 岩井 35.3322222 133.9861111 岡山県鏡野町
70 太田川(中流域) 34.4255555 132.46 広島県広島市
71 出合清水 34.3988888 132.51 広島県府中町
72 別府弁天池湧水 34.2555555 131.2447222 山口県美祢市秋芳町
73 桜井戸 34.0741666 132.205 山口県岩国市
74 寂地川 34.4291666 132.0558333 山口県岩国市
75 江川の湧水 34.075 134.3394444 徳島県吉野川市
76 剣山御神水 33.8533333 134.0938888 徳島県三好市
77 湯船の水 34.5058333 134.2419444 香川県小豆島町
78 うちぬき 33.9191666 133.1808333 愛媛県西条市
79 杖の淵 33.7922222 132.8113888 愛媛県松山市
80 観音水 33.3438888 132.5802777 愛媛県西予市
81 四万十川 33.1336111 132.8063888 高知県西部
82 安徳水 33.535 133.2027777 高知県越知町
83 清水湧水 33.3288888 130.8119444 福岡県うきは市
84 不老水 33.6558333 130.4555555 福岡県福岡市
85 竜門の清水 33.2172222 129.8863888 佐賀県有田町
86 清水川 33.3252777 130.2147222 佐賀県小城市
87 島原湧水群 32.78 130.3666666 長崎県島原市
88 轟渓流 32.9469444 130.11 長崎県諫早市
89 轟水源 32.6780555 130.6391666 熊本県宇土市
90 白川水源 32.8266666 131.0963888 熊本県南阿蘇村
91 菊池水源 33.0055555 130.9391666 熊本県菊池市
92 池山水源 33.0461111 131.1844444 熊本県産山村
93 男池湧水群 33.1238888 131.2941666 大分県由布市
94 竹田湧水群 32.94 131.3944444 大分県竹田市
95 白山川 32.9 131.5425 大分県豊後大野市(稲積水中鍾乳洞)
96 出の山湧水 31.98 130.9447222 宮崎県小林市
97 綾川湧水群 32.0288888 131.1919444 宮崎県綾町
98 屋久島宮之浦岳流水 30.3797222 130.5741666 鹿児島県屋久島町
99 霧島山麓丸池湧水 31.9491666 130.7222222 鹿児島県湧水町
100 清水の湧水 31.4130555 130.4163888 鹿児島県南九州市
101 垣花樋川 26.1480555 127.7955555 沖縄県南城市

山がちな地形の箇所に多いですね。

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

Add a Comment

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