既存のRアプリケーション/パッケージとのコラボレーションネットワーク構造の視覚化

Question

"合弁企業"（つまり、企業が製品の他の人と協力する）のリレーショナルデータ構造を視覚化しようとしています。例えば、企業iは企業jとのジョイントベンチャーAに関与しているかもしれないが、企業iは会社jと会社kとの合弁事業Bにも参加しているので、企業i、j、kは共に、企業iとjがより多くのジョイントで協力するにつれて、企業{i、j}と企業{i、j}との間の協調の強さは企業{i、k}ベンチャー。

私はこれらの象徴的なネットワークグラフでこれを視覚化しますが、異なるダイアド（企業）によって異なる関係の強さを強調したいと思います。私の考えでは、マーク・ニューマンの共著論文であるPNAS（Newman 2004）を図6に示します。図6では、ノードの各ペア（すなわち著者）が異なる厚さのエッジで接続されており、共同著者の強さ著者の各ペア間の強度（2間のコラボレーション作品のすなわち、数）、下に示す画像のよう：

私はRのIGRAPHと二部に関連する（例えばthis oneなど）前回の記事の数をチェックアウトしましたパッケージではありますが、二部構成のネットワークとそのアプリケーションが私の目的に合っているとは思われません。

私はネットワーク内の各ノード間の接続の強さを視覚化するのに役立つ既存のRパッケージ/アプリケーションがあるかどうか、（2）このタイプのデータの構造のように見える？ （ 'firm'、 'project'を列や行として使用します）

ありがとうございます。

Answer 1

@ R.Bに記載のとおり、visNetworkライブラリを使用することができます。発明されたデータとコードは次のようになります。

library(igraph) 
library(visNetwork) 

set.seed(98765) # for reproducibility 
### generate some data, 
### nodes are entitities: letters represent contributors 
nodes <- data.frame(id = 1:11, 
        label = LETTERS[1:11], # name of node 
        title = LETTERS[1:11]) # optional tooltip 
### edges represent relations 
edges <- data.frame(
    from = sample(1:11, 50, replace = TRUE), 
    to = sample(1:11, 50, replace = TRUE), 
    arrows = "", 
    width = c(rep(1, 20), rep(4, 20), rep(6,6), rep(10, 3), 15) ## weights 
) 


visNetwork(nodes, edges, width = "100%") %>% 
    visIgraphLayout(layout = "layout_in_circle") %>% 
    visNodes(size = 25) %>% 
    visOptions(highlightNearest = list(enabled = F, hover = T)) 

をこれは、（HTMLでインタラクティブ）次のプロット

を生成し、私はこれがあなたが望むものであるかどうかをお知らせください。