inst/examples/iris.R

In tdhock/animint2: Animated Interactive Grammar of Graphics

library(animint2)
iris$id <- 1:nrow(iris)
viz <-
  list(petal=ggplot()+
       geom_point(aes(Petal.Width, Petal.Length, fill=Species),
                  clickSelects="id",
                  data=iris),
       sepal=ggplot()+
       geom_point(aes(Sepal.Width, Sepal.Length, fill=Species),
                  clickSelects="id",
                  data=iris))
animint2dir(viz, "iris")