在R igraph中將all_shortest_paths vpath轉換為epath

Question

是否有一種簡單的方法來轉換或獲取all_shortest_paths返回的vpath的epath？

library(igraph)

g <- make_ring(10)

# Returns epaths
shortest_paths(g, 1, 6, output="epath")

# Does not return epaths
all_shortest_paths(g, 1, 6)

Answer 1

您可以使用E()函數使用path=參數將一系列折點轉換為邊列表。

lapply(all_shortest_paths(g, 1, 6)$res, function(x) E(g, path=x))
# [[1]]
# + 5/10 edges:
# [1] 1--10 9--10 8-- 9 7-- 8 6-- 7
# 
# [[2]]
# + 5/10 edges:
# [1] 1--2 2--3 3--4 4--5 5--6