RでGoogle Analytics:RGoogleAnalyticsパッケージの基本的な利用方法

RGoogleAnalyticsパッケージ基本的な利用方法を紹介します。解析の準備はRでGoogle Analyticsの目次を確認してください。

解析コマンドなどのまとめはこちらから：RでGoogle Analyticsの目次

Authコマンド実行時の注意

Authコマンド実行時に、下記画面がウェブブラウザに表示されます。「承認する」ボタンをクリックしてください。
トークンファイルを保存している場合は「トークンファイルの読み込みコマンド」を実行すると画面がウェブブラウザに表示されません。

解析準備に関するコマンドの紹介

・RGoogleAnalyticsライブラリの読み込みです。紹介するコマンドはライブラリを読み込むことで実行できます。

library("RGoogleAnalytics")

トークンファイルの取得コマンド

#&#12463;&#12521;&#12452;&#12450;&#12531;&#12488;ID&#12434;&#35373;&#23450;
client.id <- "&#12463;&#12521;&#12452;&#12450;&#12531;&#12488;ID&#12434;&#12506;&#12540;&#12473;&#12488;"

#&#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;&#12434;&#12506;&#12540;&#12473;&#12488;"

#&#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)

トークンファイルの保存コマンド

library("tcltk")
#トークンの保存。
setwd(paste(as.character(tkchooseDirectory(title = "保存ディレクトリを選択"), sep = "", collapse ="")))
save(oauth_token, file="oauth_token")

トークンファイルの読み込みコマンド

library("tcltk")
load(paste(as.character(tkgetOpenFile(title = "トークンファイルを選択",
                                      filetypes = '{"トークンファイル" {"*"}}',
                                      initialfile = "*")), sep = "", collapse =" "))

解析に関するコマンドの紹介

プロファイルidの取得コマンドです。データを取得するサイトを選択するのに必要です。

GetProfiles(oauth_token)

コマンドを実行するとidと名前が表示されます。解析に必要なidは控えてください。

取得するデータの条件はInitコマンドで指定します。下記のコマンド例は2014年8月のNew Visitor、Returning Visitorの数を取得します。
年月日の入力は”YYYY-MM-DD”形式で入力します。月は例えば3月なら03、12月なら12と2桁で入力します。また、最下部に保存フォルダを選択しエクセルにで保存するコマンドを紹介します。

library("tcltk")
library("XLConnect")

TableID <- "ga:&#12487;&#12540;&#12479;&#12434;&#21462;&#24471;&#12377;&#12427;&#12469;&#12452;&#12488;&#12398;id&#12434;&#20837;&#21147;"
#&#21462;&#24471;&#12497;&#12521;&#12513;&#12540;&#12479;&#12398;&#35373;&#23450;
query.list <- Init(start.date = "2014-08-01",
                   end.date = "2014-08-31",
                   dimensions = "ga:userType",
                   metrics = "ga:users",
                   max.results = 10000,
                   table.id = TableID)

#&#21462;&#24471;&#12497;&#12521;&#12513;&#12540;&#12479;&#12540;&#12434;&#20966;&#29702;
query <- QueryBuilder(query.list)

#&#12487;&#12540;&#12479;&#12398;&#21462;&#24471;
UserTypeData <- GetReportData(query, oauth_token)

#&#20445;&#23384;&#12501;&#12457;&#12523;&#12480;&#12434;&#36984;&#25246;&#12375;&#12390;&#26360;&#12365;&#20986;&#12375;&#12290;
# setwd(paste(as.character(tkchooseDirectory(title = "&#20445;&#23384;&#12487;&#12451;&#12524;&#12463;&#12488;&#12522;&#12434;&#36984;&#25246;"), sep = "", collapse ="")))
# writeWorksheetToFile(paste("&#12450;&#12463;&#12475;&#12473;&#12487;&#12540;&#12479;.xlsx", sep = ""), data = UserTypeData, sheet = "&#12450;&#12463;&#12475;&#12473;&#12487;&#12540;&#12479;")
########

解析コマンドなどのまとめはこちらから：RでGoogle Analyticsの目次

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