r - r 计算经纬度点之间的距离

Question

我有一个包含纬度和经度值的列的数据框（locations_54）。我知道 R 中有 geosphere 包，所以，我想使用 distHaversine() 来获取经纬度两点之间的距离。

这就是我所拥有的。我不确定这里出了什么问题。

d_1 <- c()
d_2 <- c()
d_1[i] <- c(locations_54[["longitude"]][i], locations_54[["latitude"]][i])
d_2[i] <- c(locations_54[["longitude"]][i+1], locations_54[["latitude"]][i+1])

distance <- c()
for (i in 1:(nrow(locations_54)-1)) {
  distance[i] <- distHaversine(d_1, d_2)
}