library("MASS") # for Boston Housing data
library("ggplot2")
d <- ggplot(Boston, aes(sample=medv)) + stat_qq()
d + geom_abline(intercept = mean(Boston$medv),
slope = sd(Boston$medv))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.