¿Cómo hacer diagramas de densidad con ggplot2 en R?

En este artículo, vamos a ver cómo hacer diagramas de densidad con ggtplot2 en el lenguaje de programación R.

Para crear un diagrama de densidad en R usando ggplot2, usamos la función geom_density() del paquete ggplot2.

Sintaxis: ggplot(aes(x)) + geom_density(fill, color, alpha)

Parámetros:

• relleno: color de fondo debajo de la trama
• color: el color de la trama
• alfa: transparencia del gráfico

Creando un gráfico de densidad básico con ggplot2

Aquí vamos a crear un diagrama de densidad.

# create dataframe
set.seed(1234)
df <- data.frame(value =round(c(rnorm(200,
                                      mean=100,
                                      sd=7))))
  
# import libraries ggplot2
library(ggplot2)  
  
# create density plot
 ggplot(df, aes(x=value)) + geom_density()

Producción:

Personalización de color

Para cambiar de color, usamos la propiedad color de la función geom_density().

# create dataframe
set.seed(1234)
df <- data.frame(value =round(c(rnorm(900,
                                      mean=60, 
                                      sd=21))))
  
# import libraries ggplot2
library(ggplot2)     
  
# create density plot with desired colours
 ggplot(df, aes(x=value)) + geom_density(color="green")

Producción:

Para cambiar el color de fondo, usamos la propiedad de relleno de la función geom_density().

# create dataframe
set.seed(1234)
df <- data.frame(value =round(c(rnorm(900,
                                      mean=60, 
                                      sd=21))))
  
# import libraries ggplot2 
library(ggplot2)       
  
# create density plot with desired colours
 ggplot(df, aes(x=value)) + geom_density(fill="#77bd89",
                                         color="#1f6e34",
                                         alpha=0.8)

Producción:

Personalización de la escala logarítmica:

Cuando los datos del eje x o y son muy grandes, podemos dibujar gráficos con escala logarítmica usando lo siguiente.

Sintaxis: plot+ scale_x_log10()

# create dataframe
set.seed(1234)
df <- data.frame(value =round(c(rnorm(9000,
                                      mean=600000, 
                                      sd=210000))))
  
# import libraries ggplot2
library(ggplot2)      
  
# create density plot with log scale
 ggplot(df, aes(x=value)) + geom_density() + scale_x_log10()

Producción: