<pre>
> c <- ggplot(mtcars, aes(y = wt, x = qsec))
> c + stat_smooth()
<a href='web/graphics/6d28d3cf830198563596c7e82067ee75.pdf'><img src='web/graphics/6d28d3cf830198563596c7e82067ee75.png' /></a>

> c + stat_smooth() + geom_point()
<a href='web/graphics/031e186123d6401e13048723af53d256.pdf'><img src='web/graphics/031e186123d6401e13048723af53d256.png' /></a>

> c + stat_smooth(se = FALSE) + geom_point()
<a href='web/graphics/e2b293dd06273195e5f862bb851c5b22.pdf'><img src='web/graphics/e2b293dd06273195e5f862bb851c5b22.png' /></a>

> c + stat_smooth(span = 0.9) + geom_point()
<a href='web/graphics/aeec5abf967ad8554f3dfe3aa566a328.pdf'><img src='web/graphics/aeec5abf967ad8554f3dfe3aa566a328.png' /></a>

> c + stat_smooth(method = "lm") + geom_point()
<a href='web/graphics/00a0df5ccd03cba1bbb6fbb9d239d844.pdf'><img src='web/graphics/00a0df5ccd03cba1bbb6fbb9d239d844.png' /></a>

> c + stat_smooth(method = lm, formula = y ~ ns(x, 3)) + geom_point()
<a href='web/graphics/7dc96b76b85500dae08f8f609e9e5ccd.pdf'><img src='web/graphics/7dc96b76b85500dae08f8f609e9e5ccd.png' /></a>

> c + stat_smooth(method = rlm, formula = y ~ ns(x, 3)) + geom_point()
<a href='web/graphics/974d7376a98185b2de0a59883bffbe07.pdf'><img src='web/graphics/974d7376a98185b2de0a59883bffbe07.png' /></a>

> c + stat_smooth(fill = "blue", colour = "darkblue", size = 2)
<a href='web/graphics/ad72ad47adba40be865263ff20083373.pdf'><img src='web/graphics/ad72ad47adba40be865263ff20083373.png' /></a>

> c + stat_smooth(fill = alpha("blue", 0.2), colour = "darkblue", 
+     size = 2)
<a href='web/graphics/2c60d57414c623dd1007267f4d7dc1c6.pdf'><img src='web/graphics/2c60d57414c623dd1007267f4d7dc1c6.png' /></a>

> c + geom_point() + stat_smooth(fill = alpha("blue", 0.2), colour = "darkblue", 
+     size = 2)
<a href='web/graphics/cb98eb5ad70d9fef2969a50df7b86af5.pdf'><img src='web/graphics/cb98eb5ad70d9fef2969a50df7b86af5.png' /></a>

> c <- ggplot(mtcars, aes(y = wt, x = mpg), . ~ cyl)
> c + stat_smooth(method = lm) + geom_point()
<a href='web/graphics/01d389c331aa27cb1396c071f21e4438.pdf'><img src='web/graphics/01d389c331aa27cb1396c071f21e4438.png' /></a>

> c + stat_smooth(method = lm, fullrange = T) + geom_point()
<a href='web/graphics/d45a83e4dac7c51cab8a73a061dac88d.pdf'><img src='web/graphics/d45a83e4dac7c51cab8a73a061dac88d.png' /></a>

> c <- ggplot(mtcars, aes(y = wt, x = mpg, colour = factor(cyl)))
> c + stat_smooth(method = lm) + geom_point()
<a href='web/graphics/dd3f05c6f77faf14c9931acc61c6005f.pdf'><img src='web/graphics/dd3f05c6f77faf14c9931acc61c6005f.png' /></a>

> c + stat_smooth(method = lm, fullrange = TRUE, fill = alpha("black", 
+     0.1)) + geom_point()
<a href='web/graphics/fd769b2918ecd9d331b2297fe605dcc2.pdf'><img src='web/graphics/fd769b2918ecd9d331b2297fe605dcc2.png' /></a>

> qplot(qsec, wt, data = mtcars, geom = c("smooth", "point"))
<a href='web/graphics/b5ce75e361b859f1aed6f5393f8c3a0a.pdf'><img src='web/graphics/b5ce75e361b859f1aed6f5393f8c3a0a.png' /></a>

</pre>
