从R中的一系列情节创build电影

有没有一种简单的方法来创build一个“电影”通过拼接在R几个地块?

这里是我使用R帮助find的一种方法:

要创build单个图像帧:

jpeg("/tmp/foo%02d.jpg") for (i in 1:5) { my.plot(i) } dev.off() 

要制作电影,首先安装ImageMagick 。 然后调用下面的函数(调用“convert”,ImageMagick的一部分,我想):

 make.mov <- function(){ unlink("plot.mpg") system("convert -delay 0.5 plot*.jpg plot.mpg") } 

或者尝试使用本文中描述的ffmpeg函数(我发现这会给出更清晰的结果):ffmpeg -r 25 -qscale 2 -i tmp / foo%02d.jpg output.mp4

可能需要一些修补,但是一旦安装完毕,这似乎很简单。

当然,在任何你看到“jpg”或“jpeg”的地方,都可以用GIF或PNG来替代你的幻想。

看看Yihui Xie创build的animation包或EBImage bioconductor软件包(?animate)。

我想你也可以用caTools库中的write.gif函数来做到这一点。 您必须首先将您的graphics转换为多帧图像。 我不知道该怎么做。 任何人? Bueller?

一个animationGIF的经典例子是我没有写的代码,但是我之前做过博客 :

 library(fields) # for tim.colors library(caTools) # for write.gif m = 400 # grid size C = complex( real=rep(seq(-1.8,0.6, length.out=m), each=m ), imag=rep(seq(-1.2,1.2, length.out=m), m ) ) C = matrix(C,m,m) Z = 0 X = array(0, c(m,m,20)) for (k in 1:20) { Z = Z^2+C X[,,k] = exp(-abs(Z)) } image(X[,,k], col=tim.colors(256)) # show final image in R write.gif(X, 'Mandelbrot.gif', col=tim.colors(256), delay=100) 

代码功劳归功于Jarek Tuszynski博士。

如果你把你的R脚本封装在一个更大的Perl / Python / etc中。 脚本,您可以使用您最喜欢的命令行图像拼接工具将graphics缝合在一起。

要使用包装器脚本运行R脚本,请使用R CMD BATCH方法。

我不确定在R中是否有可能。我曾经做过一个项目,当R的数据点被导出到MySQL数据库时,一个Flex / Flash应用程序拾取了这些数据点并给出了animation可视化。

我已经使用XNview的(免费graphics浏览器)创build幻灯片function做了一些电影。 我想通过空间数据来显示时间趋势,所以我只创build了一系列的图表,按顺序命名[paste()是各种命名calistethics的朋友],然后将它们加载到XNviews幻灯片对话中,并设置一些计时器variables,瞧。 花了5分钟学习如何做,并产生一些可执行的graphics。

下面是一个完整的从HDF5文件制作GIF“animation”的例子。 数据应该是3维数组的HDF数据集[Nframes] [Nrows] [Ncolumns]。

 # # be sure to be run as Administrator to install new packages # source("http://bioconductor.org/biocLite.R") biocLite("rhdf5") install.packages('caTools') install.packages('fields') library(caTools) library(fields) library(rhdf5) x = h5read(file="mydata.h5",name="/Images") write.gif(x,"movie1.gif",col=rainbow,delay=10,flip=TRUE) 
    Interesting Posts