Rで解析:処理の経過・終了時間のプログレスバーを表示します。「progress」パッケージ

Rの解析に役に立つ記事
スポンサーリンク

処理の経過・終了時間をコンソールに表示しするパッケージの紹介です。

処理の状況の把握は安心できるものです。

パッケージバージョンは1.2.2。実行コマンドはwindows 11のR version 4.1.2で確認しています。


スポンサーリンク

パッケージのインストール

下記、コマンドを実行してください。

#パッケージのインストール
install.packages("progress")

実行コマンド

詳細はコメント、パッケージのヘルプを確認してください。

#パッケージの読み込み
library("progress")

#プログレスバーの基本的な使い方:progress_barコマンド
#新規作成:$new
#totalとSys.sleepのnを同じ値にするのがポイントです
#totalオプションで最大範囲を指定
n <- 100
pb <- progress_bar$new(total = n)
for (i in 1:n) {
  pb$tick()
  
  ###&#12371;&#12371;&#12395;&#20966;&#29702;&#12467;&#12510;&#12531;&#12489;&#12434;&#35352;&#36848;&#12375;&#12390;&#21033;&#29992;&#12377;&#12427;#####
  
  Sys.sleep(1 / n)
}

#&#32076;&#36942;&#26178;&#38291;&#12434;&#34920;&#31034;
n <- 100000
pb <- progress_bar$new(total = n,
                          format = "[:bar] :percent &#32076;&#36942; :elapsed",
                          clear = TRUE)
for (i in 1:n) {
  pb$tick()
  
  ###&#12371;&#12371;&#12395;&#20966;&#29702;&#12467;&#12510;&#12531;&#12489;&#12434;&#35352;&#36848;&#12375;&#12390;&#21033;&#29992;&#12377;&#12427;#####
  
  Sys.sleep(1 / n)
}

#&#32066;&#20102;&#26178;&#38291;&#12434;&#34920;&#31034;
n <- 100000
pb <- progress_bar$new(total = n,
                          format = "[:bar] :percent &#32066;&#20102;&#12414;&#12391;: :eta",
                          clear = TRUE)
for (i in 1:n) {
  pb$tick()
  
  ###&#12371;&#12371;&#12395;&#20966;&#29702;&#12467;&#12510;&#12531;&#12489;&#12434;&#35352;&#36848;&#12375;&#12390;&#21033;&#29992;&#12377;&#12427;#####
  
  Sys.sleep(1 / n)
}

実行例

progress

少しでも、あなたの解析が楽になりますように!!

タイトルとURLをコピーしました