igraph中如何按合作方类别对分类节点进行聚类排布

你可以通过以下两种代码实现的方式完成需求，无需手动调整节点位置：

方法1：基于加权布局算法自动聚类 #

该方案不需要预先指定类别位置，通过给同类别节点增加隐形高权重边强化吸引力，让布局算法自动把同类别节点聚到一起：

• 实现逻辑：利用Fruchterman-Reingold等力导向布局的特性，边权重越高，两端节点的吸引力越强，我们给同类别所有节点之间加辅助高权重边，就能实现同类聚拢效果
• 示例代码：

# 假设你的节点属性partner_type存储合作方类别，可替换为你实际的属性名
node_types <- V(net)$partner_type
unique_types <- unique(node_types)
aux_edges <- c()

# 遍历每个类别，生成类别内部所有节点两两配对的辅助边
for (t in unique_types) {
  type_node_ids <- which(node_types == t)
  if (length(type_node_ids) >= 2) {
    aux_edges <- c(aux_edges, as.vector(combn(type_node_ids, 2)))
  }
}

# 生成带辅助边的临时图，辅助边权重设为5，可根据聚拢松紧需求调整数值
net_with_aux <- add_edges(net, aux_edges, attr = list(weight = 5))
# 原始业务边默认权重设为1，如果你已有边权重可跳过这步
E(net_with_aux)$weight[is.na(E(net_with_aux)$weight)] <- 1

# 生成布局
layout <- layout_with_fr(net_with_aux, weights = E(net_with_aux)$weight)

# 用原始网络图和生成的布局绘图即可
plot(net, layout = layout)

方法2：锚定类别中心点实现固定分区排布 #

如果你需要大致控制各类别所在区域，可以给每个类别分配中心点，同类别节点围绕中心点做小范围偏移：

• 实现逻辑：预先给每个合作方类别分配一个二维坐标作为聚类中心，每个节点的坐标为对应中心加小范围随机偏移，既保证同类聚拢，也能避免节点完全重叠
• 示例代码：

# 自定义每个类别的中心点坐标，可根据你的需求调整位置
type_center_map <- list(
  "医院" = c(-1.5, 1.5),
  "司法" = c(0, 1.5),
  "business" = c(1.5, 0),
  # 补充其他合作方类别的中心点
)

# 生成布局矩阵
layout <- matrix(nrow = vcount(net), ncol = 2)
for (i in 1:vcount(net)) {
  current_type <- V(net)$partner_type[i]
  center <- type_center_map[[current_type]]
  # 0.3是随机偏移的幅度，数值越大同类节点越分散，可调整
  layout[i, ] <- center + rnorm(2, mean = 0, sd = 0.3)
}

# 绘图
plot(net, layout = layout)

效果调整提示 #

• 方法1中调整辅助边的权重值，权重越高同类别节点聚拢越紧密
• 方法2中调整随机偏移的sd参数，即可控制同类节点的分散程度

内容的提问来源于stack exchange，提问作者arieger