如何重构音节组合数据以使用igraph实现网络可视化？

你的节点数据已经通过dplyr生成完成，接下来的核心是构建边列表——也就是定义哪些音节组合之间需要连边。通常这类网络的边规则是「两个组合仅有一个音节位置不同」，下面是完整的数据重构和可视化步骤：

1. 生成边列表 #

我们需要为每个节点，找到所有仅替换一个音节就能得到的其他节点，然后记录这些节点对作为边：

library(dplyr)
library(igraph)

# 你的原代码：生成节点数据
objects <- c("ha", "mu", "ra", "bi")
combinations <- expand.grid(objects, objects, objects, objects)

combinations$name <- apply(combinations, 1, function(x) {
    paste(x, collapse = "-")
})

combinations$id = 1:nrow(combinations)

combinations <- select(combinations, id, everything())

# 定义函数：为单个节点生成所有相邻节点的边
generate_adjacent_edges <- function(node_row) {
  edges_list <- list()
  # 遍历4个音节位置
  for (pos in 1:4) {
    current_syl <- node_row[[paste0("Var", pos)]]
    # 获取当前位置可替换的其他音节
    alternative_syls <- objects[objects != current_syl]
    # 生成每个替换后的组合，匹配对应节点ID
    for (syl in alternative_syls) {
      new_node_data <- node_row
      new_node_data[[paste0("Var", pos)]] <- syl
      new_node_name <- paste(new_node_data[2:5], collapse = "-")
      target_id <- combinations$id[combinations$name == new_node_name]
      edges_list <- c(edges_list, list(c(node_row$id, target_id)))
    }
  }
  return(edges_list)
}

# 批量生成所有边并去重（避免A->B和B->A重复）
all_edges <- lapply(1:nrow(combinations), function(i) generate_adjacent_edges(combinations[i, ]))
edges_df <- do.call(rbind, all_edges) %>%
  as.data.frame() %>%
  setNames(c("from", "to")) %>%
  distinct()

2. 构建网络并可视化 #

用生成的节点数据和边列表构建igraph对象，然后调整绘图参数优化显示效果：

# 构建无向网络
syllable_network <- graph_from_data_frame(
  d = edges_df,
  vertices = combinations,
  directed = FALSE
)

# 绘图（节点较多时隐藏标签避免拥挤）
plot(syllable_network,
     vertex.label = NA,  # 若需要显示标签，改为 vertex.label = combinations$name
     vertex.size = 3,
     edge.width = 0.5,
     layout = layout_with_fr(syllable_network)  # 用Fruchterman-Reingold布局，节点分布更均匀
)

可选调整 #

如果需要显示节点标签，可修改绘图参数：

plot(syllable_network,
     vertex.label = combinations$name,
     vertex.label.cex = 0.4,  # 缩小标签字号
     vertex.size = 4,
     edge.width = 0.3,
     layout = layout_with_fr(syllable_network)
)

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