<pre>
> c <- ggplot(mtcars, aes(x = factor(cyl)))
> c + geom_bar()
<a href='web/graphics/599226a875f57b9dd67aad95415f986f.pdf'><img src='web/graphics/599226a875f57b9dd67aad95415f986f.png' /></a>

> c + geom_bar() + coord_flip()
<a href='web/graphics/1c4fdb53adcf36120bdbcc836731ea08.pdf'><img src='web/graphics/1c4fdb53adcf36120bdbcc836731ea08.png' /></a>

> c + geom_bar(fill = "white", colour = "darkgreen")
<a href='web/graphics/6b23007f54df683f0338ff7af7d4be5b.pdf'><img src='web/graphics/6b23007f54df683f0338ff7af7d4be5b.png' /></a>

> c + geom_bar() + scale_y_sqrt()
<a href='web/graphics/ab5291efbe96c933321e45205e48bc9a.pdf'><img src='web/graphics/ab5291efbe96c933321e45205e48bc9a.png' /></a>

> (c2 <- c + geom_bar(width = 1, colour = "black") + coord_polar())
<a href='web/graphics/9675712b16e71a759aa3bc322705c868.pdf'><img src='web/graphics/9675712b16e71a759aa3bc322705c868.png' /></a>

> c2$aspect.ratio <- 1
> c2
<a href='web/graphics/5e26d37a0a72ccea421000e26c19af2d.pdf'><img src='web/graphics/5e26d37a0a72ccea421000e26c19af2d.png' /></a>

> cyl <- factor(mtcars$cyl)
> qplot(cyl, geom = "bar")
<a href='web/graphics/c2a3983dd21a2824b44c28c9aecbe885.pdf'><img src='web/graphics/c2a3983dd21a2824b44c28c9aecbe885.png' /></a>

> qplot(cyl, geom = "bar", fill = cyl)
<a href='web/graphics/98f470f350ab4a6a7825e1bc77eb4181.pdf'><img src='web/graphics/98f470f350ab4a6a7825e1bc77eb4181.png' /></a>

> qplot(cyl, geom = "bar", fill = cyl) + coord_polar()
<a href='web/graphics/2f6c5fc27eab5d6f2cf11a6f3f47ebd4.pdf'><img src='web/graphics/2f6c5fc27eab5d6f2cf11a6f3f47ebd4.png' /></a>

> qplot(cyl, geom = "blank", fill = cyl) + geom_bar(width = 1) + 
+     coord_polar()
<a href='web/graphics/3b4214026e9e9f44288af9a060ae4471.pdf'><img src='web/graphics/3b4214026e9e9f44288af9a060ae4471.png' /></a>

> qplot(cyl, geom = "bar", fill = cyl) + coord_polar(theta = "y")
<a href='web/graphics/d94b6447572bf61bfd454462f6931962.pdf'><img src='web/graphics/d94b6447572bf61bfd454462f6931962.png' /></a>

> c <- ggplot(mtcars, aes(x = 1, fill = factor(cyl)))
> c + geom_bar()
<a href='web/graphics/8d1c3308ce99ef53d4733ef6d9c65db7.pdf'><img src='web/graphics/8d1c3308ce99ef53d4733ef6d9c65db7.png' /></a>

> c + geom_bar() + coord_polar()
<a href='web/graphics/f5511ea6a573502d6629ff652966c613.pdf'><img src='web/graphics/f5511ea6a573502d6629ff652966c613.png' /></a>

> c + geom_bar() + coord_polar(theta = "y")
<a href='web/graphics/ded81a2adb7bcf781cb64150bd4d09ec.pdf'><img src='web/graphics/ded81a2adb7bcf781cb64150bd4d09ec.png' /></a>

> pie <- c(geom_bar(), coord_polar(theta = "y"))
> c + pie
<a href='web/graphics/9007d35e63d5724da683a66ebb5bfe60.pdf'><img src='web/graphics/9007d35e63d5724da683a66ebb5bfe60.png' /></a>

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

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

> ggplot(diamonds, aes(x = cut, fill = cut)) + geom_bar() + facet_grid(. ~ 
+     clarity)
<a href='web/graphics/a3618202a6ee99a788d5f81b22afbd00.pdf'><img src='web/graphics/a3618202a6ee99a788d5f81b22afbd00.png' /></a>

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

> qplot(rating, data = movies, geom = "bar", weight = votes)
<a href='web/graphics/2b0eec8a87625c6bc4a2a480f02ce151.pdf'><img src='web/graphics/2b0eec8a87625c6bc4a2a480f02ce151.png' /></a>

> qplot(rating, data = movies, geom = "bar", weight = budget)
<a href='web/graphics/43232daa7eaf07fbef33c10aace87f05.pdf'><img src='web/graphics/43232daa7eaf07fbef33c10aace87f05.png' /></a>

> meanprice <- tapply(diamonds$price, diamonds$cut, mean)
> qplot(unique(diamonds$cut), meanprice)
<a href='web/graphics/a60509f91fb6b8a4057d6caf2be1e4e5.pdf'><img src='web/graphics/a60509f91fb6b8a4057d6caf2be1e4e5.png' /></a>

> qplot(unique(diamonds$cut), meanprice, geom = "bar", stat = "identity")
<a href='web/graphics/58bdd40f8904f9bca73688987a009bdc.pdf'><img src='web/graphics/58bdd40f8904f9bca73688987a009bdc.png' /></a>

</pre>
