Как пакетное геокодирование с помощью Googleway с функциями Tidyverse?

Question

Я искал способ выполнить пакетное геокодирование, используя 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-04-14 пакетом Представления (v0.2.1)}