График выполнения графика в изображении

Question

Я использую R для отображения 24 различных изображений о температуре в каждый час дня.

Вместо добавления ярлыка на каждый участок (т.е. 00:00, 01:00, 02:00 и т. Д.), Я хотел бы иметь «индикатор выполнения» в верхней части каждого графика, который перемещается на один шаг после каждый сюжет.

Например, в верхней части каждой фигуры; Я хочу иметь что-то вроде этого:

Plot-1.pdf: ------- -----------

Сюжетно-2.pdf: --- ------ ---------

Сюжетно-3.pdf: ----------- -------

земля -3.pdf: ------------- -----

т.д.

Любая идея?

Answer 1

Ниже представлены несколько типов индикаторов выполнения. Это то, что вы ищете?

#First Type =============================== 

total <- 20 
# create progress bar 
pb <- txtProgressBar(min = 0, max = total, style = 3) 
for(i in 1:total){ 
    Sys.sleep(0.1) 
    # update progress bar 
    setTxtProgressBar(pb, i) 
} 
close(pb) 

#Second Type ============================== 

total <- 20 
# create progress bar 
pb <- tkProgressBar(title = "progress bar", min = 0, 
       max = total, width = 300) 

for(i in 1:total){ 
    Sys.sleep(0.1) 
    setTkProgressBar(pb, i, label=paste(round(i/total*100, 0), 
            "% done")) 
} 
close(pb) 

#Third Type ============================== 

# create progress bar 
pb <- winProgressBar(title = "progress bar", min = 0, 
       max = total, width = 300) 

for(i in 1:total){ 
    Sys.sleep(0.1) 
    setWinProgressBar(pb, i, title=paste(round(i/total*100, 0), 
            "% done")) 
} 
close(pb) 

#Fourth Type ================================ 

foo <- function(...){ 
    total <- 40 
    pb <- txtProgressBar(min = 0, max = total, style = 3) 
    # computation block 1 
    for(i in 1:20){ 
     Sys.sleep(0.1) 
     setTxtProgressBar(pb, i) 
    } 

    # computation block 2 
    for(i in 21:total){ 
     Sys.sleep(0.1) 
     setTxtProgressBar(pb, i) 
    } 
    close(pb) 
} 

# Run it    
foo()