R语言绘制多幅散点密度图，如何保证不同图像之间密度的颜色是统一的？

Question

如图所示，两幅图像红色代表密度不统一，第一幅图的实际密度远远低于低一幅图。此外，如何用更多的连续颜色绘制此图以及如何加scale bar图例？

Answer 1

原代码如下plot(M$X,M$Y,col=densCols(M$X,M$Y,colramp = colorRampPalette(c('blue','green','yellow','red'))),pch=20,cex=1.5,xlim=c(-200,200),ylim=c(-200,200))