Use of stat qq to plot qqplots in ggplot2

ggplot2_stat_qq.R

# List of qqplots using 'apply()' function
#

library(ggplot2)

data(mtcars)

plot_list = apply(mtcars, 2, function(line) {
    my_plot = ggplot(data.frame(x = line), aes(sample = x)) +
        stat_qq() +
        geom_abline(intercept = mean(line), slope = sd(line))
    return(my_plot)
})