The Bubbles Animation in Hans Rosling's Talk

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

library(animation)
saveHTML({ani.options(interval = 0.2)
    par(mar = c(4, 4, 0.2, 0.2))
# with 'years' as the background
    Rosling.bubbles(text = 1951:2000)
},
    img.name="Rosling_bubbles", htmlfile="Rosling_bubbles.html",
	ani.height = 500, ani.width = 600, outdir = getwd(),
	title = "The Bubbles Animation in Hans Rosling's Talk",
    description =c(An imitation of Hans Rosling's moving bubbles."))

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