R中反向地理编码循环的下标越界

Question

我正在尝试使用 google api 密钥对数据集进行反向地理编码。我设法运行代码并获得了 10 个小样本的所需结果，但它给出了错误

Error in rgc$results[[1]] : subscript out of bounds

我设法通过使用以下代码集成了 api 密钥：

` revgx <- mapply(function(latlng, api_key){


url= paste("https://maps.googleapis.com/maps/api/geocode/json?","latlng=",latlng,"&key=",sep="")

rgc <- fromJSON(paste(readLines(url), collapse = ''))

rgc <- rgc$results[[1]]


with(rgc,{rgcdf <<- data.frame(
address = formatted_address
)})
for(k in seq_along(rgc$address_components)){
rgcdf <- cbind(rgcdf, rgc$address_components[[k]]$long_name)
}
names(rgcdf) <- c('address', sapply(rgc$address_components, function(l)     l$types[1]))

# return 'more' output
rgcdf
},
y1$latlng)`

我也尝试使用相同的方法来合并 xml，但无济于事。请建议是否需要对代码进行任何更改。

Answer 1

我测试了您的代码，它对我有用。但是您不是在测试状态。如果 latlng 不正确，它将返回“零结果”作为状态（并且不存在 rgc$results）。这是我测试的代码。

rev <- function(latlng, api_key) {

url= url(paste("https://maps.googleapis.com/maps/api/geocode/json?","latlng=",latlng,"&key=",sep=""))
rgc <- fromJSON(paste(readLines(url), collapse = ''))
close(url)

if (rgc["status"] == "OK") {
    rgc <- rgc$results[[1]]
    with(rgc, {
        rgcdf <<- data.frame(address = formatted_address)
    })
    for (k in seq_along(rgc$address_components)) {
        rgcdf <- cbind(rgcdf, rgc$address_components[[k]]$long_name)
    }
    names(rgcdf) <- c("address", sapply(rgc$address_components, function(l) l$types[1]))
    rgcdf["valid_latlong"] <- TRUE
    rgcdf
} else {
    rgcdf <- c(valid_latlong=FALSE)
}
}

我对此进行了测试：

rev("12.9756300,77.6066230")

您是否以这种格式传递 latlng？或 c(9756300,77.6066230) 。然后你需要做

latlng <-  gsub(' ','%20', paste(latlng, collapse=","))

您还没有在您共享的代码 sn-p 中集成 api 密钥。将 api_key 传递给查询参数。