Rで解析：GoogleAnalyticsのレポートが簡単です。「marketeR」パッケージ

結果のファイルがどこに出力されるか不明でしたので、紹介を躊躇していました。やっと、判明しましたので紹介します。現在のバージョンも使用できますが、バグが治れば更に使い勝手が良いものになると思います。

パッケージヘルプやgithubの説明ページにはレポートのhtmlファイルとマークダウンのRmdファイルは作業フォルダに出力されるとあります。しかし実際は、パッケージのライブラリフォルダ、marketRフォルダのAutoReportフォルダ内に出力されます。

・githubパッケージページ
https://github.com/fmikaelian/marketeR

ディフォルト設定でRを使用されている方の出力先は以下となります。ユーザー名の箇所は自身の環境に合わせてください。

Windows:C:\Users\ユーザー名\Documents\R\win-library\3.2\marketeR\AutoReport

Mac:/Users/ユーザー名/Library/R/3.2/library/marketeR/AutoReport

また、本パッケージはpandocやknitパッケージを利用してマークダウン後にhtmlのレポートを作成します。手軽に環境を整えるためにも、RStudioから利用することをオススメします。一度、環境を整えてしまえば、大幅な作業効率の向上が望めます。

一部データを隠していますが、出力結果の画像を例に紹介します。

なお、利用に必要なGoogleAnalyticsのクライアントIDやクライアントシークレット、RStudioのインストール、マークダウンは下記の記事や書籍が参考になります。

・クライアントIDやクライアントシークレットの参考
　https://www.karada-good.net/rgoogleanalytics/googledevelopersconsole/
・RStudioのインストール参考
　https://www.karada-good.net/analyticsr/r-228/
・マークダウンを学ぶのにオススメの書籍

書籍名：ドキュメント・プレゼンテーション生成 (シリーズ Useful R 9)
著　者：高橋康介
価　格：3,672
発売日：2014/06
出版社：共立出版

バージョンは0.1.0。実行コマンドはR version 3.2.2で確認しています。

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

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

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

実行コマンド

詳細はコメント、パッケージヘルプを確認してください。FaceBookのレポートも出力できるようですが、FaceBookを使用していないので紹介しません。また、実行時に必要なパッケージがないとエラーが表示された場合は、表示されたパッケージを追加してください。

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

###&#35299;&#26512;&#28310;&#20633;:Google Analytics&#12392;&#12398;&#36899;&#25658;&#35373;&#23450;#####
#&#12463;&#12521;&#12452;&#12450;&#12531;&#12488;ID&#12434;&#35373;&#23450;
client.id <- "&#12463;&#12521;&#12452;&#12450;&#12531;&#12488;ID"
#&#12463;&#12521;&#12452;&#12450;&#12531;&#12488;&#12471;&#12540;&#12463;&#12524;&#12483;&#12488;&#12434;&#35373;&#23450;
client.secret <- "&#12463;&#12521;&#12452;&#12450;&#12531;&#12488;&#12471;&#12540;&#12463;&#12524;&#12483;&#12488;"
########

#&#12488;&#12540;&#12463;&#12531;&#12501;&#12449;&#12452;&#12523;&#12398;&#21462;&#24471;:Auth&#12467;&#12510;&#12531;&#12489;
#&#27880;&#24847;:&#12371;&#12371;&#12398;&#24341;&#25968;&#21517;&#12434;&#22793;&#26356;&#12377;&#12427;&#12392;&#12467;&#12510;&#12531;&#12489;&#23455;&#34892;&#12395;&#12456;&#12521;&#12540;&#12392;&#12394;&#12426;&#12414;&#12377;
token <- Auth(client.id, client.secret)

#&#12488;&#12540;&#12463;&#12531;&#12501;&#12449;&#12452;&#12523;&#12398;&#26356;&#26032;&#30906;&#35469;:ValidateToken&#12467;&#12510;&#12531;&#12489;
#&#26399;&#38480;&#12364;&#20999;&#12428;&#12390;&#12356;&#12427;&#22580;&#21512;&#12399;&#26032;&#35215;&#12395;&#21462;&#24471;&#12375;&#12414;&#12377;&#12290;
ValidateToken(token)
Access Token successfully updated

#&#12488;&#12540;&#12463;&#12531;&#12501;&#12449;&#12452;&#12523;&#12398;&#20445;&#23384;:save&#12467;&#12510;&#12531;&#12489;
#tcltk&#12497;&#12483;&#12465;&#12540;&#12472;&#12434;&#21033;&#29992;
library("tcltk")
#&#20445;&#23384;&#22580;&#25152;&#12434;&#21462;&#24471;
SavwWd <- setwd(paste(as.character(tkchooseDirectory(title = "&#20445;&#23384;&#22580;&#25152;&#12434;&#36984;&#25246;"), sep = "", collapse ="")))
#&#20445;&#23384;
save(token, file = paste0(SavwWd, "/GA.Token"))

###&#21442;&#32771;:&#20445;&#23384;&#12375;&#12383;&#12488;&#12540;&#12463;&#12531;&#12501;&#12449;&#12452;&#12523;&#12398;&#21033;&#29992;&#26041;&#27861;#####
#&#12488;&#12540;&#12463;&#12531;&#12501;&#12449;&#12452;&#12523;&#12364;&#12354;&#12428;&#12400;&#35299;&#26512;&#28310;&#20633;:Google Analytics&#12392;&#12398;&#36899;&#25658;&#35373;&#23450;&#12398;&#25805;&#20316;&#12399;&#24517;&#35201;&#12354;&#12426;&#12414;&#12379;&#12435;
#&#12497;&#12483;&#12465;&#12540;&#12472;&#12398;&#35501;&#12415;&#36796;&#12415;
library("marketeR")
library("tcltk")
#&#12488;&#12540;&#12463;&#12531;&#12501;&#12449;&#12452;&#12523;&#12398;&#35501;&#12415;&#36796;&#12415;
load(paste0(as.character(tkgetOpenFile(title = "GA.Token&#12501;&#12449;&#12452;&#12523;&#12434;&#36984;&#25246;",
                                       filetypes = '{"GA.Token&#12501;&#12449;&#12452;&#12523;" {".Token"}}',
                                       initialfile = c("*.Token")))))
#&#12488;&#12540;&#12463;&#12531;&#12501;&#12449;&#12452;&#12523;&#12398;&#26356;&#26032;&#30906;&#35469;
ValidateToken(token)
Access Token is valid
######

###&#12524;&#12509;&#12540;&#12488;&#12398;&#20986;&#21147;&#12467;&#12510;&#12531;&#12489;#####
table.id&#12398;&#30906;&#35469;:GetProfiles&#12467;&#12510;&#12531;&#12489;
#Google Analytics&#12398;&#12503;&#12525;&#12501;&#12449;&#12452;&#12523;id&#12392;&#12394;&#12426;&#12414;&#12377;
GetProfiles(token)

#&#26399;&#38291;&#12434;&#25351;&#23450;&#12375;&#12524;&#12509;&#12540;&#12488;&#12434;&#21462;&#24471;:AutoReport&#12467;&#12510;&#12531;&#12489;
#table.id&#12395;&#12399;GetProfiles&#12467;&#12510;&#12531;&#12489;&#12391;&#30906;&#35469;&#12375;&#12383;id&#12434;&#20837;&#21147;
AutoReport(start.date = "2015-01-01", end.date = "2015-07-30", table.id = "ga:&#35299;&#26512;&#23550;&#35937;&#12398;id")

出力例

ダンまちの継続的な人気に驚きです。

アニメ「シャーロット」と夏休み効果で8月はアクセスが多かったです。少しでも、あなたのウェブや実験の解析が楽になりますように！！