r - 地理编码失败，状态为 REQUEST_DENIED，位置 = "Australia"在 R 中使用 ggmap

Question

我正在尝试使用邮政编码和净值在澳大利亚绘制密度图，以查看机场 parking 场的客户来自哪里(大学项目)

我已经为谷歌地图设置了一个 API key 。我正在使用 ggmap，但一直收到请求被拒绝的错误。

Source : https://maps.googleapis.com/maps/api/staticmap?center=Gold%20Coast&zoom=12&size=640x640&scale=2&maptype=terrain&key=xxx
Source : https://maps.googleapis.com/maps/api/geocode/json?address=Gold%20Coast&key=xxx
Error in data.frame(ll.lat = ll[1], ll.lon = ll[2], ur.lat = ur[1], ur.lon = ur[2]) : 
  arguments imply differing number of rows: 0, 1
In addition: Warning message:
geocode failed with status REQUEST_DENIED, location = "Australia" 

我已经尝试了几种检索 map 数据的方法，但是总是出现同样的错误。

请帮忙 :) 任何建议都将不胜感激!此外，如果有更好的方法建议，我会洗耳恭听 :)

这里是使用的代码:

if(!requireNamespace("devtools")) install.packages("devtools")
devtools::install_github("dkahle/ggmap", ref = "tidyup")
library("ggmap", lib.loc="C:/Program Files/Microsoft/R Open/R-3.5.0/library")


key <- register_google(key = "###API KEY###")


    p <- ggmap(get_googlemap(center = "Australia", source = 'google', 
                             zoom = 11, scale = 2,
                             maptype ='terrain',
                             color = 'color'))
    p + geom_point(aes(x = hmapf$Postcode, y = hmapf$`Net Value`,  colour = "Pink"), data = hmapf, size = 0.5) + 
      theme(legend.position="bottom"); p

我也试过另一种方法:

Australia <- get_map(location="Australia", zoom=3, maptype="terrain")

gg <- ggmap(Australia, extent="normal")
gg <- gg + geom_point(data=pop, aes(x=LONG, y=LAT, color=Density))
gg <- gg + scale_color_viridis()
gg <- gg + theme_map()
gg <- gg + theme(legend.position="none")
gg

我运气不好，两者都犯同样的错误。谢谢:)

Answer 1

geocode failed with status REQUEST_DENIED, location = "XXX"

您已为静态 map 请求启用 Google Maps API，但未启用地理编码。为了证明尝试 geocode("Australia", output = "all") 你会得到错误

$`error_message`
[1] "This API project is not authorized to use this API."

$results
list()

$`status`
[1] "REQUEST_DENIED"

See also this step-by-step tutorial how make ggmap work in 2018. .