Animations in R

I’ve recently discovered the package gganimate thanks to this brilliant example. I’ve been playing with the package during this weekend, and I created some examples that I spread through Twitter.

Some Twitter users showed interest in knowing more. I hope this short tutorial can satisfy them.

Libraries used

We’re going to need the following libraries:

    # Numerical
    library(pracma) # To calculate the Taylor polynomials
    library(reshape) # For using melt

    # Display
    library(ggplot2) # For plotting
    library(ggthemes) # Also for plotting
    library(gganimate) # For animating. Install using devtools::install_github('thomasp85/gganimate')
    library(kableExtra) # To display nice tables

Animating a moving particle

Here we’ll generate a moving particle. First, we need the positions in time. In our case, the dynamical equations will be given by:

$$ \begin{cases} x(t) = cos(t) \\ y(t) = sin(2t) \end{cases}$$

So we generate the series and store them in a dataframe:

    ts <- seq(0, 2*pi, length.out = 100)
    xs <- cos(ts)
    ys <- sin(2*ts)

    particle <- data.frame(ts = ts, xs = xs, ys = ys)

The code for generating the animation follows a very similar syntax to ggplot. In this case, we indicate that the values of ts should be used as the transition time.

    ggplot(data = particle) +
      geom_point(aes(x = xs, y = ys), col = 'red') + # Generate the plot
      theme_tufte() + # Make ...
      labs(x = 'x', y = 'y') + # ... it ...
      scale_y_continuous(limits = c(-2, 2)) + # ... look ...
      guides(col = FALSE) + # ... pretty.
      transition_time(ts) + # And animate!
      ease_aes('linear')

Animating a Taylor series

Let’s see now a more complex example. Our purpose is to explore Taylor polynomials of different degrees approximating the function

$$f(x) = cos(\frac{3x}{2}) e^{-x} $$

around a given point.

Thus, we begin creating the function:

    f <- function(x) {
      cos(1.5*x)*exp(-x)
    }

In this case, we want to compare how good is the performance of Taylor polynomials of different orders. The data we have to generate is a bit more complex than before.

    xs <- seq(-2, 2*pi, length.out = 1500) # Values of x
    x0 <- 1 # Value of x where the Taylor series will be centered
    ys <- matrix(0, nrow = length(xs), ncol = 9)
    for(i in 1:9) { # Extract Taylor polynomials of orders 0 to 8
      order <- i - 1 # Indexes have to be positive, but first order is 0
      if(order == 0) { # A Taylor polynomial of order zero is just...
        ys[,i] <- f(x0) # ... a constant function
      } else {
        taylor_coefs <- taylor(f = f, x0 = x0, n = order) # Get polynomial
        ys[,i] <- polyval(taylor_coefs, xs) # Evaluate polynomial
      }
    }

    # Rewrite as dataframe
    df <- data.frame(ys)
    colnames(df) <- seq(0,8)
    df <- melt(df)
    df <- cbind(df, xs = rep(xs,9), f = f(xs))
    colnames(df) <- c('order', 'ys', 'xs', 'f')

The resulting dataframe is a collection of polynomials of different orders evaluated at each point in xs. Additionally, we added the values of the original function f(x), also at each point:

A static plot will look like:

    ggplot(data = df) +
      geom_point(aes(x = xs, y = ys, col = order)) + # Generate basic plot
      geom_point(aes(x = xs, y = f)) + # Plot also original function
      geom_point(aes(x = x0, y = f(x0)), col = 'black', size = 5) + # Remark initial point
      theme_tufte() + # Make it ...
      labs(x = 'x', y = 'y') + # ... look ...
      scale_y_continuous(limits = c(-2, 2)) # ... pretty.

In order to animate it, now we will use the command transition_states, using order (the order of the Taylor polynomial) as the animation parameter. The parameters transition_length and state_length control how much time each state stays in screen, and how long the transition between states should look.

    ggplot(data = df) +
      geom_point(aes(x = xs, y = ys), col = 'red') + # Add basic plot
      geom_point(aes(x = xs, y = f)) + # Plot also original function
      geom_point(aes(x = x0, y = f(x0)), col = 'red', size = 5) + # Remark initial point
      theme_tufte() + # Make ...
      labs(x = 'x', y = 'y') + # ... it ...
      scale_y_continuous(limits = c(-2, 2)) + # ... look ...
      guides(col = FALSE) + # ... pretty.
      transition_states(order, transition_length = 1, state_length = 0.5) + # And animate!
      ease_aes('linear')

The result could not look nicer!

This entry appears in R-bloggers.com

PS: If you liked this post, this visualization I made in GeoGebra some time ago may also be of your interest.