之前已经问过这个问题,但以下数据排列方式从来没有问过。下面是一个示例:
> head(datagps)
Date & Time [Local] Latitude Longitude
1: 2018-06-18 03:01:00 -2.434901 34.85359
2: 2018-06-18 03:06:00 -2.434598 34.85387
3: 2018-06-18 03:08:00 -2.434726 34.85382
4: 2018-06-18 03:12:00 -2.434816 34.85371
5: 2018-06-18 03:16:00 -2.434613 34.85372
6: 2018-06-18 03:20:00 -2.434511 34.85376
如您所见,我在
Date & Time [Local]
列中平均每4分钟记录一次GPS位置。我想计算两个连续记录之间的距离(以米为单位),并将此度量存储在新列Step
中。我一直在尝试对我的数据实施distm()
:> datagps$Step<-distm(c(datagps$Longitude, datagps$Latitude), c(datagps$Longitude+1, datagps$Latitude+1), fun = distHaversine)
Error in .pointsToMatrix(x) : Wrong length for a vector, should be 2
尽管我不太确定语法以及这是否是填充函数参数的正确方法。我是R的新手,所以希望能有所帮助。
任何输入表示赞赏!
最佳答案
我想你已经快到了。假设要在n
中存储上一个记录(n+1
)和当前记录(n+1
)之间的距离,可以使用:
library(geosphere)
date <- c("2018-06-18 03:01.00","2018-06-18 03:06.00","2018-06-18 03:08.00","2018-06-18 03:12.00","2018-06-18 03:16.00","2018-06-18 03:20.00")
latitude <- c(-2.434901,-2.434598,-2.434726,-2.434816,-2.434613,-2.434511)
longitude <- c(34.85359,34.85387,34.85382,34.85371,34.85372,34.85376)
datagps <- data.frame(date,lat,lon)
datagps$length <- distm(x=datagps[,2:3], fun = distHaversine)[,1]
得出第一个结果为0,其余为连续点之间的距离