# NOT RUN {
# plot iris data
plot_histogram(iris)
# plot random data with customized geom_histogram settings
set.seed(1)
data <- cbind(sapply(1:9, function(x) {rnorm(10000, sd = 30 * x)}))
plot_histogram(data, breaks = seq(-400, 400, length = 10))
# }
Run the code above in your browser using DataLab