Generación de mapas de calor con R, Php y Mongodb

ggmap(mapgilbert) + 
  stat_density2d(data = df, aes(x = lon, y = lat, fill = ..level.., 
                                alpha = ..level..), size = 0.01, 
                                bins = 16, geom = "polygon") + 
  scale_fill_gradient(low = "green", high = "red") + 
  scale_alpha(range = c(0, 0.3), guide = FALSE)

Creo que 4 millones de puntos son demasiado costosos desde el punto de vista computacional. Tal vez debería usar un subconjunto o una muestra de sus datos.