проблемы с получением спутниковых карт с помощью ggmap - PullRequest
Новая
       23

проблемы с получением спутниковых карт с помощью ggmap

2 голосов
/ 25 июня 2019

Код, рекомендуемый здесь , для загрузки и построения карты Google с ggmap работает для меня. 

newmap4 <- get_map(location = c(-71.2612362452596,42.3308503846824
                            ,-71.0475647202879,42.4560226746649), source = 'google')

 p <- ggmap(newmap4)
 p

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

newmap5 <- get_map(location = c(-71.2612362452596,42.3308503846824
                            ,-71.0475647202879,42.4560226746649), source = 'google',
               maptype = "satellite")

 p <- ggmap(newmap5)
 p

В этом случае карта, которую печатает R, выглядит идентично приведенному выше примеру newmap 4. Любой совет? 

 Sys.info()

 sysname 
                                      "Linux" 
                                      release 
                             "4.4.0-1083-aws" 
                                      version   "#93-Ubuntu SMP Wed May 8 16:08:41 UTC 2019" 
                                     nodename  "application-997622-deployment-3251181-722tz" 
                                      machine 
                                     "x86_64" 
                                        login 
                                    "unknown" 
                                         user 
                               "rstudio-user" 
                               effective_user 
                               "rstudio-user"

1 Ответ

0 голосов
/ 25 июня 2019

Попробуйте использовать тот же код, используя get_googlemap() вместо get_map().Я не уверен, почему это требуется, поскольку вы указываете, что источником является Google.Вы зарегистрировали свой ключ API Google? 

register_google(key = "<your key here>")
newmap5 <- get_googlemap(location = c(-71.2612362452596,42.3308503846824
                            ,-71.0475647202879,42.4560226746649), source = 'google',
               maptype = "satellite")
ggmap(newmap5)

map

...