Rでウェブ解析:ラクしませんか？「markdownでSearchConsole」

SearchConsoleのデータを取得し、HTMLファイルに出力する例を紹介します。最近、使い始めたmarkdownですが「非常に便利です」。ハマっています。先日、RStudioを利用したmarkdownを紹介しました。今回は、「knitr」パッケージを利用しています。

「knitr」パッケージは、かなり奥が深いので改めて、後日紹介したいと思います。

サーチコンソールのデータ取得には「searchConsoleR」パッケージを使用しています。RStudioを利用したmarkdownの紹介と合わせて内容を確認してください。

・Google Search Consoleを操作！「searchConsoleR」パッケージ
　https://www.karada-good.net/analyticsr/r-215/ ‎

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

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

markdownコマンドの紹介

「knitr」パッケージやRStudioではmarkdownコマンドが記述された、拡張子「Rmd」のファイルを読み込み結果を出力します。markdownの記述は非常にシンプルです。

serchConsoleMark

1 ファイル 1.69 KB

ダウンロード

</p>---
title: "searchConsoleR&#12497;&#12483;&#12465;&#12540;&#12472;&#12392;&#12398;&#32068;&#12415;&#21512;&#12431;&#12379;"
author: "KARADA-GOOD"
date: "2015&#24180;9&#26376;7&#26085;"
output:
html_document: default
header-includes:
- \usepackage{zxjatype}
- \setjamainfont{HiraKakuProN-W3}
---
  
```{r, global_options, include = FALSE}
knitr::opts_chunk$set(fig.width = 12, fig.height = 8, fig.path = 'Figs/',
                      include = TRUE, echo = FALSE, warning = FALSE, message = FALSE)
```

```{r, echo = FALSE, include = TRUE, results = "hide"}
#&#12497;&#12483;&#12465;&#12540;&#12472;&#12398;&#35501;&#12415;&#36796;&#12415;
library("searchConsoleR")
library("googleAuthR")

#&#21462;&#24471;&#26399;&#38291;&#12398;&#25351;&#23450;
#&#23455;&#34892;&#26085;&#12398;&#21069;&#26085;
EndData <- (Sys.Date() -1)
#&#23455;&#34892;&#26085;&#12398;&#21069;&#26085;&#12363;&#12425;31&#26085;&#21069;
StartData <- EndData - 31

#&#12464;&#12540;&#12464;&#12523;&#12450;&#12459;&#12454;&#12531;&#12488;&#12398;&#35377;&#21487;
#&#23455;&#34892;&#12377;&#12427;&#12392;&#12454;&#12455;&#12502;&#12502;&#12521;&#12454;&#12470;&#12364;&#36215;&#21205;&#12375;&#12414;&#12377;
gar_auth()

#&#12487;&#12540;&#12479;&#12398;&#21462;&#24471;
#siteURL&#12399;&#33258;&#36523;&#12364;&#31649;&#29702;&#12375;&#12390;&#12356;&#12427;&#12487;&#12540;&#12479;&#12434;&#21462;&#24471;&#12375;&#12383;&#12356;&#12469;&#12452;&#12488;&#12395;&#22793;&#26356;&#12375;&#12390;&#12367;&#12384;&#12373;&#12356;
GetData <- search_analytics(siteURL = "https://www.karada-good.net/", 
                            startDate = StartData, endDate = EndData, 
                            dimensions = c("query", "page", "device"),
                            searchType = "web", rowLimit = 5000)

#&#12463;&#12522;&#12483;&#12463;&#25968;Top20&#12434;&#25277;&#20986;
#impressions&#12399;GetData[, 5],ctr&#12399;GetData[, 6]
GetData <- xtable(head(GetData[order(GetData[, 4], decreasing = TRUE),], n = 20))
#&#12487;&#12540;&#12479;&#12398;&#25972;&#24418;
colnames(GetData) <- c("&#12463;&#12456;&#12522;", "&#12506;&#12540;&#12472;", "&#12487;&#12496;&#12452;&#12473;", "&#12463;&#12522;&#12483;&#12463;&#25968;", "&#34920;&#31034;&#22238;&#25968;", "CTR (%)", "&#25522;&#36617;&#38918;&#20301;")
GetData[, 6] <- round(GetData[, 6]*100, 2)
GetData[, 7] <- round(GetData[, 7], 2)
```
&#12300;searchConsoleR&#12497;&#12483;&#12465;&#12540;&#12472;&#12301;&#12391;&#21462;&#24471;&#12375;&#12383;`r StartData`&#12363;&#12425;`r EndData`&#12398;&#24773;&#22577;&#12391;&#12377;&#12290;
---
  
### &#32080;&#26524;&#12391;&#12377;&#12290;  
```{r, result = "asis"}
kable(GetData)
```

実行コマンド

RStudioが導入済みの環境だと動くと思います。エラーが出た場合は、内容に従い追加のパッケージなどをインストールしてください。詳細は紹介記事、コマンド、パッケージヘルプを確認してください。

#パッケージの読み込み
library("knitr")
library("tcltk")

#serchConsoleMark.Rmdの保存場所を指定
setwd(paste(as.character(tkchooseDirectory(title = "保存場所を選択"), sep = "", collapse ="")))

#serchConsoleMark.RmdをHTMLに変換
knit2html("serchConsoleMark.Rmd")

#結果をブラウザに表示
browseURL("serchConsoleMark.html")

出力結果

Rの記事がアニメの記事に負けてます。唯一「r テキストマイニング」が奮闘しています。それにしても「例のヒモ」で話題をさらった「ダンまち」は人気です。２期は放送しないのでしょうか。

以下はHTMLの出力結果です。iframeタグを使用して埋め込んでいます。リンク先もフレーム内で表示されます。フレーム表示を希望しない場合は下記URLリンクから確認してください。

http://goo.gl/6x2L01

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