simple_animation.R

# Based on tutorial: https://gganimate.com/articles/gganimate.html
# Accessed 2021-10-01

library(gganimate)

# We'll start with a static plot
p <- ggplot(iris, aes(x = Petal.Width, y = Petal.Length)) + 
  geom_point()

plot(p)

# Animate
anim <- p + 
  # Transition between species, spending 1s in each Species and animating for 
  # 2s between states
  transition_states(Species,
                    transition_length = 2,
                    state_length = 1) +
  # Use an easing function to make the movement more natural
  ease_aes('cubic-in-out') +
  # Add a title so audience knows what they're seeing 
  ggtitle('Species = {closest_state}')

# Show in RStudio
anim

# Save to GIF
anim_save("iris_species_animations.gif")