Rで解析：Googleサーチコンソールを利用したhtmlレポートの出力

公開日 2015-11-06

Rの解析に役に立つ記事

SearchConsoleRパッケージを利用したhtmlレポートの出力です。htmlファイルのサイズはデータが約700ほどで約1MBなのでメールで送付できる範囲かと思います。

出力例は仮想データとなります。過去記事を参考に実行環境を整えていただければと思います。

Rで解析:RStudioを使ったmarkdownでGoogleAnalytics！ https://www.karada-good.net/analyticsr/r-228/

htmlでの出力を念頭に置いているので、javaを使用するDTパッケージを利用しています。インタラクティブに表を操作できます。

実行コマンドはR version 3.2.2で確認しています。

＜おすすめのRに関する書籍です＞

Ｒで学ぶ統計的データ解析データサイエンス入門シリーズ | 林賢一, 下平英寿 | 工学 | Kindleストア

Amazonで林賢一, 下平英寿のＲで学ぶ統計的データ解析データサイエンス入門シリーズ。アマゾンならポイント還元本が多数。一度購入いただいた電子書籍は、KindleおよびFire端末、スマートフォンやタブレットなど、様々な端末でもお楽しみいただけます。

www.amazon.co.jp

準備

初めに作業フォルダを指定し、下記のコマンドを実行することでエラーが出ません。冒頭に紹介した過去記事を参照ください。


#パッケージの読み込み
library("searchConsoleR")
library("googleAuthR")

#グーグルアカウントの許可
#実行するとウェブブラウザが起動します
gar_auth()

実行コマンド

コマンドはRStudioでR Markdownのファイルを作成し利用することを想定しています。


---
title: "SearchConsoleRを利用したhtmlレポートの出力"
output:
  html_document: default
  pdf_document: default
  word_document: default
header-includes:
- \usepackage{zxjatype}
- \setjamainfont{HiraKakuProN-W3}
---

```{r, global_options, include = FALSE}
knitr::opts_chunk$set(fig.width = 12, fig.height = 8,
                      include = TRUE, echo = FALSE, warning = FALSE, message = FALSE)
```

```{r, echo = FALSE, include = TRUE, results = "hide"}
###データの準備#####
#パッケージの読み込み
library("searchConsoleR")
library("googleAuthR")
#install.packages("DT")
library("DT")

#取得期間の指定
#実行日の前日
EndData <- (Sys.Date() -1)
#実行日の前日から31日前
StartData <- EndData - 31

#グーグルアカウントの許可
#実行するとウェブブラウザが起動します
gar_auth()

#データの取得
SiteURL <- "対象となるURLを入力"
#デバイス別のデータ
DeviceGetData <- search_analytics(siteURL = SiteURL,
                                  startDate = StartData, endDate = EndData,
                                  dimensions = c("query", "page", "device"),
                                  searchType = "web", rowLimit = 1000)
#デバイス統合のデータ
AllGetData <- search_analytics(siteURL = SiteURL,
                               startDate = StartData, endDate = EndData,
                               dimensions = c("query", "page"),
                               searchType = "web", rowLimit = 1000)

#データの整形
#SiteURLの部分を削除
#DeviceGetData[, 2] <- gsub(SiteURL, "", DeviceGetData[, 2])
#AllGetData[, 2] <- gsub(SiteURL, "", AllGetData[, 2])
#列名の修正
#colnames(DeviceGetData) <- c("クエリ", "ページ", "デバイス", "クリック数", "表示回数", "CTR (%)", "掲載順位")
#colnames(AllGetData) <- c("クエリ", "ページ", "クリック数", "表示回数", "CTR (%)", "掲載順位")

#データの丸め
#DeviceGetData[, 2] <- gsub(SiteURL, "", DeviceGetData[, 2])
#AllGetData[, 2] <- gsub(SiteURL, "", AllGetData[, 2])
```


「`r SiteURL`」の`r StartData`から`r EndData`の情報です。

---

### 結果です。
query;検索キーワード,page;検索で表示されるページ,clicks;ページのクリック数,impressions;検索キーワードでのページ表示回数,ctr;クリック率,position;検索による表示順位
```{r, results = "asis"}
AllGetData[, 2] <- paste0('<a href=', AllGetData[, 2], '>', gsub(SiteURL, "", AllGetData[, 2]), '</a>')
datatable(AllGetData, rownames = FALSE, escape = FALSE, extensions = 'TableTools',
          filter = 'top', options = list(pageLength = 15, autoWidth = TRUE)) %>%
          formatPercentage('ctr', 2) %>% formatRound('position', 1) %>% 
          formatStyle('ctr', color = styleInterval(0.035, c('black', 'red')),
                      backgroundColor = styleInterval(0.035, c('white', 'yellow'))) %>%
          formatStyle('impressions', background = styleColorBar(DeviceGetData[, 5], 'lightblue'),
                      backgroundSize = '100% 90%', backgroundRepeat = 'no-repeat', backgroundPosition = 'center') %>%
          formatStyle('clicks', background = styleColorBar(DeviceGetData[, 4], 'lightgreen'),
                      backgroundSize = '100% 90%', backgroundRepeat = 'no-repeat', backgroundPosition = 'center')
```

---

### デバイス別の結果です。  
query;検索キーワード,page;検索で表示されるページ,device;使用環境,clicks;ページのクリック数,impressions;検索キーワードでのページ表示回数,ctr;クリック率,position;検索による表示順位
```{r, results = "asis"}
DeviceGetData[, 2] <- paste0('<a href=', DeviceGetData[, 2], '>', gsub(SiteURL, "", DeviceGetData[, 2]), '</a>')
datatable(DeviceGetData, rownames = FALSE, escape = FALSE,
          filter = 'top', options = list(pageLength = 15, autoWidth = TRUE)) %>%
          formatPercentage('ctr', 2) %>% formatRound('position', 1) %>% 
          formatStyle('ctr', color = styleInterval(0.035, c('black', 'red')),
                      backgroundColor = styleInterval(0.035, c('white', 'yellow'))) %>%
          formatStyle('impressions', background = styleColorBar(DeviceGetData[, 5], 'lightblue'),
                      backgroundSize = '100% 90%', backgroundRepeat = 'no-repeat', backgroundPosition = 'center') %>%
          formatStyle('clicks', background = styleColorBar(DeviceGetData[, 4], 'lightgreen'),
                      backgroundSize = '100% 90%', backgroundRepeat = 'no-repeat', backgroundPosition = 'center')
```