セッティング

# install.packages("ggmap") # まだインストールしていない人用に
# devtools::install_github("dkahle/ggmap") #開発版をインストールしたい場合

library(ggmap)
register_google("XXXXXXXXXXXXXXXXXXXXXXXXXXX") # 個人で取得したgoogle apiの登録が必要

これで設定が完了。

住所より緯度経度を取る方法

ggmapパッケージではgeocode()という関数が提供されており、第一引数のlocationに文字列で、住所をインプットすることにより、緯度経度データを取得できます。

Place	Location
東京駅	東京都千代田区丸の内１丁目
東京スカイツリー	東京都墨田区押上１丁目１−2
豊洲マーケット	東京都江東区豊洲６丁目３

上記のようなデータがあり、右に緯度と経度のコラムを挿入したい場合には下のような処理を行います。

dat %>% 
  mutate(緯度 = geocode(Location)$lat,
         経度 = geocode(Location)$lon)

             Place                   Location     緯度     経度
1           東京駅 東京都千代田区丸の内１丁目 35.68124 139.7671
2 東京スカイツリー 東京都墨田区押上１丁目１−2 35.71006 139.8107
3   豊洲マーケット   東京都江東区豊洲６丁目３ 35.64574 139.7879

可視化

このように文字列で記録された住所を座標データとして取り扱えることで以下のような可視化も可能です。

library(leaflet)
leaflet(data = dat) %>% 
  addProviderTiles("Stamen.TonerLite") %>% 
  setView(lng = mean(dat$経度), lat = mean(dat$緯度), zoom = 12.5) %>% 
  addCircleMarkers(~経度, ~緯度, popup = ~paste(Place, ":", Location),
                   clusterOptions = markerClusterOptions())

このように簡単に操作ができるため自分としては活用しています。某nateで開催中の学生限定コンペ等で活用もできるでしょう。