替代lapply生成非等长目标列表：igraph路径转节点对实现

要把igraph路径列表转换成符合要求的dataframe，核心是先将单个路径转换为包含from/to/group的小数据框，再把所有小数据框合并，而不是保留原列表的分组结构。以下是两种实现方式：

Base R 实现 #

先定义一个处理单条路径的函数，再用lapply遍历所有路径，最后用do.call(rbind, ...)合并结果：

# 定义处理单条路径的函数
process_single_path <- function(path) {
  # 提取路径中所有顶点的名称
  vertex_names <- names(path)
  # 生成相邻顶点对的from和to
  from <- vertex_names[-length(vertex_names)]
  to <- vertex_names[-1]
  # 生成group：每个顶点对对应路径的第一个顶点名称
  group <- rep(vertex_names[1], length(from))
  # 返回该路径对应的小数据框
  data.frame(from = from, to = to, group = group, stringsAsFactors = FALSE)
}

# 处理整个路径列表并合并成最终数据框
final_df <- do.call(rbind, lapply(your_path_list, process_single_path))

Tidyverse 实现 #

用purrr::map_dfr可以更简洁地完成遍历+合并的操作（自动将结果绑定成数据框）：

library(tidyverse)

final_df <- map_dfr(your_path_list, function(path) {
  vertex_names <- names(path)
  tibble(
    from = vertex_names[-length(vertex_names)],
    to = vertex_names[-1],
    group = rep(vertex_names[1], length(from))
  )
})

关键说明 #

• 之前用lapply得到分组子列表，是因为你可能直接对每个路径生成了独立的from/to/group列表，而没有将其转换为数据框再合并。
• 最终得到的final_df中，每一行对应一个相邻顶点对，group列标记该顶点对所属路径的首个顶点名称，完全满足绘图或LCS评分的后续需求。

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