如何使用Google卫星视图作为带有R的传单中的瓷砖

Question

许多问题似乎与我的相似，但我却找不到合适的答案。

到目前为止，我以这种方式使用了令人敬畏的R传单(和ggmap)包：

library(ggmap)
library(leaflet)

coord <-geocode('New York')

map.city <- leaflet() %>%
  addTiles('http://{s}.tile.thunderforest.com/transport/{z}/{x}/{y}.png?apikey=68c4cd328d3b484091812a76fae093fd') %>%
setView(coord$lon, coord$lat, zoom = 11) 

但如果我想要谷歌卫星作为地图呢？

我通过了这篇文章

https://stackoverflow.com/questions/9394190/leaflet-map-api-with-google-satellite-layer#

但是不知道如何使用在那里定义的googleSat函数。

Answer 1

要使用实际的Google (附带卫星视图)，您可以使用我的googleway包

library(googleway)

apiKey <- 'your_api_key'
mapKey <- 'your_map_key'

newYork <- google_geocode(address = "New York", key = apiKey)

google_map(location = as.numeric(newYork$results$geometry$location), 
           key = mapKey)

​

​

格列奈特有更多的例子说明您可以使用这些地图做些什么。

Answer 2

如果必须是谷歌卫星图像，你可以使用googleway软件包。如果其他卫星图像没有问题，您可以在传单中使用"Esri.WorlImagery“和"CartoDB.PositronOnlyLabels”：

library(ggmap)
library(leaflet)

coord <-geocode('New York')

map.city <- leaflet() %>% addProviderTiles('Esri.WorldImagery') %>% 
  setView(coord$lon, coord$lat, zoom = 11)
map.city %>% addProviderTiles("CartoDB.PositronOnlyLabels")