密度热图计算

Question

我正在尝试使用ggplot2绘制位置热图，并按星期几进行绘制。我的数据集很大，计算速度非常慢。 我首先尝试

ggplot(aes(x=x, y=y), data=df) + facet_wrap(~day) + 
stat_density_2d(geom="raster", aes(fill=..density.., alpha=..density..))

但是我意识到这将花费很多时间，所以尝试了

ggplot(aes(x=x, y=y), data=df) + facet_wrap(~day) + 
stat_density_2d(geom="polygon", n=10, aes(fill=..level.., alpha=..level))

但这要花很长时间才能生产。

使用大型数据集的最佳方法是什么？