从坐标中提取地址分量

我正在尝试使用 R 进行反向地理编码。我首先使用了 ggmap，但无法让它与我的 API 密钥一起使用。现在我正在用 googleway 尝试。

newframe[,c("Front.lat","Front.long")]

  Front.lat Front.long
1 -37.82681   144.9592
2 -37.82681   145.9592

newframe$address <- apply(newframe, 1, function(x){
  google_reverse_geocode(location = as.numeric(c(x["Front.lat"], 
x["Front.long"])),
                         key = "xxxx")
})

这将变量提取为列表，但我无法弄清楚结构。

我正在努力弄清楚如何提取下面列出的地址组件作为 newframe 中的变量

postal_code, administrative_area_level_1, administrative_area_level_2, locality, route, street_number

我更喜欢每个地址组件作为一个单独的变量。

Google 的 API 以 JSON 格式返回响应。当翻译成 R 时，自然会形成嵌套列表。内部在googleway这是通过jsonlite::fromJSON()

In googleway我已经让您选择返回原始 JSON 或列表，通过使用simplify争论。

我特意返回了 Google 响应中的所有数据，并让用户通过通常的列表子集操作来提取他们感兴趣的元素。

话虽如此，在 googleway 的开发版本中，我编写了一些函数来帮助访问各种 API 调用的元素。以下是其中三个可能对您有用的内容

## Install the development version
# devtools::install_github("SymbolixAU/googleway")

res <- google_reverse_geocode(
  location = c(df[1, 'Front.lat'], df[1, 'Front.long']), 
  key = apiKey
  )

geocode_address(res)
# [1] "45 Clarke St, Southbank VIC 3006, Australia"                    
# [2] "Bank Apartments, 275-283 City Rd, Southbank VIC 3006, Australia"
# [3] "Southbank VIC 3006, Australia"                                  
# [4] "Melbourne VIC, Australia"                                       
# [5] "South Wharf VIC 3006, Australia"                                
# [6] "Melbourne, VIC, Australia"                                      
# [7] "CBD & South Melbourne, VIC, Australia"                          
# [8] "Melbourne Metropolitan Area, VIC, Australia"                    
# [9] "Victoria, Australia"                                            
# [10] "Australia"

geocode_address_components(res)
#        long_name short_name                                  types
# 1             45         45                          street_number
# 2  Clarke Street  Clarke St                                  route
# 3      Southbank  Southbank                    locality, political
# 4 Melbourne City  Melbourne administrative_area_level_2, political
# 5       Victoria        VIC administrative_area_level_1, political
# 6      Australia         AU                     country, political
# 7           3006       3006                            postal_code

geocode_type(res)
# [[1]]
# [1] "street_address"
# 
# [[2]]
# [1] "establishment"      "general_contractor" "point_of_interest" 
# 
# [[3]]
# [1] "locality"  "political"
# 
# [[4]]
# [1] "colloquial_area" "locality"        "political"