# install.packages("ggplot2") library(ggplot2) # Datos set.seed(1) df <- data.frame(x = rnorm(200), y = rnorm(200)) ggplot(df, aes(x = x, y = y)) + geom_point() + geom_density_2d()

library(ggplot2) # Datos set.seed(1) df <- data.frame(x = rnorm(200), y = rnorm(200)) ggplot(df, aes(x = x, y = y)) + geom_density_2d()