R Package ''animation''

This package consists of various functions for animations in statistics, covering many areas such as probability theory, mathematical statistics, multivariate statistics, nonparametric statistics, sampling survey, linear models, time series, computational statistics, data mining and machine learning. These functions might be of help in teaching statistics and data analysis.

There is at least one significant difference between the disciplines of pure mathematics and statistics: usually statistics can be imagined in a very practical way, while it is not always true for mathematics. For example, everyone can imagine why k-Nearest Neighbor technique works, but perhaps not everyone can imagine why Taylor expansion technique works, although we can prove it!

Thus an animation package is written – just for better understanding of statistical techniques and data analysis.

This package animation is available on CRAN now; the source code as well as the Windows binary can be downloaded at:

http://cran.r-project.org/web/packages/animation/index.html

You may install by R CMD INSTALL after downloading the source or simply use install.packages() in R:

install.packages("animation")

Watching animations either inside R (in windows graphics devices) or outside R (in HTML pages) are OK:

1. Inside R: just type the animation functions in the console, and watch the animations in an R windows graphics device. Usually we don't need to provide any argument values because all there are default ones for demonstration purposes. The time interval for animations can be set in ani.options() (the interval argument).
2. Outside R: the package has also provided a way to create HTML output containing the animations. You may use the function ani.options() to specify a series of parameters to control the output, e.g. ani.dev to select an R graphics devices such as png, jpeg, etc; ani.width and ani.height to specify the width and height of image frames. Then call ani.start(), an animation function and ani.stop() to produce the HTML animation output.

For further information, please check corresponding help pages or learn how the HTML pages are created.

How to generate an animation sequence and save it?

The animation method behind the package is quite naive and intuitive; here is an example showing how it works:

for (i in 1:360) {
    plot(1, ann = F, type = "n", axes = F)
    text(1, 1, "Animation", srt = i, col = rainbow(360)[i], cex = 7 * 
        i/360)
    Sys.sleep(0.01)
}

The above R code will produce an animation like this:

Almost all of the animation functions in the package just follow this kind of loop to produce a sequence of image frames.

Here is the pseudo code for the general schema used in the package:

#---------------------------------------------------------------------------#
# Some parameters in 'ani.options()' such as 'nmax' and 'interval' have been
#   appropriately set beforehand;
#---------------------------------------------------------------------------#
ani.fun <- function(args.for.stat.method, args.for.graphics, ...) {
    {stat.calculation.for.preparation.here}
    i = 1
    while (i <= ani.options("nmax") & other.conditions.for.stat.method) {
        {stat.calculation.for.animation}
        {plot.results.in.ith.step}
        # pause for a while in this step
        Sys.sleep(ani.options("interval"))
        i = i + 1
    }
    # (i - 1) frames produced in the loop
    ani.options("nmax") = i - 1
    {return.something}
}
#---------------------------------------------------------------------------#
# To produce an HTML animation page, use 'ani.start(...)'; then 
# 'ani.fun(...)'; use 'ani.stop(...)' to complete the HTML page.
#---------------------------------------------------------------------------#
# To produce GIF/MPEG animations, use 'saveMovie(ani.fun(...), ...)';
#---------------------------------------------------------------------------#
# To produce Flash animations, use 'saveSWF(ani.fun(...), ...))';
#---------------------------------------------------------------------------#

What should be noted here is: the actual number of image frames might not be equal to the nmax set in ani.options() before, because nmax is not the sole condition to break the loop; sometimes a statistical method may have other conditions such as a threshold for error, etc. That's why we have to reset the nmax parameter in the end¹⁾.

The animation in the HTML pages is actually driven by JS. For more details, please refer to the method to create an HTML animation page. To generate animations in this wiki, you should read the HTML animation examples and the animation plugin for Dokuwiki.

The package has also provided a wrapper to generate GIF animations together with ImageMagic. The method is even easier; we merely need to write some code which can produce a sequence of images, and the rest work will be done by the function saveMovie() in the package. See the example below in the “Examples” section. (Actually the GIF animation above is just made by this function.)

The SWF Tools a collection of SWF manipulation and creation utilities written by Rainer Böhme and Matthias Kramm, and the package animation has also provided a wrapper saveSWF() to generate Flash animations with the help of these tools. Currently three graphics devices are available for producing Flash animations: png, jpeg and pdf. There is also an example below.

Currently we can directly use the functions in the package to produce animations, or we can also define animation functions for ourselves.

library(animation)
 
# inside R: windows graphics device
oopt = ani.options(interval = 0.05, nmax = 150)
brownian.motion(n = 15, pch = 21, cex = 5, col = "red", bg = "yellow")
ani.options(oopt)
 
# outside R: create an HTML animation page
oopt = ani.options(interval = 0.05, nmax = 100, 
    title = "Demonstration of Brownian Motion",
    description = "Random walk on the 2D plane: for each point (x, y), 
    x = x + rnorm(1) and y = y + rnorm(1).")
ani.start()
opar = par(mar = c(3, 3, 1, 0.5), mgp = c(2, .5, 0), tcl = -0.3,
    cex.axis = 0.8, cex.lab = 0.8, cex.main = 1)
brownian.motion(pch = 21, cex = 5, col = "red", bg = "yellow")
par(opar)
ani.stop()
ani.options(oopt)

Check the page Brownian Motion (Random Walk) to see the results.

The following code has explained how to define animation functions for yourself (please read the general schema above first):

library(animation)
# define an animation function to show the jitter effect
jitter.ani <- function(amount = 0.2, ...) {
    x <- sample(3, 300, TRUE\, c(0.1, 0.6, 0.3))
    y <- sample(3, 300, TRUE\, c(0.7, 0.2, 0.1))
    i <- 1
    while (i <= ani.options("nmax")) {
        plot(jitter(x, amount = amount), jitter(y, amount = amount), 
            xlim = c(0.5, 3.5), ylim = c(0.5, 3.5), xlab = "jittered x", 
            ylab = "jittered y", panel.first = grid(), ...)
        points(rep(1:3, 3), rep(1:3, each = 3), cex = 3, pch = 19)
        Sys.sleep(ani.options("interval"))
        i <- i + 1
    }
} 
ani.start(nmax = 30, interval = 0.5, title = "Jitter Effect")
par(mar = c(5, 4, 1, 0.5))
jitter.ani()
ani.stop()

To see the animation effects, please visit the example page for jitter effect.

Following the above example, we pass an expression to the function saveMovie() to create a similar animation:

library(animation)
saveMovie(jitter.ani(), interval = 0.5, outdir = getwd())

Here is a Flash animation example for the kNN algorithm:

oopt = ani.options(interval = 0, nmax = 50)
saveSWF(knn.ani(test = matrix(rnorm(16), ncol = 2), 
    cl.pch = c(16, 2)), 1.5, dev = "png", para = list(mar = c(3, 
    3, 1, 1.5), mgp = c(1.5, 0.5, 0)))
ani.options(oopt)

Be sure your browser has the Flash plugin to view Flash animations.

See the NEWS file of the package. There are significant changes since version 1.0-0 (it has been submitted to CRAN); if you wish to know more about the old versions, please read the page package ''animation'' prior to 1.0-0.

• To include more interesting examples to demonstrate statistical theories
• Introduce interactivity of animations in the web using services like Rweb.
• Try to make 3D animations with other packages such as ''rgl''
• Learn other dynamic graphics systems such as ''GGobi''
• Introduce a GUI written in ''GTK+'' (R package ''RGtk2''), or tcltk, etc

I have included some miscellaneous functions in this package too, which may (may not) have something (anything) to do with animations. If you are interested, please read this page.