從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)