`get_map`映射函数会忽略ggmap包中的“ source”参数

Question

使用功能get_map()时，虽然我使用参数“ source”，但收到提示输入google-API-key的错误消息：

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.

似乎忽略了该参数。

Answer 1

解决方案在于查询中使用“位置”的方式。只要没有提供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函数。