library(tcltk)
u <- 1:2000
plot.new()
pb <- tkProgressBar("进度","已完成 %",  0, 100)
for(i in u) {
    x<-rnorm(u)
    points(x,x^2,col=i)
    info <- sprintf("已完成 %d%%", round(i*100/length(u)))
    setTkProgressBar(pb, i*100/length(u), sprintf("进度 (%s)", info), info)
}   
close(pb)#关闭进度条

    最近利用R结合中国地图绘制了一些有数据展示图，水平不济，画的实在是丑啊！故附上一幅用R绘制的精美图片一份（这是一个Facebook的朋友关系图） http://paulbutler.org/archives/visualizing-facebook-friends/，以激励一下自己！http://www/uc/myshow/blog/misc/gif/E___6838EN00SIGG.gif