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

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

コマンドの紹介

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

#&#12497;&#12483;&#12465;&#12540;&#12472;&#12398;&#35501;&#12415;&#36796;&#12415;
library("gmapsdistance")
#&#26908;&#32034;&#12395;&#26085;&#26412;&#35486;&#12434;&#20351;&#29992;&#12377;&#12427;&#12383;&#12417;
#&#12300;stringi&#12301;&#12497;&#12483;&#12465;&#12540;&#12472;&#12398;stri_encode&#12467;&#12510;&#12531;&#12489;&#12434;&#21033;&#29992;
#tidyverse&#12497;&#12483;&#12465;&#12540;&#12472;&#12364;&#12394;&#12369;&#12428;&#12400;&#12452;&#12531;&#12473;&#12488;&#12540;&#12523;
if(!require("tidyverse", quietly = TRUE)){
  install.packages("tidyverse");require("tidyverse")
}

#&#25351;&#23450;&#12375;&#12383;&#22580;&#25152;&#38291;&#12398;&#36317;&#38626;&#12434;&#21462;&#24471;:gmapsdistance&#12467;&#12510;&#12531;&#12489;
#&#20986;&#30330;&#22320;&#28857;:orign&#12458;&#12503;&#12471;&#12519;&#12531;
#&#21040;&#30528;&#22320;&#28857;:destination&#12458;&#12503;&#12471;&#12519;&#12531;
#&#20132;&#36890;&#25163;&#27573;&#12434;&#25351;&#23450;:mode&#12458;&#12503;&#12471;&#12519;&#12531;;"bicycling","walking","transit","driving"
#&#21033;&#29992;&#12375;&#12394;&#12356;&#20132;&#36890;&#25163;&#27573;&#12434;&#25351;&#23450;:avoid&#12458;&#12503;&#12471;&#12519;&#12531;;"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

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