Analyzing if Users Visit More Pages Before Converting

# 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() + guides(fill = guide_legend(title = "Nivel"))

# 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_filled(alpha = 0.4) + 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() + 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")