-1

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

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

例如,在每个图的顶部;我想要这样的东西:

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

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

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

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

等等

任何想法 ?

4

1 回答 1

0

下面是几种类型的进度条。这是你要找的吗?

#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()
于 2013-03-22T15:56:32.490 回答