データの特徴を表で示すことができるパッケージです。色々な使い道があると考えます。結果はコマンドの組み合わせでcsvファイルに出力可能です。
パッケージバージョンは0.2.2。実行コマンドはwindows 11のR version 4.1.2で確認しています。
パッケージのインストール
下記コマンドを実行してください。
#パッケージのインストール
install.packages("carpenter")
実行コマンド
詳細はコマンド、パッケージのヘルプを確認してください。
#パッケージの読み込み
library("carpenter")
#"%>%"を利用するために読み込み
#tidyverseパッケージがなければインストール
if(!require("tidyverse", quietly = TRUE)){
install.packages("tidyverse");require("tidyverse")
}
###データ例の作成#####
n <- 100
TestData <- data.frame("Group" = factor(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 x 4
# Variables Group1 Group2 Group3
# <chr> <chr> <chr> <chr>
#1 Data1 0.07 (0.82) -0.02 (0.98) -0.29 (0.95)
#2 Data1 0.09 -0.11 -0.30
#行列ラベルの変更: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 x 4
# 指標 グループ1 ぐるーぷ2 GROUP3
# <chr> <chr> <chr> <chr>
#1 データ1のmeanSD 0.07 (0.82) -0.02 (0.98) -0.29 (0.95)
#2 データ1のmedian 0.09 -0.11 -0.30
#例:テーブルを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コマンドと組み合わせる
少しでも、あなたの解析が楽になりますように!!