added ggplot_spatial_density.R