使用ggmap世界地圖

Question

我正在嘗試使用ggmap包/ get_map功能（請參閱下面的代碼）結合ggplot2獲取整個世界的簡單柵格地圖。 縮放級別僅朝向“3”，並且不允許進一步縮小

獲得世界地圖似乎是不可能的（如ggmap描述中所述ggmap "maps of the whole world currently not supported" 。）也許由於缺乏理解為什么這是不可能/不支持的，是否有解決辦法/替代解決方案有世界地圖視圖？

關於問題的編輯/更新：我試圖按照建議使用世界地圖 - 但由於某種原因我不明白為什么它不允許我在圖中繪制點（這是最初的目標，並且確實有效在ggmap ） - 覺得我做了一些愚蠢的事情/犯了一些基本的錯誤。 我收到錯誤消息"Error in eval(expr, envir, enclos) : object 'group' not found"

編輯 - 不幸的是我使用OpenStreetMap收到錯誤消息（java錯誤。正在修復此問題 - 但非OpenStreetMap解決方案會很棒......）

總結一下 - ggmap方法適用於geom_point ，但我無法獲得整個世界地圖。 世界worldmap方法應該工作，但由於某種原因無法獲得積分.....

以下新代碼：

ggmap方法：

library(ggmap)
library(ggplot2)

reclat=c(50,20,30,40)
reclong=c(30,40,30,50)         
points=as.data.frame(cbind(reclat,reclong))

al1 = get_map(location = 'Europe', zoom = 3, color="bw",maptype = "satellite")
map = ggmap(al1)
map 

#this works
map+geom_point(data=points, aes(x=reclong, y=reclat, colour="red"))

worldmap方法：

world <- map_data("world")
worldmap <- ggplot(world, aes(x=long, y=lat, group=group)) +
  geom_path() +
  scale_y_continuous(breaks=(-2:2) * 30) +
  scale_x_continuous(breaks=(-4:4) * 45)

#this works
worldmap + geom_point(aes(50, 30, colour="red"))

#this doesnt work
worldmap + geom_point(data=points, aes(x=reclong, y=reclat, colour="red"))

Answer 1

您可以嘗試使用OpenStreetMap包，它可以訪問許多不同的地圖服務器，但不能訪問GoogleMaps。

library(OpenStreetMap)
library(ggplot2)
map <- openmap(c(70,-179),
               c(-70,179),zoom=1)
map <- openproj(map)


reclat <- c(50,20,30,40)
reclong <- c(30,40,30,50)         
autoplot(map) + geom_point(aes(x=reclong,y=reclat))