<pre>
> m <- ggplot(movies, aes(x = rating))
> m + stat_density()
<a href='web/graphics/0b517218a01eeed1e4b97ed52a20079c.pdf'><img src='web/graphics/0b517218a01eeed1e4b97ed52a20079c.png' /></a>

> m + stat_density(kernel = "rectangular")
<a href='web/graphics/bf31b52e5faec01946ca8624ea8ba645.pdf'><img src='web/graphics/bf31b52e5faec01946ca8624ea8ba645.png' /></a>

> m + stat_density(kernel = "biweight")
<a href='web/graphics/456eaf71ee2d38d20a3f504878ae230b.pdf'><img src='web/graphics/456eaf71ee2d38d20a3f504878ae230b.png' /></a>

> m + stat_density(kernel = "epanechnikov")
<a href='web/graphics/e60ccf43d57d8f26333abf73f0c5d369.pdf'><img src='web/graphics/e60ccf43d57d8f26333abf73f0c5d369.png' /></a>

> m + stat_density(adjust = 1/5)
<a href='web/graphics/e55ecaa3f937fa5d04d00062c5b8808d.pdf'><img src='web/graphics/e55ecaa3f937fa5d04d00062c5b8808d.png' /></a>

> m + stat_density(adjust = 5)
<a href='web/graphics/23da9263ee53a094d27f7c7cccdfa1bc.pdf'><img src='web/graphics/23da9263ee53a094d27f7c7cccdfa1bc.png' /></a>

> m + stat_density(aes(colour = factor(Drama)), size = 2, fill = NA)
<a href='web/graphics/cf22965986934aef5f89e3f0c3334eae.pdf'><img src='web/graphics/cf22965986934aef5f89e3f0c3334eae.png' /></a>

> m + stat_density(aes(colour = factor(Drama), y = ..scaled..), 
+     size = 2, fill = NA)
<a href='web/graphics/32d70a97fb4d527d9e469a842fac89ee.pdf'><img src='web/graphics/32d70a97fb4d527d9e469a842fac89ee.png' /></a>

> m + stat_density(colour = "darkgreen", size = 2)
<a href='web/graphics/169327e7b78601dd2e7acb8a1ce49963.pdf'><img src='web/graphics/169327e7b78601dd2e7acb8a1ce49963.png' /></a>

> m + stat_density(colour = "darkgreen", size = 2, fill = NA)
<a href='web/graphics/43abf6451e082b7f2bb25ef630ba93f3.pdf'><img src='web/graphics/43abf6451e082b7f2bb25ef630ba93f3.png' /></a>

> m + stat_density(colour = "darkgreen", size = 2, fill = "green")
<a href='web/graphics/0a20f1bd8b0f7e398b43e49d5a97f873.pdf'><img src='web/graphics/0a20f1bd8b0f7e398b43e49d5a97f873.png' /></a>

> (m <- ggplot(movies, aes(x = votes)) + stat_density(trim = TRUE))
<a href='web/graphics/4b1afcf4210c1ed2b6a404114b72e277.pdf'><img src='web/graphics/4b1afcf4210c1ed2b6a404114b72e277.png' /></a>

> m + scale_x_log10()
<a href='web/graphics/2569d8a7c3a64a93d66f7fb6bf6bf927.pdf'><img src='web/graphics/2569d8a7c3a64a93d66f7fb6bf6bf927.png' /></a>

> m + coord_trans(x = "log10")
<a href='web/graphics/e1c12491a4210093b6c33f8bd028e095.pdf'><img src='web/graphics/e1c12491a4210093b6c33f8bd028e095.png' /></a>

> m + scale_x_log10() + coord_trans(x = "log10")
<a href='web/graphics/5e44b72c81e59c7235c9d2d3b04c92a2.pdf'><img src='web/graphics/5e44b72c81e59c7235c9d2d3b04c92a2.png' /></a>

> m + stat_bin()
<a href='web/graphics/6d714461414297dfb8a33ed5d1a9316b.pdf'><img src='web/graphics/6d714461414297dfb8a33ed5d1a9316b.png' /></a>

> m <- ggplot(movies, aes(x = rating, weight = votes))
> m + geom_histogram(aes(y = ..count..)) + stat_density(fill = NA)
<a href='web/graphics/a0e079cd0fdfe5f9bd2c5d543b445dd2.pdf'><img src='web/graphics/a0e079cd0fdfe5f9bd2c5d543b445dd2.png' /></a>

> m <- ggplot(movies, aes(x = rating, weight = votes/sum(votes)))
> m + geom_histogram(aes(y = ..density..)) + stat_density(fill = NA, 
+     colour = "black")
<a href='web/graphics/061bce246aeac6e67745710f3713044d.pdf'><img src='web/graphics/061bce246aeac6e67745710f3713044d.png' /></a>

> movies$decade <- round_any(movies$year, 10)
> m <- ggplot(movies, aes(x = rating, colour = decade, group = decade))
> m + stat_density()
<a href='web/graphics/6dfb39194e68f14f212bfb06301d63a0.pdf'><img src='web/graphics/6dfb39194e68f14f212bfb06301d63a0.png' /></a>

> qplot(length, data = movies, stat = "density", weight = rating)
<a href='web/graphics/ce8da5145196d0d63aea01cc0d539262.pdf'><img src='web/graphics/ce8da5145196d0d63aea01cc0d539262.png' /></a>

> qplot(length, data = movies, stat = "density", weight = rating/sum(rating))
<a href='web/graphics/2a450be43dbe88f242ff545bed5fb328.pdf'><img src='web/graphics/2a450be43dbe88f242ff545bed5fb328.png' /></a>

</pre>
