Improve heatmap.R
Add spatial_density.R script;
Improve heatmap.R