如何按日期计算坐标数据之间的距离？

Question

我的数据形式如下：

* date        lat      long
* 01/01/13    47        118
* 01/01/13    48        119
* 01/01/13    47        118
* 02/01/13    46        119
* 02/01/13    46        119
* 02/01/13    48        118

我希望能够按日期计算点之间的距离，例如对于01/01/13，它从第一行到第二行然后从第二行到第三行等多远等等 我的实际数据每个日期超过3分。

功能

earth.dist(lats, dist = TRUE) 

这样做但会计算日期之间的距离。有任何想法吗？谢谢。

Answer 1

library(data.table)
DT <- as.data.table(YourDataFrame)

DT[, earth.dist(c(lat, long)), by=date]