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 から特定の緯度と経度が返されるようになりました。しかし、これが発生すると、何らかの理由で for ループが終了します。これを回避して、残りのデータ ポイントの処理を続行したいと思います。私が持っていた 1 つのアイデアは、次の疑似コードでした。

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

これを行う方法、またはこれを行うためのより良い方法がある場合は、親切にアドバイスしてください。

お時間とご協力いただきありがとうございます。

4

1 に答える 1

2

ここでa を使用する必要はありませんfor-loop。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 に答える