if(interactive()) {
## Send a grid based plot to a browser as a Javascript interactive SVG
library(ggplot2)
data(mtcars)
qp <- qplot(mpg, data=mtcars, geom="density", fill=factor(cyl), alpha=I(.4))
gridsvgjs(qp)
}
Run the code above in your browser using DataLab