使用lapply和igraph生成二级邻居列表

install.packages("igraph")

library(igraph)

# 创建一个有向图
g <- make_empty_graph(directed = TRUE)

# 添加节点
g <- add_vertices(g, 5)

# 添加边
g <- add_edges(g, c(1,2, 1,3, 2,4, 3,4, 4,5))

# 使用lapply和neighbors函数生成二级邻居列表
second_neighbors <- lapply(V(g), function(v) {
  neighbors(v, mode = "out") %>%
    lapply(function(n) neighbors(n, mode = "out"))
})

# 打印二级邻居列表
print(second_neighbors)