Mapas con ggplot2 y ggmap

Algunos mapas creados con los packages ggplot2 y ggmap

El script:

# CARGA LIBRERIA Y DATOS
# -----------------------------------------
library(ggplot2)
library(ggmap)
geodata <- data.frame(
  lat = c(-34.6555,-34.6559,-34.7085,-34.5877,-34.6995,-34.6037,-34.7678,-34.7133, -34.7966),
  lon = c(-58.6452,-58.6167,-58.5859,-58.532,-58.3921,-58.3816,-58.3792,-58.3711, -58.276)
  )
 
 
# MAPA 1
#-------------------------------------
qmplot(lon, lat, data = geodata, 
       colour = I("red"), 
       size   = I(6), 
       darken = .2,
       alpha  = 0.2,
       source = 'google')
 
 
# MAPA 2
#---------------------------------------
ciudad <- get_map("Buenos Aires, Argentina", zoom=10)
p     <- ggmap(ciudad)
p + geom_point(data = geodata, 
               aes(x = lon, y = lat), 
               color = "red", 
               size  = 11, 
               alpha = 0.5)
 
 
 
# MAPA 3
# ----------------------------------------
ciudad <- get_map("Buenos Aires, Argentina", zoom=10)
p      <- ggmap(ciudad)
p      <- p+stat_density2d(aes(x = lon, y = lat, fill=..level..), 
                      data=geodata,geom="polygon", alpha=0.2)
p + scale_fill_gradient(low = "yellow", high = "red")

Referencia

http://journal.r-project.org/archive/2013-1/kahle-wickham.pdf

https://rpubs.com/jiayiliu/ggmap_examples