r - 将行名作为标签包含在绘图中

Question

我正在使用包 TSP 探索 R 中的旅行商问题，一切正常，但我唯一的问题是图中没有出现城市名称。

基本上在最后一行代码中，我想获取行名作为标签

代码:

library(TSP)
set.seed(123)
x <- data.frame(x = runif(20), y = runif(20), row.names = LETTERS[1:20])
## create a TSP
etsp <- ETSP(x)
etsp
## use some methods
n_of_cities(etsp)
labels(etsp)
## plot ETSP and solution
tour <- solve_TSP(etsp)
tour
plot(etsp, tour, tour_col = "red")

Answer 1

如果你想将城市名称作为图表中的标签，你可以使用库 ggplot 中的 geom_text。诀窍是以正确的方式准备数据。

对于绘图，数据需要按路线重新排序。

tdf <- as.data.frame(tour)
orderd.cities.tf <- as.data.frame(etsp[tdf$tour,]) 
#          x          y
# C 0.40897692 0.64050681
# L 0.45333416 0.90229905
# A 0.28757752 0.88953932

之后您可以使用

绘制此数据

ggplot(ordered.cities.tf,
       aes(x=x,y=y,label=rownames(ordered.cities.tf)))+
    geom_polygon(fill=NA,color="red")+
    geom_point(shape=15,color="white",size=6)+geom_text()