我一直在寻找一种方式用做批量地理编码googleway的google_geocode()这是唯一能够在同一时间返回一个结果。 我想用tidyverse功能，以及其他答案利用旧的和更加混乱的apply的家庭功能。
Answer 1:
下面是使用tidyverse功能我的解决方案。
这得到了地理编码，并格式化的地址，如果你想它（结果的其他组件可以返回，以及，他们只需要被添加到表被返回的地图功能的最后一排。
suppressPackageStartupMessages(require(tidyverse))
suppressPackageStartupMessages(require(googleway))
set_key("your key here")
df <- tibble(full_address = c("2379 ADDISON BLVD HIGH POINT 27262",
"1751 W LEXINGTON AVE HIGH POINT 27262", "dljknbkjs"))
df %>%
mutate(geocode_result = map(full_address, function(full_address) {
res <- google_geocode(full_address)
if(res$status == "OK") {
geo <- geocode_coordinates(res) %>% as_tibble()
formatted_address <- geocode_address(res)
geocode <- bind_cols(geo, formatted_address = formatted_address)
}
else geocode <- tibble(lat = NA, lng = NA, formatted_address = NA)
return(geocode)
})) %>%
unnest()
#> # A tibble: 3 x 4
#> full_address lat lng formatted_address
#> <chr> <dbl> <dbl> <chr>
#> 1 2379 ADDISON BLVD HIGH POI… 36.0 -80.0 2379 Addison Blvd, High Point, N…
#> 2 1751 W LEXINGTON AVE HIGH … 36.0 -80.1 1751 W Lexington Ave, High Point…
#> 3 dljknbkjs NA NA <NA>
由创建于2019年4月14日reprex包 （v0.2.1）
文章来源: How to batch geocode using googleway with tidyverse functions?
