Se construye un grafico de densidades para la variable X, que vamos a crear aleatoriamente para este ejemplo

x<- sample(1:8,50,replace = TRUE)

plot(density(x), main="Densidad de la variable aleatoria X", xlab="valores de X", ylab="Densidad", lwd=4, col="red")