convertコマンドが必要。
for (i in formatC(1:20,width=2,flag="0")) { a <- data.frame(rnorm(26),rnorm(26)) eval(parse(text=paste("png(file=\"",i,".png\")",sep=""))) plot(a, pch=LETTERS, col=rainbow(26), axes=F, xlab="", ylab="") dev.off() } system("convert -loop 0 -delay 20 -transparent '#ffffff' -dispose Background [0-9]*.png anim.gif") system("rm -i [0-9]*.png")