2

我的问题详细如下：

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

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.

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

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

4

1 回答 1

2

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

    locaddr <- lapply(seq(nrow(location)), function(i){ 
           revgeocode(location[i,], 
                         output = c("address"), 
                         messaging = FALSE, 
                         sensor = FALSE, 
                         override_limit = FALSE)
              })
于 2013-07-06T17:13:37.877 回答