计算两层之间的成对距离：gDistance（byid=TRUE）但成对？

在R中，我有多边形层A和点层B。两者都有相同数量的特征，有一对一的对应（配对）：层A的每个多边形在层B中有一个对应点，反之亦然。 如何计算这些特征对之间的成对距离？

我试着用

gDistance(A, B, byid = TRUE)

---

但这将计算整个NxN矩阵，这是巨大的开销（我只使用该矩阵的对角线）。

不幸的是，rgeos和

gDistance

似乎无法做到这一点。。。因此，我使用

sf

库找到了解决方案：

require(sf)
g1 <- st_as_sf(A)
g2 <- st_as_sf(B)
dist <- st_distance(g1, g2, by_element=TRUE)

require（sf）
g1为什么要投否决票？人们似乎无缘无故地卑鄙。。。