RでGoogle Analytics:解析コマンド「セッション数（訪問回数）の取得」

RGoogleAnalyticsパッケージで「セッション数（訪問回数）を取得」するコマンドを紹介します。なお、データを取得するサイトのidとトークンファイルは取得・保存している前提でコマンドを紹介します。

サイトのidとトークンファイルの取得と保存方法は「RでGoogle Analyticsの目次」から「RGoogleAnalyticsパッケージ基本的な利用方法」を確認してください。

また、解析環境が整っていない場合は「解析の準備」の項目を確認してください。初心者でも実行できるようにまとめています。

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

セッション数（訪問回数）の取得コマンドの紹介

dimensionsに「ga:sessionCount」を指定します。なお、セッション数が文字列になっているので数字に変換後、昇順で並び替えています。

実行することで10位までの訪問回数を示した棒グラフとデータがエクセルで出力されます。

<pre class="wp-block-syntaxhighlighter-code">
library("RGoogleAnalytics")
library("XLConnect")
library("tcltk")
library("ggplot2")

TableID &lt;- "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 &lt;- Init(start.date = "2014-08-01",
                   end.date = "2014-08-31",
                   dimensions = "ga:sessionCount",
                   metrics = "ga:users",
                   max.results = 10000,
                   table.id = TableID)

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

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

#&#12487;&#12540;&#12479;&#12398;&#25972;&#24418;
UserSessionsData&#x5B;, 1] &lt;- as.numeric(UserSessionsData&#x5B;, 1])

#&#12475;&#12483;&#12471;&#12519;&#12531;&#25968;&#12391;&#20006;&#12403;&#26367;&#12360;
UserSessionsData &lt;- UserSessionsData&#x5B;order(UserSessionsData&#x5B;, 1], decreasing = FALSE), ]

#&#19978;&#20301;&#65297;&#65296;&#20301;&#12398;&#12464;&#12521;&#12501;&#12398;&#20316;&#25104;
HistPlot &lt;- ggplot(UserSessionsData&#x5B;1:10, ],
                   aes(x = UserSessionsData&#x5B;1:10, 1],
                       y = UserSessionsData&#x5B;1:10, 2],
                       fill = "red"))

HistPlot &lt;- HistPlot +
  geom_bar(stat = 'identity', show_guide = FALSE) +
  labs(x = "&#35370;&#21839;&#22238;&#25968;", y = "&#35370;&#21839;&#32773;&#25968;") +
  scale_fill_manual(values = "red") +
  theme_bw(base_family = ifelse(.Platform&#x5B;1] == "windows", "", "HiraKakuProN-W3")) +
  theme(axis.ticks = element_blank(),
        axis.text.x = element_text(size = 12,
                                   angle = 60,
                                   hjust = 1.1,
                                   colour = "grey50"))

#&#12464;&#12521;&#12501;&#12398;&#12503;&#12525;&#12483;&#12488;
#DSHistPlot

###&#20197;&#19979;&#12289;&#12464;&#12521;&#12501;&#12364;&#36028;&#12426;&#20184;&#12369;&#12425;&#12428;&#12383;&#12456;&#12463;&#12475;&#12523;&#12501;&#12449;&#12452;&#12523;&#12398;&#20986;&#21147;#####
#&#20445;&#23384;&#12501;&#12457;&#12523;&#12480;&#12398;&#36984;&#25246;
SaveDir &lt;- paste(as.character(tkchooseDirectory(title = "&#20445;&#23384;&#12487;&#12451;&#12524;&#12463;&#12488;&#12522;&#12434;&#36984;&#25246;"), sep = "", collapse =""))
#&#12527;&#12540;&#12463;&#12502;&#12483;&#12463;&#12398;&#20316;&#25104;
wb &lt;- loadWorkbook("&#12450;&#12463;&#12475;&#12473;&#12487;&#12540;&#12479;.xlsx", create = TRUE)
#&#12471;&#12540;&#12488;&#12398;&#20316;&#25104;
createSheet(wb, name = "&#12450;&#12463;&#12475;&#12473;&#12487;&#12540;&#12479;")
#&#12487;&#12540;&#12479;&#12398;&#26360;&#12365;&#36796;&#12415;
writeWorksheet(wb, UserSessionsData, sheet = "&#12450;&#12463;&#12475;&#12473;&#12487;&#12540;&#12479;", startRow = 1, startCol = 1)
#&#19968;&#26178;&#12501;&#12457;&#12523;&#12480;&#12395;&#20999;&#12426;&#26367;&#12360;
setwd(tempdir())
#&#12464;&#12521;&#12501;&#12501;&#12449;&#12452;&#12523;&#12398;&#20316;&#25104;
png(filename = "HistPlot.png", width = 350, height = 350)
#&#20986;&#21147;
print(DSHistPlot)
dev.off()
#&#12464;&#12521;&#12501;&#12398;&#26360;&#12365;&#36796;&#12415;
createName(wb, name = "HistPlot", formula = paste("&#12450;&#12463;&#12475;&#12473;&#12487;&#12540;&#12479;", idx2cref(c(3, 4)), sep = "!"))
addImage(wb, filename = "HistPlot.png", name = "HistPlot", originalSize = TRUE)
#&#12501;&#12449;&#12452;&#12523;&#12398;&#20445;&#23384;
setwd(SaveDir)
saveWorkbook(wb)
########
</pre>

書き出されるエクセル

一部のデータを隠しています。

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

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