数据处理过程如何实现实时绘图？

某水一圣

如果程序对数据的处理快，需要每秒输出很多图像，来表示数据处理状态，用plot，barplot之类好像不行，显示不了太快。
新人求指教！！

某水一圣

platinum3776 发表于 2015-3-8 11:09
这个你最好去参考一下谢益辉的animation包

1. x<-rnorm(100)
   
2. x<-abs(x)
   
3. library(animation)
   
4. bs<-function(x){ #这是冒泡排序
   
5.         t<-0
   
6.         for(i in 2:100){
   
7.                 for(j in 1:99){
   
8.                         if(x[j]>x[j+1]){
   
9.                                 t<-x[j]
   
10.               x[j]<-x[j+1]
    
11.               x[j+1]<-t
    
12.                                 barplot(x)
    
13.                                 oopt = ani.options(interval = 0.05)
    
14.                                 ani.pause()
    
15.                                 ani.options(oopt)
    
16.             }
    
17.           }
    
18.         }
    
19.         return(x)
    
20. }
    
21. bs(x)

复制代码

是这样？最快也这样了。

platinum3776

这个你最好去参考一下谢益辉的animation包

platinum3776

某水一圣 发表于 2015-3-8 15:31
是这样？最快也这样了。

抱歉，我只是听说过animation包有动画效果，并没用过，不过我看这速度也就差不多了，你可以看一下谢益辉的浦丰投针试验的速度library("animation")  

buffon.needle(nmax=50,inerval=0)    #蒲丰投针试验动态演示
f=function(n) rchisq(n,5)          #中心极限定理动态演示


clt.ani(FUN=f)