实验用animation包来玩GIF动画

谢益辉建设的这个animation包实在是很好玩，上面这个GIF动画就是用lattic包绘制的静态图形构建的。要在R内里玩动画除了要安装animation包之外，还需要安装配套软件。譬喻安装ImageMagick，以利便生成GIF文件。动画生成道理很简朴，根基上就是在saveGIF内里嵌套一些轮回画图的代码，但要留意的是：对付lattice或是ggplot2画图呼吁，最后必然要利用print，否则出不了图。别的要在配置参数内里写清楚ImageMagick的安装路径。

library(animation)

library(lattice)
 saveGIF({
    ani.options(interval=.1,
                convert = shQuote(‘d:/program files/ImageMagick-6.7.6-Q16/convert.exe’))

    for (i in seq(0,360,by=5)) {
        p <- wireframe(volcano, shade = TRUE,
                  aspect = c(61/87, 0.4),
                  light.source = c(10,0,10),
                  screen = list(z = i, x = -60)) 
    print(p)
        }
})

下面一张动画是模仿丛林火警。首先在丛林中心点燃一棵树，然后周围的树会以必然的概率被影响到，最后烧过的树以灰色暗示。挺好玩的模子。该模子的原始代码可以从《Introduction to Scientific Programming and Simulation Using R》一书中找到。我只不外修改了一下颜色并生成了动画。最后的代码可以看这里。


最多好玩的动画可以从作者的官方网站找到。