Używanie mapy ggmap świata

Question

Próbuję uzyskać prostą mapę rastrową całego świata, używając funkcji package/get_map ggmap (zobacz poniższy kod) w połączeniu z ggplot2. Poziomy powiększenia tylko iść w kierunku „3”, i nie pozwalają na dalsze powiększanie się

wydaje się niemożliwe, aby dostać mapę świata (co zostało udokumentowane w opisie ggmap. ("maps of the whole world currently not supported") Być może ze względu na brak zrozumienia, dlaczego to nie jest możliwe/obsługiwane, czy istnieje rozwiązanie zastępcze/alternatywne do widoku mapy świata?

EDYCJA/AKTUALIZACJA o PYTANIE: Próbowałem użyć mapy świata zgodnie z sugestią - ale z jakiegoś powodu nie rozumiem, dlaczego nie pozwala mi na wykreślanie punktów na wykresie (co było oryginalnym celem i działa w ggmap) - czuję, że robię coś głupiego/robiąc podstawowy błąd. Otrzymuję komunikat o błędzie "Error in eval(expr, envir, enclos) : object 'group' not found"

EDIT - niestety otrzymuję komunikat o błędzie za pomocą OpenStreetMap (błąd java. praca nad naprawianiem tego - ale inne rozwiązania OpenStreetMap byłoby świetnie ...)

Podsumowując - podejście ggmap działa z geom_point, ale nie mogę uzyskać mapy całego świata. podejście worldmap powinny działać, ale z jakiegoś powodu nie może uzyskać punkty do działki .....

nowy kod za poniżej:

ggmap podejście:

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 podejście:

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

Możesz wypróbować pakiet OpenStreetMap, który ma dostęp do wielu różnych serwerów mapowych, ale nie 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))