individual<-  c(a,b,a,b,a,c,a,b)
x<-c(167685,167945,167685,153985,167685,158675,167645,167667)
y<-c(9876548,9879248,9876838,9596548,9926548,9878578,9876548,9166548)

individual  distance

1           34
2           56
3           NA