# 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_filled() + geom_density_2d(colour = "black")

# 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_filled(alpha = 0.75)

# 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_filled() + scale_fill_brewer()

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

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