일련의 플롯에서 동영상 만들기 R

Question

R 내에서 여러 플롯을 결합하여 "동영상"을 만드는 쉬운 방법이 있습니까?

Answer 1

는 여기에 내가 R 도움말을 사용하여 발견 한 방법이다.

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

을 또는이 article (내가 찾은이 제공 청소기 결과)에 설명 된대로는 FFmpeg 기능을 사용해보십시오 : 그때 (내가 생각 ImageMagick과의 일부, "변환"호출) 다음 함수를 호출 을 ffmpeg -r 25 -qscale 2 -i tmp/foo % 02d.jpg output.mp4

약간의 수정이 필요할 수도 있지만, 일단 모든 것이 설치되면 매우 간단 해 보입니다.

"jpg"또는 "jpeg"가 보이는 곳이라면 물론 GIF 또는 PNG로 대체하여 멋지게 꾸밀 수 있습니다.

Answer 2

R에서 데이터 포인트가 MySQL 데이터베이스로 내보내지고 Flex/Flash 애플리케이션이 해당 데이터 포인트를 선택하고 애니메이션 시각화를 제공 한 경우 프로젝트를 한 번 수행했습니다.

Answer 3

R 스크립트를 더 큰 Perl/Python/etc로 감싸는 경우. 스크립트를 사용하면 좋아하는 명령 줄 이미지 결합 도구와 함께 그래프를 스티치 할 수 있습니다.

래퍼 스크립트로 R 스크립트를 실행하려면 R CMD BATCH 메서드를 사용하십시오.

Answer 4

Yihui Xie 또는 EBImage 생체 컨덕터 패키지 (? animate)로 만든 animation 패키지를 살펴보십시오.

개별 이미지 프레임을 만들려면 :

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

처음 ImageMagick를 설치, 영화를 만들려면

Answer 5

나는 이것을 caTools 라이브러리의 write.gif 함수로도 할 수 있다고 생각한다. 먼저 그래프를 멀티 프레임 이미지로 만들어야합니다. 어떻게해야할지 모르겠다. 누군가? 뷰어?

애니메이션 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) 

코드 신용 Jarek Tuszynski, 박사로 이동합니다.

Answer 6

저는 XNview (프리웨어 그래픽 뷰어) Create Slideshow 기능을 사용하여 일부 동영상을 보았습니다. 공간 데이터를 사용하여 시간 경과에 따른 동향을 보여주고 싶었 기 때문에 순차적으로 이름 붙여진 일련의 플롯을 만들었습니다. [paste()는 모든 종류의 이름 지정 칼리스토시즘에 대한 친구입니다] 그런 다음 XNviews 슬라이드 쇼 대화 상자에로드하고 몇 가지 타이머 변수를 설정합니다. 실망. 그것을하는 방법 및 실행 가능한 그래픽을 만드는 방법을 배우기 위해 5 분이 걸렸습니다.

Answer 7

다음은 HDF5 파일에서 애니메이션 GIF "영화"를 만드는 데 대한 전체 예제입니다. 데이터는 3 차원 배열 [Nframes] [Nrows] [Ncolumns]의 HDF 데이터 집합이어야합니다.

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