散布図でcntourだ？

相当データ点が多くなければ，なかなか，きれいな図にはならないのでは？
library(MASS)
a <- rbind(mvrnorm(100000, c(50, 50), matrix(c(10, 5, 5, 10), 2)),
mvrnorm(30000, c(55, 62), matrix(c(10, 4, 5, 10), 2)))
rng <- apply(a, 2, range)
w <- round((rng[2,]-rng[1,])/30)
a <- round(t(t(a)/w))
b <- table(data.frame(a))
contour(as.integer(rownames(b)), as.integer(colnames(b)), b, nlevels=30)
などと，決めうち example を書いてみる