Rのleafletパッケージで蒙古タンメン中本の店舗をマッピングしました。
中本の全店舗地図は未だ観察できていないので、中本信者の方には嬉しい情報かもしれません。
元となるデータは中本のホームページから収集し、GoogleMapのAPIで住所から緯度・経度を求めました。
Rに読み込ませるデータはこんな感じになりました。
コードはこんな感じです。如何に簡単かがおわかりいただけると思います。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
library(leaflet) library(htmlwidgets) setwd("任意") nakamoto <- read.csv("nakamoto.csv",header=T) m <- leaflet(nakamoto) %>% addTiles() %>% addMarkers(lng=~longitude,lat=~latitude) %>% addPopups(lng=~longitude,lat=~latitude,popup=~store_name) m saveWidget(m, file="m.html") |