Google api 返回错误值

Question

你能帮我从 google API 中提取信息吗，当我提供地址变量时：560066、560065（班加罗尔市的密码），address_components 有不同的长度（在这种情况下为 4 和 5）

这可能 return 错误的数据。假设我想要国家信息，前者是 return INDIA，后者是 'error: out of bounds'

是否有一种通用的方法可以使return两种情况下的国家价值

library(rjson) # load rjson package

getCoordinates <- function(address) {
url <- paste("http://maps.googleapis.com/maps/api/geocode/json?address=",address,"&sensor=false",sep="")
map_data <- fromJSON(paste(readLines(url),collapse=""))
coord <- c(map_data$results[[1]]$geometry$location$lat,map_data$results[[1]]$geometry$location$lng, toupper(map_data$results[[1]]$address_components[[5]]$long_name))
return(coord)
}

g <- getCoordinates(560066)

Answer 1

使用 Google API 并不能保证每个查询的结果总是相同 'number'，这就是您所描述的问题。

您需要提取的是 types : country 字段，但为此您需要知道列表中 'level' 的哪个国家/地区字段存在（如果存在）。

对于这个例子，我将使用我的 googleway 包进行地理编码，因为它会为您处理 API 查询的构造

library(googleway)

## you need a valid Google API key to use their API
api_key <- "your_api_key"

query1 <- google_geocode(address = "560065", key = api_key)
query2 <- google_geocode(address = "560066", key = api_key)

## the 'country' is in the 'address_components : types' field
# query1$results$address_components

## use an 'lapply' to find the depth of the country field
l <- lapply(query2$results$address_components[[1]]$types, function(x){ 
    'country' %in% x
    })

## so now we know how far into the list we have to go
which(l == T)
# [1] 4

query2$results$address_components[[1]]$long_name[[which(l == T)]]
# [1] "India"

因此将其包装在一个函数中：

getCountry <- function(g){

    l <- lapply(g[['results']][['address_components']][[1]][['types']], function(x){
        'country' %in% x
    })

    return(g[['results']][['address_components']][[1]][['long_name']][[which(l == T)]])
}

getCountry(query1)
# [1] "India"
getCountry(query2)
# [1] "India"

要将其合并到您的函数中，您可以这样做

getCoordinates <- function(address) {
    url <- paste("http://maps.googleapis.com/maps/api/geocode/json?address=",address,"&sensor=false",sep="")
    map_data <- fromJSON(paste(readLines(url),collapse=""))

    l <- lapply(map_data$results[[1]]$address_components, function(x){
        'country' %in% x[['types']]
    })

    coord <- c(map_data$results[[1]]$geometry$location$lat,map_data$results[[1]]$geometry$location$lng, 
            toupper(map_data$results[[1]]$address_components[[which(l == T)]]$long_name))
    return(coord)
}

getCoordinates(560065)
[1] "12.9698066" "77.7499632" "INDIA"

getCoordinates(560066)
[1] "13.0935798" "77.5778529" "INDIA"

Google api 返回错误值

Google api returning wrong values

r

google-maps-api-3

rjson