Rでウェブ解析：Google Search Consoleを操作！「searchConsoleR」パッケージ

ついに、RからSearch Consoleを操作できるパッケージが登場しました。Yahoo!もSSL化し検索キーワードの取得が難しくなった今こそ、役に立つのではないでしょうか。ブラウザからSearch Consoleの操作に違和感を感じていた方は、ぜひ利用してみてください。

本パッケージでは検索アナリティクスの取得だけではなく、サイトマップの操作やクロールエラーなどのデータ取得ができます。RとSearch Consoleの連携も「gar_auth」コマンドを実行するだけのお手軽仕様です。

本サイトのデータを取得してみると、Rに関する記事やシャーロットに関するクエリが多いですが、7月に放送が終了した「ダンジョンに出会いを求めているのは間違っているのだろうか」に関するクエリ数が日に日に増えていることがわかりました。2期はやらないのでしょうか。「ダンまち」名作です。

パッケージのバージョンは0.1.2。R version 3.2.1でコマンドを確認しています。

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

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

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

実行コマンド

詳細はコマンド、パッケージヘルプを確認してください。

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

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

#&#12469;&#12540;&#12481;&#12467;&#12531;&#12477;&#12540;&#12523;&#12391;&#31649;&#29702;&#12375;&#12390;&#12356;&#12427;&#12469;&#12452;&#12488;&#12398;&#21462;&#24471;
sc_websites <- list_websites()
sc_websites
siteUrl permissionLevel
1   https://www.karada-good.net/       siteOwner

#&#12487;&#12540;&#12479;&#12398;&#21462;&#24471;:search_analytics&#12467;&#12510;&#12531;&#12489;
#&#21462;&#24471;&#12487;&#12540;&#12479;&#12398;&#35373;&#23450;:dimensions;"date","country","device","page","query"
#&#21462;&#24471;&#12487;&#12540;&#12479;&#12398;&#12501;&#12451;&#12523;&#12479;:dimensionFilterExp;
#&#12458;&#12503;&#12471;&#12519;&#12531;&#12398;&#31278;&#39006;;"device:DESKTOP or MOBILE or TABLET","page","query"
#&#28436;&#31639;&#23376;&#12398;&#31278;&#39006;;&#21547;&#12416;:~~,&#21547;&#12414;&#12394;&#12356;:!~,&#12452;&#12467;&#12540;&#12523;:==,&#12494;&#12483;&#12488;&#12452;&#12467;&#12540;&#12523;:!=
#&#21462;&#24471;&#12487;&#12540;&#12479;&#25968;&#12398;&#25351;&#23450;:rowLimit;max&#12399;5,000
#&#12501;&#12451;&#12523;&#12479;&#12434;&#25351;&#23450;&#12379;&#12378;&#26908;&#32034;&#12463;&#12456;&#12522;&#12392;&#12506;&#12540;&#12472;URL&#12434;&#21547;&#12416;&#12487;&#12496;&#12452;&#12473;&#21029;&#12487;&#12540;&#12479;&#12434;&#21462;&#24471;
#&#12501;&#12451;&#12523;&#12479;&#12434;&#25351;&#23450;&#12377;&#12427;&#22580;&#21512;&#12399;#&#12434;&#21066;&#38500;&#12375;&#12390;&#12367;&#12384;&#12373;&#12356;
GetData <- search_analytics(siteURL = "https://www.karada-good.net/", 
                            startDate = "2015-07-01", endDate = "2015-08-01", 
                            dimensions = c("query", "page", "device"),
                            #dimensionFilterExp = c("device==DESKTOP","country==JPN"),
                            searchType = "web", rowLimit = 1000)
#&#12487;&#12540;&#12479;&#12398;&#25244;&#31883;,&#12463;&#12456;&#12522;&#38918;&#20301;,&#12463;&#12522;&#12483;&#12463;,&#12452;&#12531;&#12503;&#12524;&#12483;&#12471;&#12519;&#12531;,CTR&#12398;&#25968;&#20516;&#12399;&#22793;&#26356;&#12375;&#12390;&#12356;&#12414;&#12377;
query                                         page  device clicks impressions ctr position
&#12480;&#12531;&#12414;&#12385; &#20108;&#26399; https://www.karada-good.net/analyticsr/r-126/  MOBILE   9999       99999 1   5.767786
&#12480;&#12531;&#12414;&#12385; 2&#26399; https://www.karada-good.net/analyticsr/r-126/  MOBILE   9999       99999 1   5.284398
&#12480;&#12531;&#12414;&#12385; 2&#26399; https://www.karada-good.net/analyticsr/r-126/ DESKTOP   9999       99999 1   5.376796
r &#12486;&#12461;&#12473;&#12488;&#12510;&#12452;&#12491;&#12531;&#12464;  https://www.karada-good.net/analyticsr/r-10/ DESKTOP   9999       99999 1   3.151659
&#12471;&#12515;&#12540;&#12525;&#12483;&#12488; op https://www.karada-good.net/analyticsr/r-156/  MOBILE   9999       99999 1   9.353448
&#12480;&#12531;&#12414;&#12385;&#20108;&#26399; https://www.karada-good.net/analyticsr/r-126/  MOBILE   9999       99999 1   5.441573
#&#20316;&#26989;&#12487;&#12451;&#12524;&#12463;&#12488;&#12522;&#12395;&#12487;&#12540;&#12479;&#12398;CSV&#20986;&#21147;
#mac&#29992;
write.csv(GetData, "GetData.csv", quote = FALSE,
          row.names = FALSE, fileEncoding = "CP932", eol = "\r\n")
#windows&#29992;
write.csv(GetData, "GetData.csv", quote = FALSE, row.names = FALSE)

#&#12469;&#12452;&#12488;&#12510;&#12483;&#12503;&#12398;&#30906;&#35469;:list_sitemaps&#12467;&#12510;&#12531;&#12489;
list_sitemaps("https://www.karada-good.net/")
$sitemap
path            lastSubmitted isPending isSitemapsIndex           lastDownloaded warnings errors
1 https://www.karada-good.net/sitemap.xml 2015-04-13T22:49:34.958Z     FALSE            TRUE 2015-08-22T23:51:42.784Z        0      0

$contents
type submitted indexed
1  web       356     258

#&#12469;&#12452;&#12488;&#12510;&#12483;&#12503;&#12398;&#36861;&#21152;:add_sitemap&#12467;&#12510;&#12531;&#12489;
add_sitemap(siteURL = "https://www.karada-good.net/", feedpath = "https://www.karada-good.net/sitemap.xml") 

#&#12469;&#12452;&#12488;&#12510;&#12483;&#12503;&#12398;&#21066;&#38500;:delete_sitemap&#12467;&#12510;&#12531;&#12489;
delete_sitemap(siteURL = "https://www.karada-good.net/", feedpath = "https://www.karada-good.net/sitemap.xml") 

#&#12463;&#12525;&#12540;&#12523;&#12456;&#12521;&#12540;&#12398;&#30906;&#35469;:crawl_errors&#12467;&#12510;&#12531;&#12489;
CErrorsData <- crawl_errors("https://www.karada-good.net/")
head(CErrirsData)
platform category count  timecount
1      web notFound    17 2015-05-21
2      web notFound    17 2015-05-22
3      web notFound    18 2015-05-23
4      web notFound    19 2015-05-24
5      web notFound    20 2015-05-25
6      web notFound    20 2015-05-26

#URL&#12456;&#12521;&#12540;&#12398;&#21462;&#24471;:list_crawl_error_samples&#12467;&#12510;&#12531;&#12489;
CErrorsListData <- list_crawl_error_samples("https://www.karada-good.net/")

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