Animated datasauRus

datasauRus_gganimate.R

# modified from https://gist.github.com/sa-lee/c271b47d8065412d3d42c1ad8e63048d
library(datasauRus)
library(gganimate)
library(magrittr)

p <- datasaurus_dozen %>% 
  ggplot() +
  geom_point(aes(x = x, y = y), col = "steelblue") +
  theme(legend.position = 'none', 
        aspect.ratio = 1, 
        axis.title = element_blank(),
        axis.text = element_blank(),
        axis.ticks = element_blank())

in_space <- p + facet_wrap(~dataset)

in_time <- p + 
  transition_states(dataset, 1, 1) + 
  labs(title = "dataset: {closest_state}") +
  ease_aes('linear')

animate(in_time, 
        nframes = 300, detail = 2, fps = 12, 
        width = 300, height = 300)

anim_save(filename = "~/Pictures/datasaurus.gif")