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)是我的代码,当我运行脚本这映射就产生了。
同时,绘制珠穆朗玛峰的代码也是一样的。NBN_lat和NBN_lon在数据框架中有相关的数据值,所以我希望它能够正常地绘制(我的代码与我发布的略有不同,因为它链接到.csv以拉出lon/lat坐标。我添加的+0.1和-0.1认为它有助于生成地图数据,因为它会为左/下和右/顶提供两个不同的值。
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)我知道雄蕊图没有完整的地图数据,但当我搜索谢菲尔德(和弦的位置)时,它出现在了雄蕊图上。
谢谢!
发布于 2020-07-29 16:17:25
你的情节是蓝色的,因为你不是在画谢菲尔德,而是在画印度洋。在编写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)

https://stackoverflow.com/questions/63157606
复制相似问题