Nothing
data(BodyWeight,package="nlme")
library(ggplot2)
qpdl <- qplot(Time,weight,data=BodyWeight,colour=Rat,geom="line",facets=.~Diet)
library(directlabels)
direct.label(qpdl, "first.polygons")
direct.label(qpdl, "last.polygons")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.