错误：替换有1行，数据有0表示在R中附加Dataframe

Question

我有两个数据框，它们都有三列，名称，纬度和经度。我想找到它们之间的距离。我写了一个名为distance的函数，其中包含四个参数(lat1, long1, lat2, long2)。这很好用。我想将所有内容附加到数据帧中。我写了以下函数，

map <- function (p,k){
  for(i in 1:nrow(p)){
    q = 0
    data = data.frame(w= numeric(0), e = numeric(0), z =  character(0))
    for(j in 1:nrow(k)){
      data$e[q] = p$name[i]
      data$z[q] = k$cellname[j]
      data$w[q] = earthDist(p$lon[i],p$lat[i], k$longitude[j], k$latitude[j]) / 1.6
      q =q + 1
    }
  }

}

但这是抛出错误，

  

＆＃34;替换有1行，数据有0＆＃34;

并警告，

  

＆＃34;无效因素水平，NA生成＆＃34;。

我想创建一个数据框，例如，

Data1     Data2      Distance
A1          A2          2.0
A1          B2          3.5
A1          C2          5.0
.
.
.
.

任何人都可以帮我创建这样的数据框，或者告诉我这里有什么错误。

由于