我想展示社交网络随时间的变化。我正在使用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)
答案 0 :(得分:0)
要解决这个问题,我不得不摆脱行
g2<-V(g)[degree(g)<1]
g<-delete.vertices(g,g2)
随着这些线的消失,无论我使用哪个数据集,顶点都会保持在相同的位置。