Rで解析:Google Maps APIを利用して距離を取得「gmapsdistance」パッケージ

Rの解析に役に立つ記事
スポンサーリンク

Google Maps APIを利用して2点間の距離を取得するパッケージの紹介です。パッケージを利用中に日本語でエラーが出るときは「stringi」パッケージのstri_encodeコマンドがお勧めです。なお、利用にはGoogle Maps PlatformでAPIの利用登録が必要です。1 日の割り当て、1 か月あたり 28,500 回まで無料です。

Google Maps Platform:https://mapsplatform.google.com/intl/ja_ALL/

パッケージのバージョンは3.4。実行コマンドはwindows 11のR version 4.1.2で確認しています。

スポンサーリンク

パッケージのインストール

下記コマンドを実行してください。

#パッケージのインストール
install.packages("gmapsdistance")

コマンドの紹介

詳細はコマンド、パッケージのヘルプを確認してください。

#パッケージの読み込み
library("gmapsdistance")
#検索に日本語を使用するため
#「stringi」パッケージのstri_encodeコマンドを利用
#tidyverseパッケージがなければインストール
if(!require("tidyverse", quietly = TRUE)){
  install.packages("tidyverse");require("tidyverse")
}

#指定した場所間の距離を取得:gmapsdistanceコマンド
#出発地点:orignオプション
#到着地点:destinationオプション
#交通手段を指定:modeオプション;"bicycling","walking","transit","driving"
#利用しない交通手段を指定:avoidオプション;"tolls","highways","ferries","indoor"
GetDistance <- gmapsdistance(origin = c(stri_encode("&#26085;&#26412;+&#20140;&#37117;", "", "utf-8"),
                                        stri_encode("&#26085;&#26412;+&#21517;&#21476;&#23627;", "", "utf-8")),
                             destination = c(stri_encode("&#26085;&#26412;+&#26481;&#20140;", "", "utf-8"),
                                             stri_encode("&#26085;&#26412;+&#22823;&#38442;", "", "utf-8")),
                             mode = "driving",
                             avoid = "highways")
#&#30906;&#35469;
GetDistance
$Time
or Time.&#26085;&#26412;+&#26481;&#20140; Time.&#26085;&#26412;+&#22823;&#38442;
1 &#12288;&#26085;&#26412;+&#20140;&#37117;          41586           6649
2 &#26085;&#26412;+&#21517;&#21476;&#23627;          31014          15317

$Distance
or Distance.&#26085;&#26412;+&#26481;&#20140; Distance.&#26085;&#26412;+&#22823;&#38442;
1 &#12288;&#26085;&#26412;+&#20140;&#37117;             508470              51202
2 &#26085;&#26412;+&#21517;&#21476;&#23627;             376122             188842

$Status
or status.&#26085;&#26412;+&#26481;&#20140; status.&#26085;&#26412;+&#22823;&#38442;
1 &#12288;&#26085;&#26412;+&#20140;&#37117;               OK               OK
2 &#26085;&#26412;+&#21517;&#21476;&#23627;               OK               OK

少しでも、あなたの解析が楽になりますように!!

タイトルとURLをコピーしました