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

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

#パッケージの読み込み
library("edgebundleR")
library("igraph")
library("RGA")

#クライアントIDを設定
client.id <- "クライアントID"
#クライアントシークレットを設定
client.secret <- "クライアントシークレット"

#取得期間の指定
#開始
StartData <- "2015-11-06"
#終了
EndData <- "2015-11-13"

#データを読み込みidの確認です
list_profiles()

#データ取得idの設定
IDSet <- "ga:データ取得id"

#ユーザー毎のランディングページと離脱ページを取得
GetData <- get_ga(profile.id = IDSet, start.date = StartData, end.date = EndData,
                     metrics = "ga:users",
                     dimensions = "ga:landingPagePath, ga:exitPagePath")
#URL末尾を削除
GetData[, 1] <- gsub(".php|.html", "", GetData[, 1])
GetData[, 2] <- gsub(".php|.html", "", GetData[, 2])

#グラフデータ化
#igraphパッケージを利用
GraphData <- graph.data.frame(head(GetData, n = 20), directed = 0.7)

#グラフの描写
edgebundle(GraphData, width = 500, fontsize = 10)

###その他の例#####
ws_graph <- watts.strogatz.game(1, 50, 4, 0.05)
edgebundle(ws_graph, tension = 0.1, padding = 20)
########