GGMap 显示为蓝色

GGMap comes up as blue



NBN_lat <- c(53.37074)
NBN_lon <- c(-1.40705)

NBN_mapcoord <- c(left = ((NBN_lat)-0.1), bottom = ((NBN_lon)-0.1), right =((NBN_lat+0.1)), top = (
(NBN_lon)+0.1))

NBN_map <- get_stamenmap(NBN_mapcoord, zoom = 5)
NBN_map

ggmap(NBN_map)

是我的代码,当我运行脚本this地图制作时。

绘制珠穆朗玛峰的类似代码同时有效。 NBN_lat 和 NBN_lon 在数据框中有相关的数据值,所以我希望它能正常绘制(我的代码与我发布的代码略有不同,因为它链接到 .csv 以拉取lon/lat 坐标。我添加的 +0.1 和 -0.1 认为这有助于生成地图数据,因为它会为 left/bottom 和 right/top 提供两个不同的值。

library(ggmap)
library(mapproj)

bbox_everest <- c(left = 86.05, bottom = 27.21, right = 87.81, top = 28.76) #makes use of mapproj
map6 <- get_stamenmap(bbox_everest, zoom = 6)
ggmap(map6)

我知道 stamenmaps 没有完整的地图数据,但是当我搜索谢菲尔德(坐标位置)时,它出现在 stamenmaps 上。

谢谢!

你的阴谋是蓝色的,因为你不是在试图描绘谢菲尔德,而是在试图描绘印度洋。你写NBN_mapcoord.

时把经纬度的值取反了

如果你切换经度和纬度并增加分辨率,你会得到这个:

NBN_lon <- c(-1.40705)
NBN_lat <- c(53.37074)

NBN_mapcoord <- c(left  = ((NBN_lon) - 0.1), bottom = ((NBN_lat) - 0.1), 
                  right = ((NBN_lon + 0.1)), top    = ((NBN_lat) + 0.1))

NBN_map <- get_stamenmap(NBN_mapcoord, zoom = 12)

ggmap(NBN_map)