bugfix> r > 投稿

私は米国上院議員のTwitterネットワークを見ています。上院議員(nodeIdSelectionを使用)を選択し、選択したノードに接続されたノードのみを強調表示し、これらの接続されたエッジのみを強調表示できるようにしています(これはわかりません)。接続されている他のノード間のエッジは表示されません。次数= 0に設定すると、接続されたエッジのみが強調表示されるという点で、探している結果が得られますが、接続されたノード(円)は表示されません。

visNetwork(nodes, edges) %>% 
 visIgraphLayout(layout = "layout_with_fr") %>% 
 visOptions(highlightNearest = list(enabled = TRUE, algorithm = "all",
                                    degree = 0, hideColor = "rgba(0,0,0,0)"), 
                                    nodesIdSelection = TRUE) %>% 
 visInteraction(navigationButtons = TRUE)

このコードは私に与えます:

次数を1に設定すると、正しい接続ノードが表示されますが、選択したノードにも接続されていない他のノード間にもセカンダリ接続エッジが表示されます。 100人の上院議員と2,000を超える接続があるため、これらの2次接続を使用して視覚化するにはプロットが「ビジー」です。

visNetwork(nodes, edges) %>% 
 visIgraphLayout(layout = "layout_with_fr") %>% 
 visOptions(highlightNearest = list(enabled = TRUE, algorithm = "all",
                                    degree = 1, hideColor = "rgba(0,0,0,0)"), 
                                    nodesIdSelection = TRUE) %>% 
 visInteraction(navigationButtons = TRUE)

このコードは私に与えます:

ご覧のとおり、プロットは非常に忙しくなります。選択したノードに接続されているエッジだけでなく、接続されているノードも表示するという点で、度= 0で表示される結果を取得する方法はありますか?

助けてくれてありがとう。画像が少し読みにくい場合は申し訳ありません。再度、感謝します。

回答 1 件
  • あなたは degree = 1 が欲しい 。

    library(igraph)
    g <- graph("Zachary")
    library(visNetwork)
    vis_g <- toVisNetworkData(g)
    visNetwork(vis_g$nodes, vis_g$edges) %>%
      visIgraphLayout(layout = "layout_with_fr") %>%
      visEdges(color = list(highlight = "blue", hover = "blue")) %>%   # explicit edge options
      visOptions(highlightNearest = list(enabled = TRUE, degree = 1,
                                         labelOnly = FALSE, hover = TRUE),
                 nodesIdSelection = list(selected = 6))
    
    

    reprexパッケージ(v0.2.0)によって2018-05-26に作成されました。

あなたの答え