测量所有lon-lat值组合之间的距离

Question

我试图测量位置之间的差异，而不是重复。

我有一个包含citynames和lon + lat列的数据框。 应该在city1和city2，city1和city3等之间测量距离。 直到城市n-1和城市n。

我的尝试各不相同，但最新的是：

    i <- 1
    j <- 2
    while (i < 51){
      while (j < 50){
        setDT(df)
        df[, distance_hav := distHaversine(matrix(c(df$lon[i]
                                , df$lat[i]
                                , ncol = 2)
                                , matrix(c(df$lon[j]
                                , df$lat[j]
                                , ncol = 2))]

        j <- j + 1          
        }
      i <- i + 1 
      }

非常感谢任何帮助。