# 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, fill = ..level..)) + stat_density_2d(geom = "polygon")

# 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_density_2d(aes(color = ..level..)) + scale_color_viridis_c()

# 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_density_2d(aes(color = ..level..))

# 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_density_2d(color = "red")

# 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()