The Bubbles Animation in Hans Rosling's Talk

An imitation to Hans Rosling's talk using bubbles animation.

library(animation)
ani.options(interval = 0.2, ani.height = 450, ani.width = 600, outdir = getwd(),
    title = "The Bubbles Animation in Hans Rosling's Talk",
    description = "An imitation of Hans Rosling's moving bubbles.")
ani.start()
par(mar = c(4, 4, 0.2, 0.2))
# with 'years' as the background
Rosling.bubbles(text = 1951:2000)
ani.stop()

1. http://www.ted.com/index.php/talks/hans_rosling_shows_the_best_stats_you_ve_ever_seen.html