我分析了约500个节点和3000个链接的网络。我想证明某些节点属于同一节点,但是“ cliques”和“ communities”并没有得出正确的结果。
我知道其他数学软件也可以计算一种物理模拟,其中链接被视为弹簧,力与两个节点之间的链接数有关。 然后,模型应安排节点以平衡所有弹簧力。 我尝试了几种布局,还尝试了一些派系和社区功能。
nrow(nodes)
[1] 560
nrow(links)
[1] 3020
net <- graph_from_data_frame(d=links, vertices=nodes, directed=T)
net <- simplify(net, remove.multiple = F, remove.loops = T)
l <- layout_with_dh(net)
plot(net, edge.curved=.2, edge.arrow.mode = 0, edge.arrow.size = 0.0,
vertex.label=V(net)$Data, vertex.label.color="black", vertex.label.cex=1.0,
layout = l, alpha = 0.5)
net.sym <- as.undirected(net, mode="each", edge.attr.comb=list(weight="sum", "ignore"))
clp <- cluster_fast_greedy(net.sym)
plot(clp, net.sym, vertex.label=V(net.sym)$Data)
生成的图要么显示99%的节点集中在中心,而几个在外面,要么非常混乱且随机排列。