# NOT RUN {
library(ggmap)
data(meteofranceSynop)
# }
# NOT RUN {
## See help(get_map) documentation and run the example with a connection to Google!
data=meteofranceSynop[meteofranceSynop$timestamp==meteofranceSynop$timestamp[250],]
map <- get_map(location ="France", zoom = 6)
size <- 3
gsynop <- ggmap(map) +
geom_point(data = data,aes(x = longitude, y = latitude),size=size, alpha
=1, color="blue",show.legend = FALSE)
## Uncomment if you want to save in PDF format the otput of gsynop
## ggsave("test-map.pdf", gsynop,width=10,height=10)
# }
Run the code above in your browser using DataLab