R: animation

R News 8/2にlibrary(animation)の解説記事があったので試してみた。

しかしHTML出力では、
以下にエラー dev.off() : QuartzBitmap_Output - unable to open file 'images/100.png'
といわれてしまう。出力デバイスをX11にすればよいのかとか、しばらく試行錯誤するがうまくいかず。

なので、saveMovie()を試してみたら、こちらはうまくいった。ImageMagickが必要だが。

で、下はImageMagickではなくQuickTimeでMP4化したもの(が、さらにflash化されたもの)。

再生できない場合、ダウンロードは🎥こちら

コードはこういうもの。

library(animation)

sin.ani <- function() {
	i <- 1
	n <- ani.options("nmax")
	x <- seq(0, 2*pi, length = 100)
	s <- 2*pi / n
	while (i <= n) {
		plot(x, sin(x + s * i), ylab = "sin(x)", type = "l")
#		Sys.sleep(ani.options("interval"))
		i <- i + 1
	}
}

ani.options(nmax = 100)
saveMovie({sin.ani()}, outdir = getwd(),
          interval = 0.1,
          width = 480, height = 320)

タグ：R