mtcars$cyl <- as.factor(mtcars$cyl)
p <- ggplot() +
geom_point(aes(x=wt, y=mpg, colour=cyl),
data=mtcars) +
## set width and height values and update both axes
theme_animint(width=600, height=600, update_axes=c("x", "y"))
viz <- list(plot=p, selector.types=list(cyl="single"))
animint2dir(viz)
Run the code above in your browser using DataLab