R：在for循環

我有一個包含一個for循環，並創建一些地塊這樣的一些示例代碼文本進度條（我的實際數據產生幾千地塊）：R：在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的文檔中發現，有txtProgressBarhttp://stat.ethz.ch/R-manual/R-patched/library/utils/html/txtProgressBar.html 從該頁面的例子我明白，你必須編寫for循環到一個函數後調用它，我正在努力與我的例子。

我該如何在for循環中實現進度條？

來源

2014-11-13 kurdtc

爲進度條上班，你需要一個號碼來跟蹤你的進度。這是我喜歡用(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命令

來源

2014-11-13 22:49:38 OganM

還檢查了txtProgressBar的選項。它看起來好多了，如果你使用它們 – OganM

是的，我這樣做，謝謝。唯一不起作用的是標題和標籤選項？你碰巧知道一種解決方法，因爲擁有一個標題會很酷。 – kurdtc

我通過使用'cat（）'函數找到了一個解決方法。 – kurdtc

你可以寫上飛一個非常簡單的顯示已完成百分比：

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

來源

2014-11-13 23:04:26 rawr

回答

相關問題