<pre>
> p <- ggplot(mtcars, aes(x = wt, y = mpg, label = rownames(mtcars)))
> p + geom_text()
<a href='web/graphics/1e56e175a489e3f5c40a6da1d56b9589.pdf'><img src='web/graphics/1e56e175a489e3f5c40a6da1d56b9589.png' /></a>

> p <- p + geom_point()
> p + geom_text()
<a href='web/graphics/f4f4e9128d6d678018bdf6cbfac872b1.pdf'><img src='web/graphics/f4f4e9128d6d678018bdf6cbfac872b1.png' /></a>

> p + geom_point() + geom_text(hjust = 0, vjust = 0)
<a href='web/graphics/33c6bd9243517e1ca2e6d18e43f233c4.pdf'><img src='web/graphics/33c6bd9243517e1ca2e6d18e43f233c4.png' /></a>

> p + geom_point() + geom_text(angle = 45)
<a href='web/graphics/1f15d60cd0b9542ab504b05c8dd9918b.pdf'><img src='web/graphics/1f15d60cd0b9542ab504b05c8dd9918b.png' /></a>

> p + geom_text(aes(colour = factor(cyl)))
<a href='web/graphics/f816700c2162b26313acade20f3a7585.pdf'><img src='web/graphics/f816700c2162b26313acade20f3a7585.png' /></a>

> p + geom_text(aes(colour = factor(cyl))) + scale_colour_discrete(l = 40)
<a href='web/graphics/51cc536a246d37f97b97af4c49944bca.pdf'><img src='web/graphics/51cc536a246d37f97b97af4c49944bca.png' /></a>

> p + geom_text(aes(size = wt))
<a href='web/graphics/898f9627db8191de0ccd96b92f667268.pdf'><img src='web/graphics/898f9627db8191de0ccd96b92f667268.png' /></a>

> p + geom_text(aes(size = wt)) + scale_size(to = c(0.5, 1.5))
<a href='web/graphics/cc2f5bfbc613c90b282f3b4de0518f04.pdf'><img src='web/graphics/cc2f5bfbc613c90b282f3b4de0518f04.png' /></a>

> qplot(wt, mpg, data = mtcars, label = rownames(mtcars), geom = c("point", 
+     "text"))
<a href='web/graphics/3a01fa071e55f59d41d7a3f51c133ea9.pdf'><img src='web/graphics/3a01fa071e55f59d41d7a3f51c133ea9.png' /></a>

> qplot(wt, mpg, data = mtcars, label = rownames(mtcars), geom = c("point", 
+     "text"), size = wt)
<a href='web/graphics/ad1b457a33a155245ceb8f8bf646d355.pdf'><img src='web/graphics/ad1b457a33a155245ceb8f8bf646d355.png' /></a>

</pre>
