R:for循环中的文本进度条

Posted

技术标签:

【中文标题】R:for循环中的文本进度条【英文标题】:R: Text progress bar in for loop 【发布时间】:2015-01-11 05:48:42 【问题描述】:

我有一些示例代码,其中包含一个 for 循环并创建了一些像这样的图(我的实际数据创建了数千个图):

xy <- structure(list(NAME = structure(c(2L, 3L, 1L, 1L), .Label = c("CISCO","JOHN", "STEPH"), class = "factor"), ID = c(41L, 49L, 87L, 87L), X_START_YEAR = c(1965L, 1948L, 1959L, 2003L), Y_START_VALUE = c(940L,-1760L, 110L, 866L), X_END_YEAR = c(2005L, 2000L, 2000L, 2007L), Y_END_VALUE = c(940L, -1760L, 110L, 866L), LC = structure(c(1L,1L, 2L, 2L), .Label = c("CA", "US"), class = "factor")), .Names = c("NAME", "ID", "X_START_YEAR", "Y_START_VALUE", "X_END_YEAR", "Y_END_VALUE","LC"), class = "data.frame", row.names = c(NA, -4L))

ind <- split(xy,xy$ID) # split by ID for different plots

# Plots
for (i in ind)
  xx = unlist(i[,grep('X_',colnames(i))])
  yy = unlist(i[,grep('Y_',colnames(i))])    
  fname <- paste0(i[1, 'ID'],'.png')
  png(fname, width=1679, height=1165, res=150)
  par(mar=c(6,8,6,5))
  plot(xx,yy,type='n',main=unique(i[,1]), xlab="Time [Years]", ylab="Value [mm]") 
  i <- i[,-1]
  segments(i[,2],i[,3],i[,4],i[,5],lwd=2)
  points(xx, yy, pch=21, bg='white', cex=0.8)
  dev.off()
 

要查看 for 循环的进度,我有兴趣将进度条合并到我的代码中。正如我从 R 文档中发现的那样,有 txtProgressBar http://stat.ethz.ch/R-manual/R-patched/library/utils/html/txtProgressBar.html 从该页面的示例中,我了解到您必须将 for 循环写入一个函数,然后再调用它,我正在努力解决我的示例。

如何在 for 循环中实现进度条?

【问题讨论】:

【参考方案1】:

要使进度条正常工作,您需要一个数字来跟踪您的进度。作为一般规则,这是我更喜欢将 for 与 (i in 1:length(ind)) 一起使用而不是直接将我想要的对象放在那里的原因之一。或者,您只需在每次迭代中创建另一个 stepi 变量即可 stepi = stepi + 1

你首先需要在循环外创建进度条对象

pb = txtProgressBar(min = 0, max = length(ind), initial = 0) 

那么你需要在每次迭代中更新

setTxtProgressBar(pb,stepi)

setTxtProgressBar(pb,i)

记得关闭进度条输出换行符。来自文档:

完成后应该关闭进度条:这会输出 最后一个换行符。

只需在循环末尾添加:

close(pb)

如果循环中还包含print 命令,这将无法正常工作

【讨论】:

还可以查看 txtProgressBar 的选项。如果你使用它们看起来会更好 是的,我做到了,谢谢。唯一似乎不起作用的是标题和标签选项?您是否碰巧知道一种解决方法,因为拥有一个标题会很酷。【参考方案2】:

您可以即时编写一个非常简单的来显示完成百分比:

n <- 100
for (ii in 1:n) 
  cat(paste0(round(ii / n * 100), '% completed'))
  Sys.sleep(.05)
  if (ii == n) cat(': Done')
  else cat('\014')

# 50% completed

或者一个复制文本栏:

n <- 100
for (ii in 1:n) 
  width <- options()$width
  cat(paste0(rep('=', ii / n * width), collapse = ''))
  Sys.sleep(.05)
  if (ii == n) cat('\014Done')
  else cat('\014')

# ============================

另一个带有文本栏和完成百分比的:

options(width = 80)
n <- 100
for (ii in 1:n) 
  extra <- nchar('||100%')
  width <- options()$width
  step <- round(ii / n * (width - extra))
  text <- sprintf('|%s%s|% 3s%%', strrep('=', step),
                  strrep(' ', width - step - extra), round(ii / n * 100))
  cat(text)
  Sys.sleep(0.05)
  cat(if (ii == n) '\n' else '\014')


|==================================================                        | 67%

【讨论】:

【参考方案3】:

现在通过包svMisc 提供了一个更简单的解决方案,例如,只需将progress() 放入for 循环中

library(svMisc)
for (i in 1:n)
# <YOUR CODES HERE>
progress(i)
 

【讨论】:

【参考方案4】:

我遇到了同样的问题 - 我想为我的 for 循环添加一个进度条。如上所述,使用svMisc 可能是向循环添加进度条的最简单方法。 然而,在大的ns 中,如果你不添加max.value,它就会分崩离析。

library(svMisc)
n=100
for (i in 1:n)
# <YOUR CODES HERE>
progress(i)
 

上面的例子可能会很好,但是如果你像下面的例子一样增加n

library(svMisc)
n=1031
for (i in 1:n)
# <YOUR CODES HERE>
progress(i)
 

进度条将达到 100,而 R 仍在工作。 为了避免这种情况,您必须指定循环的结束值,如下所示。

for (i in 0:1031) 
  progress(i, 1031)
  Sys.sleep(0.02)
  if (i == 1031) message("Done!")

这对我有用。有关详细信息,请参阅 svMisc 文档 here。

【讨论】:

以上是关于R:for循环中的文本进度条的主要内容,如果未能解决你的问题,请参考以下文章

python实例文本进度条

带有进度条的 FOR 循环包装器

如何根据嵌套循环中的多个变量报告进度(对于进度条)?

java实现进度条

r 循环和函数的进度条[R]

使用一个进度条java / Android下载多个文件