library (ggplot2)
library(dplyr)
data(mtcars)
ggplot(mtcars,aes(mpg,hp))+geom_density_2d_filled(show.legend=FALSE)+coord_cartesian(expand=FALSE)+labs(x="mpg")
ggplot(mtcars,aes(x=mpg,y=hp))+geom_point()+geom_density_2d()