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)
Tôi nghĩ rằng 4 triệu điểm là quá đắt về mặt tính toán. Có thể bạn nên sử dụng một tập hợp con hoặc mẫu từ dữ liệu của mình.
