dplyr-animation.R

library(magrittr)
library(dplyr)
library(nycflights13)
library(evaluate)
library(ggplot2)

# Define the plot
makeplot <- function(mydata){
  date <- as.Date(paste("2013", mydata[1,"month"], mydata[1,"day"], sep="-"))
  ggplot(mydata, aes(distance, arr_delay)) + 
    geom_point() + geom_smooth(se = FALSE) + 
    xlim(0, 3000) + ylim(0, 500) + 
    xlab("Distance") + ylab("Delay") +
    ggtitle(format(date, "%A, %B %d, %Y"))
}

# Render and store the plots
sub_plots <- flights %>%
  filter(!is.na(distance), !is.na(arr_delay)) %>%
  group_by(month, day) %>%
  do(plot = evaluate("makeplot(.)", keep_warning=FALSE)[[3]])

# Play animation in rstudio
sub_plots %>% do(out = {print(.$plot); Sys.sleep(.10)})