`get_map` map 函数忽略了 ggmap 包中的 "source" 参数

The `get_map` map function ignores the "source" parameter in ggmap package

当使用函数 get_map() 时,我收到一个错误提示,提示我提供一个 google-API-key 尽管我使用参数 "source":

location = colMeans(city[,c('coords_x1', 'coords_x2')])#mitte
names(location) <- c('lat', 'lon')

get_map(location = location, source='osm')
note : locations should be specified in the lon/lat format, not lat/lon.
Error: Google now requires an API key.
       See ?register_google for details.

好像参数被忽略了

解决办法在于查询中使用"location"的方式。只要没有提供 bbox,ggmap 就会在 google 中查找正确的边界框。从此错误发生。因此以下代码有效:

bbox <- make_bbox(stadt$coords_x1, stadt$coords_x2, f = .05)


map <- get_map(location = bbox, source='osm') 
ggmap(map) + geom_point(data=stadt, aes(x=coords_x1, y=coords_x2, color=akaQuote))

使用 OSM 作为源,必须将边界框传递给 get_map 函数。