Rで解析:データの特徴を表で示す「carpenter」パッケージ


データの特徴を表で示すことができるパッケージです。色々な使い道があると考えます。結果はコマンドの組み合わせでcsvファイルに出力可能です。

パッケージバージョンは0.2.1。windows 10のR version 3.3.3で動作を確認しています。


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

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

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

コマンドの紹介

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

#パッケージの読み込み
library("carpenter")
#"%>%"を利用するために読み込み
#install.packages("magrittr")
library("magrittr")

###データ例の作成#####
n <- 100
TestData <- data.frame("Group" = sample(paste0("Group", 1:3), n, replace = TRUE),
                       "Data1" = sample(rnorm(10), n, replace = TRUE),
                       "Data2" = sample(rnorm(1), n, replace = TRUE),
                       "Data3" = sample(rnorm(5), n, replace = TRUE),
                       "Data4" = sample(LETTERS[1:10], n, replace = TRUE))
########

#テーブル作成のデータを指定:outline_tableコマンド
#行の設定:headerオプション
outline_table(data = TestData, header = "Group")
# A tibble: 0 × 0

#テーブルのデータ列を設定:add_rowsコマンド
#データ指定:row_varsオプション
#処理内容:statオプション;stat_median,stat_iqr,stat_medianIQR,
#stat_mean,stat_stddev,stat_meanSD,stat_nPctの設定が可能
#小数点を指定:digitsオプション
outline_table(data = TestData, header = "Group") %>%
  add_rows(row_vars = "Data1", stat = stat_meanSD, digits = 2) %>%
  add_rows(row_vars = "Data1", stat = stat_median, digits = 2)
# A tibble: 2 × 4
  Variables      Group1      Group2      Group3
      <chr>       <chr>       <chr>       <chr>
1     Data1 0.33 (0.67) 0.43 (0.67) 0.45 (0.55)
2     Data1        0.34        0.77        0.34

#行列ラベルの変更:renamingコマンド
#行列の指定:typeオプション;"rows","header"で指定
#変更内容:replaceオプション;rowsの場合はfunctionで操作する
outline_table(data = TestData, header = "Group") %>%
  add_rows(row_vars = "Data1", stat = stat_meanSD, digits = 2) %>%
  add_rows(row_vars = "Data1", stat = stat_median, digits = 2) %>%
  renaming(type = "header", replace = c("指標", "グループ1", "ぐるーぷ2", "GROUP3")) %>%
  renaming(type = "rows", replace = function(x) x <- c("データ1のmeanSD", "データ1のmedian"))
# A tibble: 2 × 4
             指標   グループ1   ぐるーぷ2      GROUP3
            <chr>       <chr>       <chr>       <chr>
1 データ1のmeanSD 0.33 (0.67) 0.43 (0.67) 0.45 (0.55)
2 データ1のmedian        0.34        0.77        0.34

#例:テーブルをcsvで出力する:build_tableコマンドと組み合わせる
#ポイント:finishオプションをFALSEにする
outline_table(data = TestData, header = "Group") %>%
  add_rows(row_vars = "Data1", stat = stat_meanSD, digits = 2) %>%
  add_rows(row_vars = "Data1", stat = stat_median, digits = 2) %>%
  renaming(type = "header", replace = c("指標", "グループ1", "ぐるーぷ2", "GROUP3")) %>%
  renaming(type = "rows", replace = function(x) x <- c("データ1のmeanSD", "データ1のmedian")) %>%
  build_table(finish = FALSE) %>%
  write.csv("TEST.csv", row.names = FALSE)

出力例

・例:テーブルをcsvで出力する:build_tableコマンドと組み合わせる


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

スポンサードリンク

関連コンテンツ


スポンサードリンク