如何通过一系列顶点对最短路径列表进行子集化？

Question

使用这个for循环，我已经存储了网络中每个节点之间的所有最短路径“original.graph”。

POI <- list()
for(i in seq_along(V(original.graph))){
    this.name <- V(original.graph)[[i]]
    sp <- shortest_paths(original.graph, from = this.name[1], to = V(original.graph), mode = "out")
    POI[[this.name$name]] <- sp$vpath
  }

以下是数据示例：

> POI[[1]][1:5]
[[1]]
+ 1/44 vertex, named:
[1] V1

[[2]]
+ 2/44 vertices, named:
[1] V1 V2

[[3]]
+ 2/44 vertices, named:
[1] V1 V3

[[4]]
+ 2/44 vertices, named:
[1] V1  V3A

[[5]]
+ 2/44 vertices, named:
[1] V1 V4

因此，假设我们想要将其中包含“V1”“V4”的所有最短路径进行子集化，在这种情况下它只会选择POI[[1]][5]。

我正在尝试对包含给定序列的所有最短路径进行子集化。我一直在尝试将POI[[i]]转换为另一种对象类型，似乎使用as.data.frame.vector已成功。如果有人可以就如何处理这个问题给我建议，或者指出我从哪里开始，我将不胜感激。