# NOT RUN {
library(ggmap)
data(meteofrance)
# }
# NOT RUN {
## See help(get_map) documentation and run the example with a connection to Google!
dates <- as.Date(meteofrance$timestamp)
data=meteofrance[dates==dates[1],]
map <- get_map(location ="France", zoom = 6)
size <- 3
gsnow <- 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 gsnow
## ggsave("test-map.pdf", gsnow,width=10,height=10)
# }
Run the code above in your browser using DataLab