In ggplot2, geom_point() can be used with stat = "bin2d", and ..count.. can be used in aes:
geom_point()
stat = "bin2d"
aes
ggplot(data=diamo