R绘制动态曲线-蒲公英云

R绘制动态曲线

使用R语言绘制动画可以方便地观察到数据的变化行为。以之前Chrome在收集页面资料时使用的指数平滑算法为例，绘制一个在不同系数且目标值不断变化(应用场景不是页面访问统计)的情况下的曲线逼近行为。

首先要确保在R中安装了animation包, 如果需要保存成GIF动画，还需要安装ImageMagick。GIF的每一帧是基于一个plot操作的。

下面是一个示例代码：

library(animation)
ani.options(interval = 0.2)
#生成GIF
generateGIF<-function(coeff,loopingCount){
  layout(matrix(c(1, rep(2, 5)), 6, 1))
  saveGIF(generatePlots(coeff,loopingCount))
}
#动画绘制函数
generatePlots<-function(coeff,loopingCount){
  oopt = ani.options(interval = 0.2, nmax = loopingCount)
  #初始化绘图，并指定座标范围
  plot(0,0,xlim = c(0,ani.options("nmax")), ylim = c(0, 3500),col='blue',xlab="black:target value, red:actual value",ylab="Values")
  tgtValues<-c(0)
  newValues<-c(0)
  posValues<-c(0)
  oldValue=0
  for (i in 2:loopingCount) {
    tgtValues[i]=1000+rnorm(1,mean=500,sd=800)  
    newValues[i] = tgtValues[i]*coeff+newValues[i-1]*(1-coeff)
    posValues[i] = i
    plot(0,0,xlim = c(0,ani.options("nmax")), ylim = c(0, 3500),col='blue',xlab="black:target value, red:actual value",ylab="Values")
    points(posValues,tgtValues,col="black")
    points(posValues,newValues,col="red")
    lines(posValues,newValues,col="red")
    ani.pause() 
  }
}