r语言 - 如何使用带有整洁函数的谷歌方式进行批量地理编码

Question

我一直在寻找一种使用 googleway 的 google_geocode() 进行批量地理编码的方法，它一次只能返回一个结果。我想使用整洁的函数，而其他答案则利用了更古老、更令人困惑的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-04-14 由 reprex 软件包 (v0.2.1(}