Ошибка геокода со статусом REQUEST_DENIED, location = "Australia" с использованием ggmap в R - PullRequest
Новая
       13

Ошибка геокода со статусом REQUEST_DENIED, location = "Australia" с использованием ggmap в R

0 голосов
/ 17 ноября 2018

Я пытаюсь сделать карту плотности в Австралии, используя почтовые индексы и чистую стоимость, чтобы увидеть, откуда приходят клиенты для парковки в аэропорту (Университетский проект)

Я установил ключ API для карт Google. Я использую 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"

Я пробовал несколько способов получения данных карты, но продолжаю получать ту же ошибку.

Пожалуйста, помогите :) Любой совет приветствуется! Кроме того, если есть предложения для лучшего способа сделать это, я все уши:)

здесь используется код: 

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

Мне не повезло, одна и та же ошибка для обоих. Спасибо:)

1 Ответ

0 голосов
/ 25 ноября 2018

Не удалось геокодировать со статусом REQUEST_DENIED, местоположение = "XXX"

Вы включили 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"

См. Также этот пошаговый учебник, как заставить ggmap работать в 2018 году. .

...