新簡単:RとGoogle Analyticsの連携

RGoogleAnalyticsパッケージを紹介しましたが、CRANで「RGoogleAnalytics」パッケージが公開されています。今後、こちらが主となるようなので使い方を紹介します。

事前準備

https://console.developers.google.com/projectにアクセスして、プロジェクトを新規作成し「APIと認証」から「APIを見る」にAnalytics APIと入力しステータスをONにしてください。その後、「認証情報」から新しいクライアントIDをアプリケーションの種類を「インストールされているアプリケーション」で作成し、クライアントIDならびにクライアントシークレットを取得してください。なお、インストールされているアプリケーションの種類は「その他」で構いません。

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

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

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

#新規でインストール時にエラーが起きたため、念のため実行
install.packages("httpuv")

コマンド

dimensionsとmetricsは下記のURLを参照してください。
https://developers.google.com/analytics/devguides/reporting/core/dimsmets

#&#12497;&#12483;&#12465;&#12540;&#12472;&#12398;&#35501;&#12415;&#36796;&#12415;
library("RGoogleAnalytics")

#&#12463;&#12521;&#12452;&#12450;&#12531;&#12488;ID&#12398;&#35373;&#23450;
client.id <- "XXXXXX"

#&#12463;&#12521;&#12452;&#12450;&#12531;&#12488;&#12471;&#12540;&#12463;&#12524;&#12483;&#12488;&#12398;&#35373;&#23450;
client.secret <- "XXXXXX"

#&#12463;&#12521;&#12452;&#12450;&#12531;&#12488;ID&#12362;&#12424;&#12403;&#12471;&#12540;&#12463;&#12524;&#12483;&#12488;&#12398;&#12488;&#12540;&#12463;&#12531;&#12434;&#21462;&#24471;
oauth_token <- Auth(client.id, client.secret)
###&#19978;&#35352;&#12467;&#12510;&#12531;&#12489;&#12434;&#23455;&#34892;&#12377;&#12427;&#12392;URL&#12364;&#34920;&#31034;&#12373;&#12428;&#12414;&#12377;&#12398;&#12391;&#12289;&#12450;&#12463;&#12475;&#12473;&#12375;&#12390;&#12467;&#12540;&#12489;&#12434;&#21462;&#24471;&#12375;&#12506;&#12540;&#12473;&#12392;&#12375;&#12390;&#12367;&#12384;&#12373;&#12356;#####

#&#12488;&#12540;&#12463;&#12531;&#12398;&#20445;&#23384;&#12289;oauth_token&#12501;&#12449;&#12452;&#12523;&#12364;&#20445;&#23384;&#12373;&#12428;&#12390;&#12356;&#12427;&#12391;&#12487;&#12451;&#12524;&#12463;&#12488;&#12522;&#12434;&#25351;&#23450;&#12375;
#load("oauth_token")&#12392;&#12377;&#12427;&#12371;&#12392;&#12391;Auth&#12467;&#12510;&#12531;&#12489;&#12391;&#12488;&#12540;&#12463;&#12531;&#12398;&#20877;&#21462;&#24471;&#12398;&#24517;&#35201;&#12354;&#12426;&#12414;&#12379;&#12435;&#12290;
save(oauth_token, file="oauth_token")

#&#12503;&#12525;&#12501;&#12449;&#12452;&#12523;&#12398;&#21462;&#24471;
GetProfiles(oauth_token)

#&#12487;&#12540;&#12479;&#12434;&#21462;&#24471;&#12377;&#12427;&#12503;&#12525;&#12501;&#12449;&#12452;&#12523;id&#12434;&#35373;&#23450;
TableID <- "ga:XXXXXXXXXX"

###&#12450;&#12463;&#12475;&#12473;&#12487;&#12540;&#12479;&#21462;&#24471;&#12398;&#28310;&#20633;###
#&#21462;&#24471;&#12497;&#12521;&#12513;&#12540;&#12479;&#12398;&#35373;&#23450;
query.list <- Init(start.date = "2014-11-28",
                      end.date = "2014-12-04",
                      dimensions = "ga:date",
                      metrics = "ga:pageviews",
                      max.results = 1000,
                      table.id = TableID&lt;/pre&gt;
                      &lt;pre&gt;)

#Init&#12467;&#12510;&#12531;&#12489;&#12458;&#12503;&#12471;&#12519;&#12531;&#12395;&#12388;&#12356;&#12390;
#start.date:&#12487;&#12540;&#12479;&#21462;&#24471;&#38283;&#22987;&#26085;&#12398;&#35373;&#23450;&#12290;&#24180;&#24180;&#24180;&#24180;-&#26376;&#26376;-&#26085;&#26085;&#12391;&#35373;&#23450;&#12290;
#end.date:&#12487;&#12540;&#12479;&#21462;&#24471;&#32066;&#20102;&#26085;&#12398;&#35373;&#23450;&#12290;&#24180;&#24180;&#24180;&#24180;-&#26376;&#26376;-&#26085;&#26085;&#12391;&#35373;&#23450;&#12290;

###dimensions&#12392;metrics&#12399;&#19979;&#35352;&#12398;URL&#12434;&#21442;&#29031;#####
###https://developers.google.com/analytics/devguides/reporting/core/dimsmets#####
#dimensions:7&#38917;&#30446;&#12414;&#12391;&#35373;&#23450;&#12364;&#21487;&#33021;&#12290;&#35079;&#25968;&#25351;&#23450;&#12377;&#12427;&#12392;&#12365;&#12399;"xxx, XXX, ..."&#12392;&#25351;&#23450;&#12290;
#metrics:7&#38917;&#30446;&#12414;&#12391;&#35373;&#23450;&#12364;&#21487;&#33021;&#12290;&#35079;&#25968;&#25351;&#23450;&#12377;&#12427;&#12392;&#12365;&#12399;"xxx, XXX, ..."&#12392;&#25351;&#23450;&#12290;
#max.results:&#21462;&#24471;&#12377;&#12427;&#12487;&#12540;&#12479;&#25968;&#12290;&#26368;&#22823;10,000&#12290;

#&#21462;&#24471;&#12497;&#12521;&#12513;&#12540;&#12479;&#12540;&#12434;&#20966;&#29702;
query <- QueryBuilder(query.list)
#&#12487;&#12540;&#12479;&#12398;&#21462;&#24471;&#12290;&#12487;&#12540;&#12479;&#12399;&#12487;&#12540;&#12479;&#12501;&#12524;&#12540;&#12512;&#12391;&#21462;&#24471;&#12373;&#12428;&#12414;&#12377;&#12290;
AnalyticsData <- GetReportData(query, oauth_token)
#XLConnect&#12391;&#12487;&#12540;&#12479;&#12434;&#12456;&#12463;&#12475;&#12523;&#12395;&#26360;&#12365;&#20986;&#12375;
library(XLConnect)
writeWorksheetToFile("AnalyticsData.xlsx", data = AnalyticsData, sheet = "&#12487;&#12540;&#12479;")

少しでも、あなたのウェブや実験の解析が楽になりますように！！