如何用R的igraph使同组节点聚集且保留球面网络布局？

针对你遇到的layout_on_sphere默认随机分布节点导致同组分散的问题，这里提供两种可行的解决方案：

方法1：基于力导向布局投影到球面 #

先使用支持组聚集的力导向布局（比如layout_with_fr）让同组节点自然聚集，再将布局坐标投影到单位球面，既保留球面形状，又保证同组节点靠近：

# 1. 运行力导向布局，让同组节点基于连接关系聚集
set.seed(222)
l_fr <- layout_with_fr(net)  # 若需要更强的组聚集，可自定义权重增强同组吸引力

# 2. 将力导向布局的坐标投影到单位球面
dist_to_origin <- sqrt(rowSums(l_fr^2))  # 计算每个节点到原点的距离
l_sphere_group <- l_fr / dist_to_origin  # 归一化到单位长度，得到球面坐标

# 3. 绘制网络
plot(net,
     vertex.color = colors[group],
     vertex.size = 3,
     edge.arrow.size = 0.1,
     edge.color = 'grey',
     vertex.label.cex = 0.1,
     layout = l_sphere_group)

如果需要更强的组内聚集，可以手动构建权重矩阵：给同组节点之间的边设置更高权重，让力导向布局更倾向于把同组节点拉在一起，示例如下：

# 构建权重矩阵：同组节点间的边权重设为2，不同组设为1
weights <- ifelse(V(net)$group[as_edgelist(net)[,1]] == V(net)$group[as_edgelist(net)[,2]], 2, 1)
l_fr_weighted <- layout_with_fr(net, weights = weights)
# 后续投影步骤同上

方法2：手动划分球面区域分配同组节点 #

直接按组划分球面的不同扇区，将同组节点限制在对应区域内，适合不需要严格保留连接关系、仅需视觉分组的场景：

set.seed(222)
groups <- unique(V(net)$group)
n_groups <- length(groups)

# 为每个组分配球面的角度范围
angle_ranges <- seq(0, 2*pi, length.out = n_groups + 1)

# 初始化自定义球面布局矩阵
l_custom <- matrix(0, nrow = vcount(net), ncol = 3)

for (i in seq_along(groups)) {
  # 获取当前组的节点索引
  group_nodes <- which(V(net)$group == groups[i])
  n_nodes <- length(group_nodes)
  
  # 在对应角度范围内生成球面坐标（转换为笛卡尔坐标）
  theta <- runif(n_nodes, angle_ranges[i], angle_ranges[i+1])  # 方位角
  phi <- runif(n_nodes, 0, pi)  # 极角
  
  x <- sin(phi) * cos(theta)
  y <- sin(phi) * sin(theta)
  z <- cos(phi)
  
  l_custom[group_nodes, ] <- cbind(x, y, z)
}

# 绘制网络
plot(net,
     vertex.color = colors[group],
     vertex.size = 3,
     edge.arrow.size = 0.1,
     edge.color = 'grey',
     vertex.label.cex = 0.1,
     layout = l_custom)

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