来自数据帧的加权图

Question

我有一个边列表，希望将其转换为加权图。我使用了以下代码：

edgelist <- read.table(text = "
V1 v2 weights
A B 1
B C 8
C D 6
D E 9
C F 12
F G 15",header=T)


g<-graph_from_data_frame(edgelist)
g

将权重作为边缘的属性。但是，当我要检查它是否加权时意味着：

is_weighted(g)

它返回我FALSE。如何将其更改为TRUE？

Answer 1

您非常亲密。如果您使用is_weighted阅读文档，则可以阅读以下内容：

  

在igraph中，边缘权重通过edge属性表示，称为   “体重”

现在，如果我们将您的“体重”列的名称更改为“ weight”，它将起作用。

edgelist <- read.table(text = "
V1 v2 weight
                       A B 1
                       B C 8
                       C D 6
                       D E 9
                       C F 12
                       F G 15",header=T)
g <- graph_from_data_frame(edgelist)
is_weighted(g)
[1] TRUE

如果由于某种原因而无法重命名列，则始终可以像这样手动设置权重：

# based on the weights column if you can't rename input data.frame
g <- set_edge_attr(g, "weight", value= edgelist$weights)
is_weighted(g)
[1] TRUE