Rで解析：ネットワークグラフの作成が簡単です。「backShift」パッケージ

ネットワークグラフの作成は以外と手間がかかります。「backShift」パッケージの”plotGraphEdgeAttrコマンド”利用すると比較的簡単に作成することができましたので紹介します。ネットワークグラフをとりあえず書いてみたい人向けです。

パッケージのバージョンは0.1.4.3。windows11のR version 4.2.2で確認しています。

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

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

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

実行コマンドの紹介

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

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

#&#12487;&#12540;&#12479;&#20363;&#12398;&#20316;&#25104;
TestData <- matrix(sample(0:1, 100, replace = TRUE), 10, 10)
diag(TestData) <- 0

#&#12521;&#12505;&#12523;&#12399;&#25968;&#23383;&#12391;&#25991;&#23383;&#21015;&#12395;&#12377;&#12427;&#12398;&#12364;&#12509;&#12452;&#12531;&#12488;&#12391;&#12377;
colnames(TestData) <- as.character(1:10)

#&#12487;&#12540;&#12479;&#12398;&#12503;&#12525;&#12483;&#12488;
plotGraphEdgeAttr(estimate = TestData, plotStabSelec = FALSE, labels = colnames(TestData),
                  thres.point = 0, thres.stab = NULL, main = "TEST PLOT", edge.color = "red")

#&#30690;&#21360;&#65288;&#12494;&#12540;&#12489;&#65289;&#12398;&#33394;&#12399;&#25968;&#20516;&#12398;&#26368;&#22823;&#20516;&#12434;&#22522;&#28310;&#12395;&#27770;&#23450;&#12373;&#12428;&#12414;&#12377;
TestData[1, 6] <- 100
plotGraphEdgeAttr(estimate = TestData, plotStabSelec = FALSE, labels = colnames(TestData),
                  thres.point = 0, thres.stab = NULL, main = "TEST PLOT2", edge.color = "red")

出力例

・データのプロット

・矢印（ノード）の色は数値の最大値を基準に決定されます

少しでも、あなたの解析が楽になりますように！！