R：创建具有节点属性的“statnet”网络

我正在按照这里的示例使用“statnet”库http://personal.psu.edu/drh20/papers/v24i09.pdf http://personal.psu.edu/drh20/papers/v24i09.pdf.

第一个示例展示了如何在 R 中检查 statnet 网络对象：

library(statnet)
library(network)
 data("faux.magnolia.high") 
 fmh <- faux.magnolia.high 
summary(fmh)

在上面的例子中，这里看起来这个例子中的statnet网络已经有了“节点属性”。

使用 statnet 库，有谁知道是否有办法直接从数据帧创建具有节点属性的网络？

例如，如果我有一些如下所示的数据：

mydata <-data.frame(

"source" = c("123","124","123","125","123"),
"target" = c("126", "123", "125", "122", "111"),
"color" = c("red","red","green","blue","red"),
"food" = c("pizza","pizza","cake","pizza","cake")
)

假设我有一个预定义的节点属性列表：

Nodes <-data.frame(

"source" = c("123","124","125","122","111", "126"),

"Country" = c("usa", "uk", "uk", "usa", "uk", "usa")

)

我尝试了以下代码：

net = network(mydata)

但我不确定这是否创建了一个具有节点属性（颜色和食物）的网络。

我也尝试过这个，但没有成功：

mydata <-data.frame(

"source" = c("123","124","123","125","123"), "target" = c("126", "123", "125", "122", "111"), "color" = c("red","red","green","blue","red"), "food" = c("pizza","pizza","cake","pizza","cake") )

Nodes <-data.frame(

"source" = c("123","124","125","122","111", "126"),

"Country" = c("usa", "uk", "uk", "usa", "uk", "usa")

)

net<-network(mydata[,c[1:2])

edges <- as.sociomatrix(mydata[,c(3:4)],simplify=TRUE)

nodes <- as.sociomatrix(Nodes,simplify=TRUE)

final <- as.sociomatrix(list(net,edges,nodes))

有人可以告诉我如何创建具有节点属性的网络吗？

source: https://rdrr.io/github/statnet/network/man/as.sociomatrix.html https://rdrr.io/github/statnet/network/man/as.sociomatrix.html

Thanks

Igraph 可以，但是如果你想保留在网络包中，即 statnet 套件，你可以执行以下操作：

net<- as.network(mydata, matrix.type = "edgelist")
set.vertex.attribute(net, "color", as.character(mydata$color))
set.vertex.attribute(net, "food", as.character(mydata$food))
#To verify...
get.vertex.attribute(net, "color")

看来 set.vertex.attribute 函数不接受因素，因此 as.character()

如果您有很多顶点属性，您可以使用“apply”将 set.vertex.attribute 作为函数应用于具有顶点属性的数据框的列。

一般来说，Michael Heaney 提供的 statnet 套件的材料（教程）对我来说非常有用（材料链接在标题“夏季研讨会”下的第一个项目符号中）：http://michaeltheaney.com/teaching http://michaeltheaney.com/teaching