r - R，确定最短路径

Question

我有一个图表，需要所有节点之间的最短距离。现在我做了以下功能，

shortestPath <- function(streets, length)
{
    streets <- matrix(streets, byrow=TRUE, ncol=2)    # from -> to
    g <- graph.data.frame(as.data.frame(streets))     # create graph, see plot(g)
    return <- shortest.paths(g, weights = length)     # return routes lengths
}

这streets是一个向量，其中包含我们有边的数据，并且length（显然）是边的长度。

我有下图，其中每条边的长度为 2，请注意该图必须是无向的。

您可以使用以下数据来重现该问题。

# Data
edges <- c(1,2, 2,3, 3,4, 4,5, 2,6, 3,7, 4,8, 6,8);
length <- rep(2,8);
aantalNodes <- 8;

# Determine shortest path
routes <- matrix(shortestPath(edges,length), byrow=FALSE, ncol=aantalNodes);

我们清楚地看到节点 6 和节点 8 之间的最短路径的长度为 2，但是，此函数返回长度为 4。出了什么问题？我已经修了两天了。期待您的帮助！

Answer 1

您可能想查看shortestPath(edges,length). 实在是太暴露了……

res <- shortestPath(edges,length)
res[order(as.integer(rownames(res))),
    order(as.integer(colnames(res)))]