使用visEdges进行R visNetwork + igraph加权网络可视化

Question

关于将igraph与visNetwork结合起来，我有一个非常简单的问题。我想用visEdges（值= E（图形）$ weight）来加权边缘，但这不起作用。 这是一个说明问题的玩具示例：

     test
     [,1] [,2] [,3] [,4] [,5]
[1,]    0    1    3    7    1
[2,]    4    0    8    9    5
[3,]   10    3    0    8    3
[4,]    5    1    5    0    7
[5,]    8    2    7    4    0

library(igraph); library(visNetwork)

test.gr <- graph_from_adjacency_matrix(test, mode="undirected", weighted=T)

如果我现在尝试将其可视化为加权图形，则不会绘制它：

test.gr %>%
  visIgraph(layout = "layout_in_circle") %>%
  visEdges(value = E(test.gr)$weight)

如果我使用

test.gr %>%
  visIgraph(layout = "layout_in_circle") %>%
  visEdges(value = 10)

相反，我得到了一个情节：

但这当然不是我想要的。根据E（test.gr）$ weigth，我想要不同的边缘宽度。

你能告诉我怎么做吗？

Answer 1

使用visNodes和visEdges，您可以为所有节点和边缘设置全局选项。用例如visNodes(shape = "square")，你的所有节点都是正方形。您了解这不是设置单个边缘宽度的正确途径。

要实现您的目标，您可以将igraph对象转换为visNetwork - 列表。然后，您可以添加名为“value”的“预期”列。然后visNetwork将使用该列为边缘赋予权重。

也许这不是最佳解决方案，但它确实有效。

test <- as.matrix(read.table(header = FALSE, text = "
    0    1    3    7    1
    4    0    8    9    5
   10    3    0    8    3
    5    1    5    0    7
    8    2    7    4    0"))

library(igraph)
library(visNetwork)

## make igraph object
test.gr <- graph_from_adjacency_matrix(test, mode="undirected", weighted=T)

## convert to VisNetwork-list
test.visn <- toVisNetworkData(test.gr)
## copy column "weight" to new column "value" in list "edges"
test.visn$edges$value <- test.visn$edges$weight

test.visn$edges
# from to weight value
#   V1 V2      4     4
#   V1 V3     10    10
#   V1 V4      7     7
#   V1 V5      8     8
#   V2 V3      8     8
#   V2 V4      9     9
#   V2 V5      5     5
#   V3 V4      8     8
#   V3 V5      7     7
#   V4 V5      7     7

visNetwork(test.visn$nodes, test.visn$edges) %>%
  visIgraphLayout(layout = "layout_in_circle") 

这会产生以下图表：

请让我知道这是否是你想要的。