Rで解析：D3 JavaScriptでぐりぐり動く、クラゲ、くらげ「qrage」パッケージの紹介

D3 JavaScriptを利用してRでインタラクティブなグラフを作成できる「qrage」パッケージを紹介します。。本パッケージはコマンドが解りやすく非常に面白いです。コマンドを実行するとかなりぐりぐり動きます。

RStudioから実行することをお勧めします。パッケージバージョンは1.0。windows11のR version 4.2.2で確認しています。

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

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

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

実行コマンド

ラベルには日本語も使用することができます。コマンドを実行してみてください。

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

#&#21442;&#32771;&#12467;&#12510;&#12531;&#12489;
#&#12494;&#12540;&#12489;&#12522;&#12531;&#12463;&#12398;&#20316;&#25104;
TestNode <- data.frame(source = c("&#12354;", "A", "B", "B", "C", "C"),
                          target = c("D", "E", "D", "E", "D", "F"),
                          value = c(1234, 120, 2345, 1432, 800, 600))

#&#33394;&#12487;&#12540;&#12479;&#12398;&#20316;&#25104;
TestColor <- data.frame(name = c("&#12354;", "A", "B", "C", "D", "E", "F"),
                           color = c("#d9bb9c", "#28231e", "#4b61ba",
                                              "#ffdd99", "#ffdd99", "#deb7a0", "#8a5136"))
                                              
#&#12494;&#12540;&#12489;&#12471;&#12531;&#12508;&#12523;&#12469;&#12452;&#12474;&#12398;&#35373;&#23450;
TestValues <- data.frame(name = c("&#12354;", "A", "B", "C", "D", "E", "F"),
                            nodeValues = c(1.6, 0.5, 0.3, 0.1, 0.9, 0.2, 0.4))

#&#12464;&#12521;&#12501;&#12398;&#25551;&#20889;
qrage(links = TestNode, nodeColor = TestColor, nodeValue = TestValues,
      width = 800, height = 800)

#&#12504;&#12523;&#12503;&#35352;&#36617;&#12398;&#12467;&#12510;&#12531;&#12489;&#12391;&#12377;&#12290;&#12380;&#12402;&#23455;&#34892;&#12375;&#12390;&#12415;&#12390;&#12367;&#12384;&#12373;&#12356;
#&#12494;&#12540;&#12489;&#12522;&#12531;&#12463;&#12398;&#12487;&#12540;&#12479;
data(links)
#&#33394;&#12487;&#12540;&#12479;
data(nodeColor)
#&#12494;&#12540;&#12489;&#12471;&#12531;&#12508;&#12523;&#12469;&#12452;&#12474;
data(nodeValues)
#&#12464;&#12521;&#12501;&#12398;&#25551;&#20889;
qrage(links=links,nodeColor=nodeColor,nodeValue=nodeValues,cut=0.1)