Rで解析：ネットワーク図や2部グラフをプロット！！「multigraph」パッケージ

ネットワーク図や2部グラフが作成できるパッケージの紹介です。自身の集団と相手の集団との関係性を把握するのにおすすめなパッケージです。

パッケージバージョンは0.97-2。windows 11のR version 4.1.3で動作を確認しています。

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

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

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

実行コマンドの紹介

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

#パッケージ読込み
library("multigraph")

###データ例の作成#####
TestData <- array(data = sample(1:100, 50, replace = TRUE), dim = c(5, 5, 2),
                  dimnames = list(paste0("Data", 1:5), paste0("Group", 1:5)))
#ネットワーク用データを作成
TestZeroOne <- ifelse(TestData > 50, 1, 0)
########

#ネットワーク図を作成:multigraphコマンド
#データを指定:netオプション
#エッジに指向性を付与:directedオプション;FALSEでなし
#レイアウト設定:layoutオプション;circ,force,stress,conc,randの設定が可能
#タイトルを設定:main;初期値NULL
#ノード,エッジ,背景色の透明度:alphaオプション;bgは1以外うまく動かない
#ノード色を指定:vcolオプション
#エッジ色を指定:ecolオプション
#背景色を指定:bgオプション
#ラベルサイズ:tcexオプション
#ラベル位置:posオプション
par(mfrow = c(2, 3))
LayoutSet <- c("circ", "force", "stress", "conc", "rand")
for(i in seq(LayoutSet)){
  multigraph(net = TestZeroOne, directed = TRUE,
             layout = LayoutSet[i], main = paste0("Layout::", LayoutSet[i]),
             alpha = c(vertex = .5, edge = 1, bg = 1),
             vcol = "#9e323a", ecol = "black", bg = "white",
             cex = apply(TestData, 1, sum), tcex = .7, pos = 0)}

#2部グラフを作成:bmgraphコマンド
#レイアウト設定:layoutオプション;"bip", "bip3", "bip3e",
#"bip3e", "bipc", "force","rand", "circ", "stress",
#"CA", "circ2"の設定が可能
par(mfrow = c(4, 3))
LayoutSet <- c("bip", "bip3", "bip3e", "bipc", "force",
               "rand", "circ", "stress", "CA", "circ2")
for(i in seq(LayoutSet)){
  bmgraph(net = TestZeroOne, directed = TRUE,
          layout = LayoutSet[i], main = paste0("Layout::", LayoutSet[i]),
          pch = c(19, 15), vcol = c("#8ebcf6", "#ddd5fa"), ecol = "black")}