<pre>
> p <- ggplot(movies, aes(x = mpaa, y = rating))
> p + geom_point()
<a href='web/graphics/ff943bdfa1c642e2bdcab09bf14c60d8.pdf'><img src='web/graphics/ff943bdfa1c642e2bdcab09bf14c60d8.png' /></a>

> p + geom_point(position = "jitter")
<a href='web/graphics/5caf8d85d956d15ad309d9a67f7391d0.pdf'><img src='web/graphics/5caf8d85d956d15ad309d9a67f7391d0.png' /></a>

> p + geom_jitter(aes(colour = rating))
<a href='web/graphics/79324f7435ee9f40ff7fd3dbc1b77c1a.pdf'><img src='web/graphics/79324f7435ee9f40ff7fd3dbc1b77c1a.png' /></a>

> p + geom_jitter(xjitter = 5)
<a href='web/graphics/d2004379f7f527ea8653fafd7c209acc.pdf'><img src='web/graphics/d2004379f7f527ea8653fafd7c209acc.png' /></a>

> p + geom_jitter(yjitter = 5)
<a href='web/graphics/ff769fd5e439aa722c017cf16e4e571f.pdf'><img src='web/graphics/ff769fd5e439aa722c017cf16e4e571f.png' /></a>

> qplot(mpaa, rating, data = movies, geom = "jitter")
<a href='web/graphics/4214546972351cb61c18ddedcb73fe9b.pdf'><img src='web/graphics/4214546972351cb61c18ddedcb73fe9b.png' /></a>

> qplot(mpaa, rating, data = movies, geom = c("boxplot", "jitter"))
<a href='web/graphics/ec0bbfcf35ecbe2fffbc82bb1c4d0719.pdf'><img src='web/graphics/ec0bbfcf35ecbe2fffbc82bb1c4d0719.png' /></a>

> qplot(mpaa, rating, data = movies, geom = c("jitter", "boxplot"))
<a href='web/graphics/6666f704dcbf7e787816fcdf62754a05.pdf'><img src='web/graphics/6666f704dcbf7e787816fcdf62754a05.png' /></a>

> qplot(mpaa, rating, data = movies, geom = "jitter", xjitter = 2)
<a href='web/graphics/4b6c9b0db4dd17fa4958d3c006b07098.pdf'><img src='web/graphics/4b6c9b0db4dd17fa4958d3c006b07098.png' /></a>

> qplot(mpaa, rating, data = movies, geom = "jitter", yjitter = 1)
<a href='web/graphics/44345dd6f8409a80b8ff9f394483dc9d.pdf'><img src='web/graphics/44345dd6f8409a80b8ff9f394483dc9d.png' /></a>

</pre>
