Rで解析：インタラクティブなサークルプロット！「edgebundleR」パッケージ

グルグル回したり、ノードをハイライトにしたり、インタラクティブなサークルプロット作成に便利なパッケージです。実行コマンドではRGAパッケージを利用しています。

RGAパッケージは下記の記事を参考下さい。
・Rでウェブ解析：更新_Google Analyticsからデータを取得「RGA」パッケージの紹介
　https://www.karada-good.net/analyticsr/r-141/

グリグリ操作できますので、ぜひ試してみてください。

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

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

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

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

実行コマンド

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

#&#12497;&#12483;&#12465;&#12540;&#12472;&#12398;&#35501;&#12415;&#36796;&#12415;
library("edgebundleR")
library("igraph")
library("RGA")

#&#12463;&#12521;&#12452;&#12450;&#12531;&#12488;ID&#12434;&#35373;&#23450;
client.id <- "&#12463;&#12521;&#12452;&#12450;&#12531;&#12488;ID"
#&#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;"

#&#21462;&#24471;&#26399;&#38291;&#12398;&#25351;&#23450;
#&#38283;&#22987;
StartData <- "2015-11-06"
#&#32066;&#20102;
EndData <- "2015-11-13"

#&#12487;&#12540;&#12479;&#12434;&#35501;&#12415;&#36796;&#12415;id&#12398;&#30906;&#35469;&#12391;&#12377;
list_profiles()

#&#12487;&#12540;&#12479;&#21462;&#24471;id&#12398;&#35373;&#23450;
IDSet <- "ga:&#12487;&#12540;&#12479;&#21462;&#24471;id"

#&#12518;&#12540;&#12470;&#12540;&#27598;&#12398;&#12521;&#12531;&#12487;&#12451;&#12531;&#12464;&#12506;&#12540;&#12472;&#12392;&#38626;&#33073;&#12506;&#12540;&#12472;&#12434;&#21462;&#24471;
GetData <- get_ga(profile.id = IDSet, start.date = StartData, end.date = EndData,
                     metrics = "ga:users",
                     dimensions = "ga:landingPagePath, ga:exitPagePath")
#URL&#26411;&#23614;&#12434;&#21066;&#38500;
GetData[, 1] <- gsub(".php|.html", "", GetData[, 1])
GetData[, 2] <- gsub(".php|.html", "", GetData[, 2])

#&#12464;&#12521;&#12501;&#12487;&#12540;&#12479;&#21270;
#igraph&#12497;&#12483;&#12465;&#12540;&#12472;&#12434;&#21033;&#29992;
GraphData <- graph.data.frame(head(GetData, n = 20), directed = 0.7)

#&#12464;&#12521;&#12501;&#12398;&#25551;&#20889;
edgebundle(GraphData, width = 500, fontsize = 10)

###&#12381;&#12398;&#20182;&#12398;&#20363;#####
ws_graph <- watts.strogatz.game(1, 50, 4, 0.05)
edgebundle(ws_graph, tension = 0.1, padding = 20)
########

出力例

ノードをクリックしたり、中心部をドラッグして回転してみてください。パソコンでのアクセスをお勧めします。

・RGAパッケージを利用した例
プロット内容はTopページから離脱したページのアドレスです。ぜひ、頭に「karada-good.net/」を入力してアクセスしてみてください。

・その他の例

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