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, есть txtProgressBar http://stat.ethz.ch/R-manual/R-patched/library/utils/html/txtProgressBar.html Из примера этой страницы я понимаю, что вам нужно написать цикл for в функцию, чтобы вызвать ее впоследствии, с которой я борюсь с моим примером.

Как я могу реализовать индикатор выполнения в цикле for?

Ответ 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

Ответ 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')
}
# ============================