我有一些包含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循环中实现进度条?
答案 0 :(得分:18)
要使进度条正常工作,您需要一个数字来跟踪您的进度。这是我喜欢使用(i in 1:length(ind))
而不是直接放置我想要的对象的一般规则的原因之一。或者,您只需创建另一个stepi
变量,并在每次迭代中执行stepi = stepi + 1
。
首先需要在循环外创建进度条对象
pb = txtProgressBar(min = 0, max = length(ind), initial = 0)
然后你需要在每次迭代时更新
setTxtProgressBar(pb,stepi)
或
setTxtProgressBar(pb,i)
如果循环中还有print
个命令
答案 1 :(得分:7)
您可以动态编写一个非常简单的文件来显示完成百分比:
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')
}
# ============================