0

我想展示社交网络如何随时间变化。我正在使用 igraph。

问题是，每次我在社交网络中创建一个时间段的图形表示时，程序都会将每个创建的图形的顶点放在不同的位置。这是一个问题，因为我试图展示社交网络组如何随着时间的推移继续/停止。

我尝试通过键入 l<-layout.fruchterman.reingold(g)然后使用layout=l我创建的每个后续图形来指示顶点的位置。但是，我收到一条如下所示的错误消息：

Error in layout[v, , drop = FALSE] : subscript out of bounds

这是我正在使用的代码：

    require(igraph)
cat<-read.csv(file="Bigplayers_3_36505-36605 - Copy.csv",header=F,sep=",")
cat<-as.matrix(cat)
set.seed(230)
g <- graph.adjacency(cat, weighted=T, mode = "undirected")
g2<-V(g)[degree(g)<1]
g<-delete.vertices(g,g2)
fg<-cluster_fast_greedy(g,merges=T,modularity=T,membership=T)
colors<-rainbow(max(membership(fg)))
V(g)$label<-V(g)$name
plot(g,vertex.size=10,vertex.color=colors[membership(fg)],mark.groups=communities(fg),layout=layout.fruchterman.reingold, main='Enron Email Dataset', vertex.label.dist=0.5, vertex.frame.color='blue', vertex.label.color='black', vertex.label.font=1)

这是两个数据集，它们代表不同时间范围内的相同顶点：here和here

4

1 回答 1

0

为了解决这个问题，我不得不摆脱线条

g2<-V(g)[degree(g)<1]
g<-delete.vertices(g,g2)

随着这些线的消失，无论我使用哪个数据集，顶点都会保持在相同的位置。

于 2015-10-24T18:23:42.607 回答