Rのleafletパッケージを使って蒙古タンメン中本をプロットしてみた

Rのleafletパッケージで蒙古タンメン中本の店舗をマッピングしました。
中本の全店舗地図は未だ観察できていないので、中本信者の方には嬉しい情報かもしれません。
元となるデータは中本のホームページから収集し、GoogleMapのAPIで住所から緯度・経度を求めました。

Rに読み込ませるデータはこんな感じになりました。

コードはこんな感じです。如何に簡単かがおわかりいただけると思います。

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

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)

saveWidget(m, file="m.html")

参考情報

embed R leaflet map in wordpress