library(tidyverse)
library(cowplot)
library(viridis)
library(knitr)
library(kableExtra)
library(modelr)
library(broom)
library(gganimate)
knitr::opts_chunk$set(tidy.opts=list(width.cutoff=60),tidy=TRUE, echo = TRUE, message=FALSE, warning=FALSE, fig.align="center")

source("../../IDA/tools/plotting_tools.R")

theme_set(theme_1())

p <- ggplot(iris, aes(x = Petal.Width, y = Petal.Length)) + geom_point()

p

anim <- p + transition_states(Species, transition_length = 2, 
    state_length = 1)

anim