library(gganimate)
library(gifski)
library(png)

iris %>% ggplot(aes(x=Sepal.Length, y=Sepal.Width))+
  geom_point()+
  transition_states(Species, 
                    transition_length = 2, 
                    state_length = 1)