连接最近的邻居点

Question

我有30个数据点的xy坐标列表（图中的绿色点），我想将它们连接在一起。

我如何在R中做到这一点？ 此刻，我通过dist()计算了每个点之间的距离矩阵，以获得每个点的最近邻居。 但是，这会导致30对边...有时多个边连接到同一点，这是我不想要的:(如何在R中解决此问题？

  cities_num=10
  cor.matrix=matrix(0,nrow=cities_num,ncol=2)
  for (r in 1:cities_num){
  cor.matrix[r,]=c(sample(1:500, 1),sample(1:500, 1))}
  par(mar=c(4,4,2,4))
  plot(cor.matrix,pch=4,xlab="X coordinate",ylab="Y coordinate")
  centroid.x=mean(cor.matrix[,1])
  centroid.y=mean(cor.matrix[,2])
  bead_num=cities_num+20
  t=seq(0,pi*2,length=bead_num) 
  coords=t(rbind( centroid.x+sin(t)*10, centroid.y+cos(t)*10))
  for (point in 1:bead_num){
    symbols(x=coords[,1][point],y=coords[,2][point],circles=0.5,
            inches = FALSE, add = TRUE)
  }

Answer 1

不知道什么是“符号点”，并且您的代码中似乎有太多未定义的对象，因此我制作了自己的“点”集。 如果只是一个常规点，则使用polygon ：

 dat <- data.frame(s=sin(seq(pi,-pi,length=25)),
                    c=cos(seq(pi,-pi,length=25)) )
 png();
     plot(0,0, xlim=c(-1.5,1.5),ylim=c(-1.5,1.5) );
       with(dat, points(s,c));
       with(dat, polygon(s,c) ) 
 dev.off()