(从all_simple_paths)将igraph.vs对象列表转换为数据框

# 假设all_simple_paths返回的结果保存在变量paths中
paths <- all_simple_paths(graph, from = "A", to = "D")

# 创建一个空的数据框
df <- data.frame()

# 遍历每个路径
for (i in 1:length(paths)) {
  # 将路径中的节点名称提取出来，并转换为字符向量
  nodes <- as.character(paths[[i]])
  
  # 创建一个新的行，将节点名称作为列添加到数据框中
  new_row <- data.frame(nodes)
  
  # 将新行添加到数据框中
  df <- rbind(df, new_row)
}

# 打印转换后的数据框
print(df)