给定距离下R中的TSP

Question

一个由5个节点组成的简单距离表，我想对其应用TSP。在Excel中打开时看起来像这样。

library(TSP)

distances <- read.csv(file="c:\\distances.csv", header=TRUE, sep=",")
distances <- as.dist(distances)

tsp <- TSP(distances)
tour <- solve_TSP(tsp)
tour

它在as.dist（）行上警告我：

Warning messages:
1: In storage.mode(m) <- "numeric" : NAs introduced by coercion
2: In as.dist.default(distances) : non-square matrix

也是solve_TSP（）行：

Error in .solve_TSP(x, method, control, ...) : NAs not allowed!

如何纠正它们？谢谢。

Answer 1

您需要将第一列设置为行标签（当前将它们作为列）。下面的代码有效。

# Import distance matrix
library(readr)
distances <- read_csv("C:/distances.csv")

# Rename row labels
row.names(distances) <- distances$X1
distances$X1 <- NULL

# Run the TSP
distances <- as.dist(distances)
tsp <- TSP(distances)
tour <- solve_TSP(tsp)
tour