R中get.shortest.paths()的个别顶点的返回

Question

我在R中创建了一个具有p= 0.2和10个节点的随机(Erdos-Renyi)图，它使用如下所示的：

library(igraph)
graph <- erdos.renyi.game(10, 0.2, type = c("gnp", "gnm"), directed = FALSE,
    loops = FALSE)

我找到图的中心节点和叶节点，如下所示：

centralNode <- which(degree(graph) %in% c(max(degree(graph))))
leafNodes <- which(degree(graph) %in% c(1))

我发现从中央节点到第一个叶节点的最短路径如下：

sp <- get.shortest.paths(graph, centralNode, leafNodes[1])

可以得到这样的结果(如果1是centralNode，4是leafNodes[1]

[[1]]
[1] 1  2  9  4

我希望能够访问从centralNode到leafNodes[1]的最短路径中的每个顶点。

我试过这样做，但不断地犯这些错误：

sp$2
    Error: unexpected numeric constant in "sp$2"
sp$[[1]][2]
    Error: unexpected '[[' in "sp$[["
sp$1[2]
    Error: unexpected numeric constant in "sp$1"
sp$[1][2]
    Error: unexpected '[' in "sp$["

我不知道如何单独返回每个顶点，或者只选择其中的一个。我希望这是合理的。

任何帮助都将不胜感激。谢谢

Answer 1

sp只是一个标准列表。所以，sp[[1]]等就可以得到一个向量了。

但是，对您来说，对图形对象进行细分可能更有意义。就像这样：

V(graph)[sp[[1]]]