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

#パッケージのインストール
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)