anim <- ggplot(mtcars, aes(mpg, disp)) +
geom_point(aes(color = gear)) +
transition_states(gear, transition_length = 2, state_length = 1) +
enter_fade() +
exit_fade()
if (FALSE) {
# Explicitly animate using default (same as just printing the animation)
animate(anim)
# Change duration and framerate
animate(anim, fps = 20, duration = 15)
# Make the animation pause at the end and then rewind
animate(anim, nframes = 100, end_pause = 10, rewind = TRUE)
# Use a different renderer
animate(anim, renderer = file_renderer('~/animation/'))[1:6]
# Specify device dimensions and/or resolution
animate(anim, height = 2, width = 3, units = "in", res = 150)
}
Run the code above in your browser using DataLab