从R系列图中创建电影

Question

有没有一种简单的方法可以通过在R内拼接几个图来创建“电影”？

Answer 1

这是一个方法，我发现，使用R帮助：

要创建单独的图像帧：

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

拍电影，第一次安装ImageMagick。 然后调用下面的函数（所谓的“转化”，我想的ImageMagick的一部分）：

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

，或者由于本article（我发现这给清洁效果）描述尝试使用ffmpeg的功能： ffmpeg -r 25 -qscale 2 -i tmp/foo％02d.jpg output.mp4

可能需要一点修补，但是一旦安装了所有东西，这似乎很简单。

当然，无论你看到“jpg”还是“jpeg”，都可以用GIF或PNG来替代你的幻想。

Answer 2

我不知道这是可能的R.我做了一个项目时，一次从R数据点被导出到一个MySQL数据库和一个Flex/Flash应用程序拿起这些数据点又给动画视觉化..

Answer 3

如果你将R脚本封装在更大的Perl/Python /等内。脚本，您可以将图形与您喜欢的命令行图像拼接工具一起缝合。

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

Answer 4

看一下Yihui Xie创建的animation包或者EBImage bioconductor包（？animate）。

Answer 5

我想你也可以用caTools库中的write.gif函数来做到这一点。你必须先把你的图形变成一个多帧图像。我不知道该怎么做。任何人？ Bueller？

GIF动画的经典例子是这样的代码，我没有写，但我没有blog about前段时间：

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) 

代码归功于亚雷克Tuszynski，博士学位。

Answer 6

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

Answer 7

下面是从HDF5文件制作动画GIF“电影”的完整示例。数据应该是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)