<pre>
> m <- ggplot(movies, aes(y = rating, x = year)) + geom_point()
> m + stat_quantile()
<a href='web/graphics/19b64018116f3cf332ba4d4aa5ab4482.pdf'><img src='web/graphics/19b64018116f3cf332ba4d4aa5ab4482.png' /></a>

> m + stat_quantile(quantiles = seq(0.05, 0.95, by = 0.05))
<a href='web/graphics/d50029b8c50279572f60c79fcdbf0c6f.pdf'><img src='web/graphics/d50029b8c50279572f60c79fcdbf0c6f.png' /></a>

> m + stat_quantile(formula = y ~ x)
<a href='web/graphics/81d862fab64924246ca76961f1136cb3.pdf'><img src='web/graphics/81d862fab64924246ca76961f1136cb3.png' /></a>

> m + stat_quantile(aes(weight = votes))
<a href='web/graphics/3a2859b10a14f0ce26843101f42e2873.pdf'><img src='web/graphics/3a2859b10a14f0ce26843101f42e2873.png' /></a>

> m + stat_quantile(aes(colour = ..quantile..), quantiles = seq(0.05, 
+     0.95, by = 0.05))
<a href='web/graphics/f295f1851a985bf850af593a5d956ca7.pdf'><img src='web/graphics/f295f1851a985bf850af593a5d956ca7.png' /></a>

> m + stat_quantile(aes(colour = ..quantile..), quantiles = seq(0.05, 
+     0.95, by = 0.05)) + scale_colour_gradient(midpoint = 0.5, 
+     low = "green", mid = "yellow", high = "green")
<a href='web/graphics/812924a88b25529fa83357e02c1d1f5e.pdf'><img src='web/graphics/812924a88b25529fa83357e02c1d1f5e.png' /></a>

> m + stat_quantile(colour = "red", size = 2, linetype = 2)
<a href='web/graphics/65cb499e336abefa3a0ad4babbf331b4.pdf'><img src='web/graphics/65cb499e336abefa3a0ad4babbf331b4.png' /></a>

> qplot(year, rating, data = movies, geom = "quantile")
<a href='web/graphics/2ab36b7b02635e788a636ad863893341.pdf'><img src='web/graphics/2ab36b7b02635e788a636ad863893341.png' /></a>

</pre>
