1.下载安装animation包
install.packages("animation")
2.加载animation包并准备数据
library(animation)
set.seed(123)
data<-data.frame(x=runif(100,0,100),y=runif(100,0,100))
3.绘制静态图像
plot(data)
4.创建动画函数
ani.fun<-function(){
for(i in 1:100){
plot(data[1:i,],xlim=c(0,100),ylim=c(0,100))
points(data[i,],col="red",pch=19)
}
}
5.生成GIF格式动画
ani.options(interval=0.1)
saveGIF(ani.fun(),interval=0.1,ani.width=480,ani.height=480)
6.播放动画
im.play("animation.gif")