在 FOR 循环中使用 revgeocode 函数。需要帮助答案

【问题标题】：Using revgeocode function in a FOR loop. Help required在 FOR 循环中使用 revgeocode 函数。需要帮助
【发布时间】：2013-07-06 17:04:41
【问题描述】：

我的问题如下：

我的输入数据的格式如下面的小示例所示：

USERID  LONGITUDE   LATITUDE 
1            -8.79659           55.879554 
2           -6.874743           56.87896 
3           -3.874743           58.87896 
4          -10.874743           80.87896

我已使用以下代码对纬度和经度进行反向地理编码

dset <- as.data.frame(dataset[,2:3]) 
dset <- na.omit(dset) 

library (ggmap) 
location <- dset 
nrow(location) 

locaddr <- matrix(0,nrow(location),1) 
location <- as.matrix(location) 
for (i in 1:nrow(location)) 
{ 


   locaddr[i,] <- revgeocode(location[i,], output = c("address"), messaging = FALSE, sensor = FALSE, override_limit = FALSE)



}

现在某些经纬度从 Google Maps API 返回 NA。但是当这种情况发生时，for 循环由于某种原因而终止。我想绕过这个并继续处理剩余的数据点。我的一个想法是以下伪代码：

if i = nrow(location) 
continue 
else 
repeat revgeocode for loop here 
end-for 
end-if.

请告知如何做到这一点，或者是否有更好的方法来做到这一点。

提前感谢您的时间和帮助。

【问题讨论】：

标签： r loops

【解决方案1】：

这里不需要使用for-loop。我建议您使用lapply 以避免副作用，并预先分配问题：

    locaddr <- lapply(seq(nrow(location)), function(i){ 
           revgeocode(location[i,], 
                         output = c("address"), 
                         messaging = FALSE, 
                         sensor = FALSE, 
                         override_limit = FALSE)
              })

【讨论】：

非常感谢您的回答...我会实施并测试它。我是 R 新手，非常感谢您的指导。