Nothing
library(reshape2)
iris2 <- melt(iris,id="Species")
library(lattice)
densityplot(~value|variable,iris2,groups=Species,scales="free")
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.