가장 가까운 이웃 점 연결

Question

30 개의 데이터 점 (그림의 녹색 점)에 대한 x-y 좌표 목록이 있으며이를 함께 연결하고자합니다.

어떻게 그것은 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

을 .

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()