ノード間の関係を相互に2方向であらわすネットワーク図を作成するには

前提・実現したいこと

Rでのネットワーク図での可視化について教えてください。
私は、上の左表のように、右上と左下が線対象ではない相互関係の強さを表したデータセットを持っています。
これは、例えば表中の「-2」は、BがAに及ぼす影響が「-2」であることをあらわすものです。
このデータを相互関係が分かりやすくなるように、右のようなネットワーク図で表したいと思っていろいろと試していました。
qgraph関数では、矢印や線は主に相関係数を表すことを想定されているようで、上左図のように二者の関係が対象でない場合、上右図のように矢印2本で双方向の関係を2本の矢印で表すことはできませんでした。
このような図を作成するうまく作成する方法などをご存じの方がいらっしゃれば教えてください。
よろしくお願いいたします。

参考

https://www.trifields.jp/visualize-data-as-network-using-qgraph-on-r-2572
のqgraph.animateと書いてある直前にある画像をイメージしています。

(恐らく意図したものと違うものができていると思うのですが、以下のコードなどを調べたり試したりしていました。)

r
1library("qgraph")
2library("huge")
3dataf<-read.csv("test.csv")
4bfi_huge <- huge(huge.npn(dataf), method = "glasso")
5# Manual select and plot:
6sel <- huge.select(bfi_huge)
7qgraph(sel$opt.icov, layout = "spring")