r - 从 shortestPath iGraph 对象收集集合中的边

Question

我正在尝试从最短路径 iGraph 函数创建的对象中收集所有唯一边。

> data<-as.matrix(data)
> data
  Q W E R T Y U I
Q 0 4 7 5 0 4 0 0
W 2 0 5 7 3 2 4 9
E 2 4 0 9 2 2 7 2
R 2 2 2 0 6 0 5 8
T 0 8 8 5 0 5 9 0
Y 4 7 2 6 0 0 5 7
U 0 0 0 0 2 0 0 9
I 2 0 6 7 0 2 0 0

network<-graph.adjacency(adjmatrix = data,weighted = TRUE, mode="directed" , diag = FALSE )

shortestPath<-shortest_paths(graph = network, from = 1, to = 1:8,mode = "out", output = "epath")

> shortestPaths$epath
[[1]]
+ 0/41 edges from b068eeb (vertex names):

[[2]]
+ 1/41 edge from b068eeb (vertex names):
[1] Q->W

[[3]]
+ 2/41 edges from b068eeb (vertex names):
[1] Q->Y Y->E

[[4]]
+ 1/41 edge from b068eeb (vertex names):
[1] Q->R

[[5]]
+ 2/41 edges from b068eeb (vertex names):
[1] Q->W W->T

[[6]]
+ 1/41 edge from b068eeb (vertex names):
[1] Q->Y

[[7]]
+ 2/41 edges from b068eeb (vertex names):
[1] Q->W W->U

[[8]]
+ 3/41 edges from b068eeb (vertex names):
[1] Q->Y Y->E E->I

我想计算最短路径中唯一边的数量，以便我可以计算定义为 - 的图的密度

密度=(最短路径上唯一边的数量)/(边的总数)

这需要对图中的所有对最短路径完成。

我如何计算所有对设置中最短路径上的唯一边的数量。

谢谢

Answer 1

您可以取消列出，找到独特的边并获取结果向量的长度:

length(unique(unlist(shortestPath$epath)))