Rで解析：処理時間をプログレスバーで表示します「simplepbar」パッケージ

プログレスバーを表示するパッケージはいくつか存在します。本パッケージは細かい設定の必要なく、簡単に利用することができます。

参考までに、プログレスバーを利用したパッケージを紹介します。

・Rで解析：処理の経過・終了時間のプログレスバーを表示します。「progress」パッケージ
https://www.karada-good.net/analyticsr/r-370/

・Rで解析：プログレスバー付きのapply関数ファミリ！「pbapply」パッケージ
https://www.karada-good.net/analyticsr/r-333/

パッケージバージョンは0.1。実行コマンドはR version 3.2.3で確認しています。

＜おすすめのRに関する書籍です＞

改訂3版 R言語逆引きハンドブック | 石田 基広

Amazonで石田 基広の改訂3版 R言語逆引きハンドブック。アマゾンならポイント還元本が多数。石田 基広作品ほか、お急ぎ便対象商品は当日お届けも可能。また改訂3版 R言語逆引きハンドブックもアマゾン配送商品なら通常配送無料。

www.amazon.co.jp

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

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

#パッケージのインストール
install.packages("devtools")
devtools::install_github("evgeniikonev/simplepbar")

実行コマンド

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

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

###データ例の作成#####
TestData <- list(Group1 = sample(1:600, 1300, replace = TRUE),
                 Group2 = sample(1:600, 800, replace = TRUE),
                 Group3 = sample(1:600, 400, replace = TRUE),
                 Group4 = sample(1:600, 700, replace = TRUE),
                 Group5 = sample(1:600, 100, replace = TRUE))
#######

#プログレスバーをコンソールに表示:spbar
#値の設定:kオプション;0-1の範囲
#あえてデータ例から各ベクトルを取り出し
#Resultに平均を格納
Result <-NULL
for (i in 1:length(TestData)){
  spbar(i/length(TestData))
  Result <- c(Result, mean(TestData[[i]]))
}
|======================================================================| 100%
#名前を付与
names(Result) <- names(TestData)
#結果を表示
Result
Group1   Group2   Group3   Group4   Group5
302.0569 311.5400 305.0825 310.2957 293.9200

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

＜おすすめのRに関する書籍です＞

多変量解析の基礎 II　主成分分析（改訂版）: 理論とRによる演習 | 古橋武 | 工学 | Kindleストア

Amazonで古橋武の多変量解析の基礎 II　主成分分析（改訂版）: 理論とRによる演習。一度購入いただいた電子書籍は、KindleおよびFire端末、スマートフォンやタブレットなど、様々な端末でもお楽しみいただけます。

www.amazon.co.jp