Question

我正在尝试使用R中的'animation'包来绘制动画时间序列。

我的数据集由时间向量和值向量组成，每个向量都有1800行。

运行循环后，我不断收到错误消息：

Error in jpeg(gname[i]) : unable to start jpeg() device
In addition: Warning messages:
1: In jpeg(gname[i]) : unable to open file 'g11:30:00.jpg' for writing
2: In jpeg(gname[i]) : opening device failed

这是源代码

timemax<-1800
setwd("~/Documents/Animation/")
graphdata<-read.csv("filling_line_data_construction_v2.csv")
attach(graphdata)
gname<-paste("g",time, ".jpg", sep="")
for (i in 1:timemax){
    jpeg(gname[i])
    plot(time[1],value[1],type="l",ylim=c(0,35), xlim=c(0,100),
      ylim = c(0, 35),ylab = "", xlab="time")
    lines(time[1:i],value[1:i])
    dev.off(dev.cur())
}

最终目标是通过调用ffmpeg shell将这1800个图表串起来作为停止动画视频：

shell("C:/ffmpeg/bin/ffmpeg.exe -report -i g%d.jpg -b:v 2048k fillin_lineR.mpg",mustWork=FALSE)

这是我一直试图从http://www.animatedgraphs.co.uk/LondonR.html#slide-30改编的代码，但是这个例子使用.tif文件而不是.jpg，而我的计算机在尝试制作视频时给出了1800条错误消息。 tif文件......

提前致谢！

如何在R中绘制动画时间序列？

0 个答案: