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) [/code]


出力例

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


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

スポンサードリンク

関連コンテンツ


スポンサードリンク