Question

我创建了一个图形对象

ig <- graph(df$ig)

并希望能够根据网络矩阵

绘制带加权边的图

ig[]

ig[]未加权，如何直接从网络矩阵添加权重，以便我可以使用E(ig)$weight访问它？

Answer 1

您可以像这样对图表进行加权：

实施例： gg3 <- graph.ring(10)

 [1,] . 1 . . . . . . . 1
 [2,] 1 . 1 . . . . . . .
 [3,] . 1 . 1 . . . . . .
 [4,] . . 1 . 1 . . . . .
 [5,] . . . 1 . 1 . . . .
 [6,] . . . . 1 . 1 . . .
 [7,] . . . . . 1 . 1 . .
 [8,] . . . . . . 1 . 1 .
 [9,] . . . . . . . 1 . 1
[10,] 1 . . . . . . . 1 .

E(gg3)$weight <- 15

 [1,]  . 15  .  .  .  .  .  .  . 15
 [2,] 15  . 15  .  .  .  .  .  .  .
 [3,]  . 15  . 15  .  .  .  .  .  .
 [4,]  .  . 15  . 15  .  .  .  .  .
 [5,]  .  .  . 15  . 15  .  .  .  .
 [6,]  .  .  .  . 15  . 15  .  .  .
 [7,]  .  .  .  .  . 15  . 15  .  .
 [8,]  .  .  .  .  .  . 15  . 15  .
 [9,]  .  .  .  .  .  .  . 15  . 15
[10,] 15  .  .  .  .  .  .  . 15  .

或

E(gg3)$weight <- c(20,10)

 [1,]  . 20  .  .  .  .  .  .  . 10
 [2,] 20  . 10  .  .  .  .  .  .  .
 [3,]  . 10  . 20  .  .  .  .  .  .
 [4,]  .  . 20  . 10  .  .  .  .  .
 [5,]  .  .  . 10  . 20  .  .  .  .
 [6,]  .  .  .  . 20  . 10  .  .  .
 [7,]  .  .  .  .  . 10  . 20  .  .
 [8,]  .  .  .  .  .  . 20  . 10  .
 [9,]  .  .  .  .  .  .  . 10  . 20
[10,] 10  .  .  .  .  .  .  . 20  .

检查一下： Using edge-lists with associated edge values to create a weighted network。

Answer 2

以下答案可能有所帮助（[igraph] capturing edge weights in g <- graph.data.frame?）：

如果未明确在数据框中给出权重，但您只是想要要使用电子邮件交换的数量作为权重，您可以这样做：

> df <- data.frame(from=c("a", "b", "a"), to=c("b", "a", "b"))
> g <- graph.data.frame(df)
> E(g)$weight <- 1
> g <- simplify(g, edge.attr.comb="sum")

然后我添加了以下行，以便能够在图表中绘制宽度。

 E(themes_graph)$width <-E(themes_graph)$weight/15

在R

2 个答案: