(igraph)基于属性的分组布局

library(igraph)
set.seed(1234)
G = erdos.renyi.game(20, 0.25)
V(G)$Group1 = sample(3,20, replace=TRUE)
plot(G, vertex.color=rainbow(3, alpha=0.4)[V(G)$Group1])

不执行任何操作，将忽略该组.

Without doing anything, the Group is ignored.

现在，我们需要创建一个可以绘制节点的布局在同一组中并拢.我们可以通过创建具有相同节点但在两个节点之间具有其他链接的图同一组中的节点.组内链接将被给出权重较高，则原始链接的权重较小.这将群集同一组中的节点.然后，我们将布局以绘制原始图，而无需额外的链接.他们只是为了获得良好的布局.

Now, we need to create a layout that will plot nodes in the same group close together. We can do this by creatinga graph with the same nodes, but with additional links between nodes in the same group. The within-group links will be given a high weight and the original links will be given a small weight. This will cluster nodes in the same group. We then apply thelayout to plotting the original graph, without the extra links. They were just to get a good layout.

G_Grouped = G
E(G_Grouped)$weight = 1

## Add edges with high weight between all nodes in the same group
for(i in unique(V(G)$Group1)) {
    GroupV = which(V(G)$Group1 == i)
    G_Grouped = add_edges(G_Grouped, combn(GroupV, 2), attr=list(weight=5))
} 

## Now create a layout based on G_Grouped
set.seed(567)
LO = layout_with_fr(G_Grouped)

## Use the layout to plot the original graph
plot(G, vertex.color=rainbow(3, alpha=0.4)[V(G)$Group1], layout=LO)

如果您想超出此范围以具有多个分组级别，则只需添加具有适当权重的其他链接即可连接子组.

If you want to go beyond this to have multiple levels of grouping, just add additional links with appropriate weights to connect the subgroups too.

这篇关于(igraph)基于属性的分组布局的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！