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