# NOT RUN {
# Plot iris data
plot_density(iris, nrow = 2L, ncol = 2L)
# Plot random data
set.seed(1)
data <- data.frame(replicate(16L, rnorm(100)))
plot_density(data)
# Add color to density area
plot_density(data, geom_density_args = list("fill" = "black", "alpha" = 0.6))
# }
Run the code above in your browser using DataLab