发帖
雷达卡
在用R语言做数据分析处理的过程中，我们经常会碰到一些数据量比较大进而导致循环执行好久的情况。等待的过程太煎熬了，最关键的是我们不知道现在已经完成了多少进度，从而决定是否停止重新修改代码。
有人建议我们可以用cat函数来不断进行打印实现这一目的，然而再某些循环中，所有的cat语句输出结果会在所有代码运行完成之后才会显示，而不是我们期望的一次循环即是输出一条cat语句。
tcltk包所以我们就必须借助万能的R包来实现这个功能。一些论坛上的文章介绍了tcltk这个包，其中有一个函数tkProgressBar便可以帮助我们做到这一点。具体代码如下：
library(tcltk) u <- 1:2000 #开启进度条 pb <- tkProgressBar("进度","已完成 %", 0, 100)for(i in u) {
info<- sprintf("已完成 %d%%", round(i*100/length(u)))
setTkProgressBar(pb, i*100/length(u), sprintf("进度 (%s)", info),info) }
#关闭进度条
close(pb)
我们可以看到使用方法非常简单，首先加载tcltk包并用tkProgressBar开启进度条。其中我们这个例子中，title属性为“进度”，label是“已完成 %”，而0和100则分别代表最小进度和最大进度的值，之后我们用一个循环来测试这个进度条函数的功能，其中info表面不同时刻进度条打印的信息，setTkProgressBar则可以对我们之前创建的progressBar进行设置。
整段代码比较简单，大家再循环里可以直接拷贝，不会影响其他的函数运行，其效果大致是如下图所示：
tcltk2包目前，还有一个新的包，叫做tcltk2，也可以是实现上述的功能，具体测试代码如下。可以更详细的设置进度栏的大小等属性值：
library(tcltk)library(tcltk2)
root <- tktoplevel()
l1 <- tk2label(root)
pb1 <- tk2progress(root, length = 300)
tkconfigure(pb1, value = 0, maximum = 9)
tkgrid(l1, row = 0)tkgrid(pb1, row = 1)
for (index in 1:10){
tkconfigure(l1, text = paste("Index", index)) t
kconfigure(pb1, value = index - 1)
Sys.sleep(1)
}
京公网安备 11010802022788号
