dist（）函数计算从一组坐标到点的距离

Question

我正在尝试计算从一组坐标（165个点）到其中一个点的距离。 为此，我将函数dist（）与Euclidian一起使用。

> str(xy)
> num [1:165, 1:2] 0 41329 54774 60256 61264 ...
>  - attr(*, "dimnames")=List of 2   ..$ : NULL   ..$ : chr [1:2] "X" "Y"

xyFu（这是我要计算所有距离的点）

>str(xyFu)
> Classes ‘tbl_df’, ‘tbl’ and 'data.frame': 165 obs. of  2 variables:  $
> LongFU: num  4622570 4622570 4622570 4622570 4622570 ...  $ LatFU :
> num  275923 275923 275923 275923 275923 ...

我用dist计算距离

IBDorigen <- dist(xyFu,xy,method = "euclidean")
str(IBDorigen)
 'dist' num [1:13530] 0 0 0 0 0 0 0 0 0 0 ...
 - attr(*, "Size")= int 165
 - attr(*, "Diag")= num [1:165, 1:2] 0 41329 54774 60256 61264 ...
  ..- attr(*, "dimnames")=List of 2
  .. ..$ : NULL
  .. ..$ : chr [1:2] "X" "Y"
 - attr(*, "Upper")= logi FALSE
 - attr(*, "method")= chr "euclidean"
 - attr(*, "call")= language dist(x = xyFu, method = "euclidean", diag = xy

---

我明白了 但这不是我想要的，因为我正在寻找165距离...我尝试了其他方法，但始终无法获得应有的结果。 谢谢 玛拉

---