gc <- geocode("statue of liberty", source = "google")
googMap <- get_googlemap(center = as.numeric(gc))
(bb <- attr(googMap, "bb"))
bb2bbox(bb)
stamMap <- get_stamenmap(bb2bbox(bb))
ggmap(googMap) +
geom_point(
aes(x = lon, y = lat),
data = gc, colour = "red", size = 3
)
ggmap(stamMap) +
geom_point(
aes(x = lon, y = lat),
data = gc, colour = "red", size = 3
)
Run the code above in your browser using DataLab