r语言 - 对数据帧中的每一行应用一个函数，以应用于另一个数据帧中的每一行

Question

我有两个数据帧，"a"和"b"。 它们都有 GPS 数据，但"a"有 1000 行，"b"有 5 行。 我正在用哈弗正弦公式比较距离，但我想应用该函数，以便将"a"的每一行与"b"的每一行进行比较。 我最终应该得到 5000 个结果。

这是我到目前为止所拥有的，但它只给了我 1000 个结果：

library(geosphere)
for(i in 1:nrow(a)){
distHaversine(a[,c(11,9)],b[,c(4,2)])
}

提前感谢任何帮助。

编辑

我找到了一个更好的解决方案来解决我的问题，减少了代码和计算时间：

library(geosphere)
result <- distm(a[ , c(11, 9)], b[ , c(4, 2)], fun = distHaversine)

Answer 1

也许是这样的。

result <- matrix(numeric(nrow(a)*nrow(b)), ncol = nrow(b))
for(i in seq_len(nrow(a))){
for(j in seq_len(nrow(b))){
result[i, j] <- distHaversine(a[i, c(11, 9)],b[j, c(4, 2)])
}
}
result

Answer 2

这可能是您的解决方案：

indx <- expand.grid(a=1:1000,b=1:5)
res <- apply(indx,1,function(x) distHaversine(a[x[1],],b[x[2],]))

使用expand.grid我组合了两个 data.frame 的所有行索引，然后使用它们在apply函数内进行索引。

要追溯您计算的距离，您可以将结果作为列添加到索引中。

> head(cbind(indx,res))
a b      res
1 1 1 12318145
2 2 1  5528108
3 3 1 11090739
4 4 1 14962267
5 5 1 19480911
6 6 1  8936878