Я анализирую сеть из 500 узлов и 3000 ссылок.Я хочу показать, что некоторые узлы принадлежат друг другу, но «клики» и «сообщества» не привели к правильным результатам.
Я знаю, что другое математическое программное обеспечение способно вычислять вид физического моделирования, гдессылки обрабатываются как пружины, а сила связана с количеством связей между двумя узлами.Затем модель должна расположить узлы, чтобы выровнять все силы пружины.Я перепробовал несколько макетов, а также некоторые клики и функции сообщества.
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% узлов, сконцентрированных к центру, и несколько далеко за пределами, либо они очень запутанные и случайныеорганизованы.