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に関する書籍です＞

Rによる統計解析 | 青木繁伸

多くの統計手法をRの関数とともに整理した一冊。手法ごとの使い方を確認するリファレンスとして役立つ。

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

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

#パッケージのインストール
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に関する書籍です＞

医学研究のためのRによる統計解析入門 | 加葉田 大志朗, 新谷 歩

臨床研究・疫学のデータをRで解析するための入門書。医学分野で頻出の手法を実例に沿って扱う。