Создание фильма из серии сюжетов в 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") 
} 

Или попробуйте использовать функцию FFmpeg, как описано в этом article (я нашел это дает более чистых результатов): 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/etc. скрипт, вы можете сшивать графики вместе с вашим любимым инструментом строчки изображения командной строки.

Чтобы запустить скрипт R с помощью сценария оболочки, используйте метод R CMD BATCH.

Answer 4

Посмотрите на упаковке animation, созданной Yihui Xie или пакетом bioconductor EBImage (? Animate).

Answer 5

Я думаю, вы можете сделать это также с помощью функции write.gif в библиотеке caTools. Сначала вы должны получить свой график в виде многокадрового изображения. Я не знаю, как это сделать. Кто угодно? 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() - ваш друг для всех видов именования калитетиков], затем загрузил их в диалог слайд-шоу XNviews и установил несколько переменных таймера, вуаля. Потребовалось 5 минут, чтобы узнать, как это сделать и создать некоторую исполняемую графику.

Answer 7

Вот полный пример создания анимированного GIF-фильма из файла HDF5. Данные должны быть набором данных 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)