無向グラフで重複したエッジを統合したい

Question

前提・実現したいこと

igraphにより無向グラフを描画する際、重複したエッジを統合する方法を知りたく思っています。

具体的には、下記のコードを実行すると表示される以下の図について、「2」と「3」のノードから出ている二つのエッジをまとめて表示したいと思っています。

その際、単に1本にまとめるのではなく、エッジの本数分（この場合は2本分）の太さにしたいと思っております。

該当のソースコード

library("igraph")
g<-matrix(c(
1,1,1,0,
1,2,2,1,
1,2,2,1,
0,1,1,1),
nrow=4,ncol=4,byrow=TRUE)
g <- graph.adjacency(g, mode = "undirected", diag = FALSE)
plot(g)

試したこと

以下のコードを実行すると1本にまとめることはできましたが、エッジの本数分の太さにすることはできませんでした。

g <- simplify(g, remove.multiple = T)

エッジの太さは、plot()を実行する際にedge.widthで調整できることまでは分かりました。

plot(g,edge.width=値)

初歩的な質問かもしれず恐縮ですが、どうぞよろしくお願いいたします。

Answer 1

以下の方法で解決することができました。お騒がせしました。

library(igraph)
g<-graph_from_adjacency_matrix(
matrix(c(
1,1,1,0,
1,2,2,1,
1,2,2,1,
0,1,1,1),
nrow=4,ncol=4,byrow=TRUE),
mode="undirected",weighted=TRUE,diag=FALSE)
ew <- abs(E(g)$weight)*2
plot(g,edge.width = ew)

ポイントは以下の通りです。

• graph_from_adjacency_matrix()関数を用いる。
• エッジの太さを多重辺の本数分にするため、「ew <- abs(E(g)$weight)*2」を用意する。

また、plot()で出力する際にedge.width=ewで記述する。