将zip_distance应用于每一行

Question

我有一个带有两列的数据框，zip和cszip。我正在尝试使用以下方式将函数应用于每一行：

dist <- apply(vf, 1, zip_distance(zip, CSZip, lonlat = TRUE, units = "meters"))

但是我得到此错误：

Error in as.character(zipcode_a) : 
  cannot coerce type 'closure' to vector of type 'character'

zip_distance来自zipcoder软件包。

这就是5行VF的样子：

Zip	CSZIP
91723	90048
90814	90048
91604	90048
90048	90805 90048
90048 90255	90048

Answer 1

Zipcoder具有一些时髦的行为。
有时，使用循环更容易：

library(zipcodeR)

vf <- read.table(header=TRUE, text="zip CSZip
91723   90048
90814   90048
91604   90048
90805   90048
90255   90048")


for(i in 1:nrow(vf)) {
   vf$dist[i] <- zip_distance(vf$zip[i], vf$CSZip[i], lonlat = TRUE, units = "meters")$distance
}
vf

Answer 2

也许这就是您需要的：

dist <- mapply(function(x,y) zip_distance(x,y, lonlat = TRUE, units = "meters"), vf$zip, vf$CSZip)