r - 在图像中绘制进度条

Question

我正在使用 R 绘制 24 张关于一天中每个小时的温度的不同图像。

我不想为每个情节添加标签（即 00:00；01:00、02:00 等），而是希望在每个情节的顶部有一个“进度条”，在每个情节之后移动一步。

例如，在每个图的顶部；我想要这样的东西：

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

Plot-2.pdf: ---------A---------

Plot-3.pdf: -----------A--------

Plot-3.pdf: -------------A-----

等等

任何想法 ？

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()