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

Question

我有一些示例代码,其中包含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循环中实现进度条？

Answer 1

要使进度条工作,您需要一个数字来跟踪您的进度.这是我喜欢使用的一般规则的原因之一,(i in 1:length(ind))而不是直接放置我想要的对象.或者,您只需创建另一个在每次迭代中stepi执行的变量stepi = stepi + 1.

首先需要在循环外创建progressbar对象

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

然后你需要在每次迭代时更新

setTxtProgressBar(pb,stepi)

要么

setTxtProgressBar(pb,i)

如果循环中还包含print命令,这将很难工作

Answer 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')
}
# ============================

Answer 3

我遇到了同样的问题 - 我想为我的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文档。

Answer 4

现在有一个更简单的解决方案 package svMisc，只需将progress()其放入 for 循环中，例如

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

如下所示，如果 for 循环很长，则需要添加 n：

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