使用Google_distance r函数量化距离

Question

我正试图通过应用Google_distance r函数来量化地点之间的距离。我已经运行了Google_distance函数的示例，但缺少位置之间的距离。其他字段是完整的，但不是距离。

我只激活了距离谷歌API的距离。

代码为：

key <- "your key here"
set_key(key = key, api = "distance")
google_keys()
df <- google_distance(origins = list(c("Melbourne Airport, Australia"),
c("MCG, Melbourne, Australia"),
c(-37.81659, 144.9841)),
destinations = c("Portsea, Melbourne, Australia"),
key = key) 

head(df)
$destination_addresses
[1] "Portsea VIC 3944, Australia"
$origin_addresses
[1] "Melbourne Orlando International Airport (MLB), 1 Air Terminal Pkwy, Melbourne, FL 32901, USA"
[2] "Brunton Ave, Richmond VIC 3002, Australia"  
[3] "Jolimont, Wellington Cres, East Melbourne VIC 3002, Australia"
$rows
*** Empty ***
$status
[1] "OK"

也许，我需要打开其他谷歌API，但我不确定是哪一个。你知道我该怎么解决这个问题吗？

欢迎所有建议和改进，非常感谢

Answer 1

问题可能位于API或设置中。你确定你选择了正确的吗？默认代码对我有效，并按预期返回行。我使用了Distance Matrix API。

df <- google_distance(origins = list(c("Melbourne Airport, Australia"),
c("MCG, Melbourne, Australia"),
c(-37.81659, 144.9841)),
destinations = c("Portsea, Melbourne, Australia"),
key = key) 

head(df)
$destination_addresses
[1] "Portsea VIC 3944, Australia"
$origin_addresses
[1] "Melbourne Airport (MEL), Melbourne Airport VIC 3045, Australia" "Brunton Ave, Richmond VIC 3002, Australia"                     
[3] "Jolimont, Wellington Cres, East Melbourne VIC 3002, Australia" 
$rows
elements
1 133 km, 133291, 1 hour 41 mins, 6043, OK
2 108 km, 107702, 1 hour 24 mins, 5018, OK
3 108 km, 108451, 1 hour 25 mins, 5074, OK
$status
[1] "OK"