<pre>
> ggplot(mtcars, aes(x = factor(cyl), fill = factor(vs))) + geom_bar(position = "fill")
<a href='web/graphics/4a0cdb0824830e49cb31542746687fb8.pdf'><img src='web/graphics/4a0cdb0824830e49cb31542746687fb8.png' /></a>

> ggplot(diamonds, aes(x = price)) + geom_bar(position = "fill")
<a href='web/graphics/24baa5a996cd6690881ecd60afed2e79.pdf'><img src='web/graphics/24baa5a996cd6690881ecd60afed2e79.png' /></a>

> ggplot(diamonds, aes(x = price, fill = cut)) + geom_bar(position = "fill")
<a href='web/graphics/d2c561e770cf2d0d1feea92c0346749a.pdf'><img src='web/graphics/d2c561e770cf2d0d1feea92c0346749a.png' /></a>

> ggplot(diamonds, aes(x = price, fill = clarity)) + geom_bar(position = "fill")
<a href='web/graphics/95753233f4a40db5af958834460bdca1.pdf'><img src='web/graphics/95753233f4a40db5af958834460bdca1.png' /></a>

> ggplot(diamonds, aes(x = price, fill = colour)) + geom_bar(position = "fill")
<a href='web/graphics/2fcb5cb61bc980861740d4abe51003c0.pdf'><img src='web/graphics/2fcb5cb61bc980861740d4abe51003c0.png' /></a>

</pre>
