Ближайшая пара в R программирование

Question

, если я определить следующее:

X<- sample(200:1000,10) 
Y<- sample (200:1000, 10) 
plot(X,Y) 

тогда будет 10 случайных точек, созданных, поэтому возникает вопрос, как я могу найти ближайший пара/короткий путь ??

Answer 1

Я не знаю, если это то, что вы хотите, но я собрал решение, которое сообщает вам, какая строка является минимальной дистанционной парой в эту строку. Вероятно, есть более элегантный пакет, который тоже делает это, но это была интересная проблема для решения :).

X<- sample(200:1000,10) 
Y<- sample (200:1000, 10) 

df<-data.frame(x=X,y=Y) 
for(i in 1:nrow(df)){ 
    dist<-((df[i,'x']-df[,'x'])^2+(df[i,'y']-df[,'y'])^2)^1/2 
    mindist<-which(dist==min(dist[dist!=0])) #gets you the row of the shortest pair 
    df[i,'mindistcol']<-mindist 
} 

Answer 2

Вы можете использовать функцию dist(), чтобы найти расстояние между каждой парой точек:

set.seed(1) 
X<- sample(200:1000,10) 
Y<- sample (200:1000, 10) 
dat<-data.frame(X,Y) 
print(dat) 

    X Y 
1 412 364 
2 497 341 
3 657 748 
4 924 506 
5 360 813 
6 915 596 
7 951 770 
8 724 987 
9 698 501 
10 248 815 

dist(dat) 
      1   2   3   4   5   6   7   8   9 
2 88.05680                     
3 455.50082 437.32025                  
4 531.32664 457.77068 360.35122                
5 452.00111 491.48042 304.02960 642.14095             
6 553.92509 489.64171 299.44616 90.44888 595.91442           
7 674.80145 624.62549 294.82198 265.37709 592.56223 177.68511        
8 696.75893 684.72257 248.21362 520.92322 403.45012 435.15744 314.03503      
9 317.11985 256.90660 250.37971 226.05530 459.98696 236.88394 369.28309 486.69498   
10 479.89270 535.42226 414.45144 743.27451 112.01786 702.03276 704.43878 506.12251 548.72215 

В случае, если позиция 1,2 является расстоянием между положением 1 (412,364) и положением 2 (497,341).

Минимальная матрица расстояния будет двумя ближайшими точками.

min(dist(dat)) 
[1] 88.0568 

Какое расстояние находится между точками 1 (412,364) и 2 (497,341). Это можно легко извлечь для большего количества точек, просмотрев индексы строк и столбцов матрицы dist.

which(as.matrix(dist(dat))==min(dist(dat)),arr.ind=TRUE) 

возвращает

row col 
2 2 1 
1 1 2 

Это означает, что расстояние между первой и второй точками в ваших векторов является кратчайшим.