Rで解析：テーブル表示をcsvに出力です。便利！「tableone」パッケージ

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

#パッケージの読み込み
library("tableone")

######データ例の作成########mple(1:10, 100, replace = TRUE)
TestData <- data.frame(Group = factor(sample(paste0("Group", a),
                                             100, replace = TRUE)),
                       Data1 = a,
                       Data2 = c(-a[1:80], sample(210:230, 20, replace = TRUE)))
############################

#data.frame&#12434;&#12486;&#12540;&#12502;&#12523;&#21270;:CreateTableOne&#12467;&#12510;&#12531;&#12489;
TestTable <- CreateTableOne(data = TestData)
TestTable

                   Overall      
n                   100        
Group (%)                      
Group1             3 ( 3.0) 
Group10           15 (15.0) 
Group2             2 ( 2.0) 
Group3             8 ( 8.0) 
Group4            18 (18.0) 
Group5             6 ( 6.0) 
Group6            20 (20.0) 
Group7             5 ( 5.0) 
Group8            13 (13.0) 
Group9            10 (10.0) 
Data1 (mean (SD))  5.68 (2.70) 
Data2 (mean (SD)) 39.06 (90.31)

#CreateTableOne&#12398;&#20986;&#21147;&#12434;summary&#12467;&#12510;&#12531;&#12489;&#12391;&#20986;&#21147;
summary(TestTable)

### Summary of continuous variables ###

strata: Overall
n miss p.miss mean sd median p25 p75 min max skew kurt
Data1 100    0      0    6  3      6   4   8   1  10 0.02 -1.0
Data2 100    0      0   39 90     -5  -8  -2 -10 230 1.52  0.3

=======================================================================================
  
  ### Summary of categorical variables ### 
  
  strata: Overall
var   n miss p.miss   level freq percent cum.percent
Group 100    0    0.0  Group1    3     3.0         3.0
Group10   15    15.0        18.0
Group2    2     2.0        20.0
Group3    8     8.0        28.0
Group4   18    18.0        46.0
Group5    6     6.0        52.0
Group6   20    20.0        72.0
Group7    5     5.0        77.0
Group8   13    13.0        90.0
Group9   10    10.0       100.0

#&#25968;&#20516;&#12434;&#12459;&#12486;&#12468;&#12522;&#22793;&#25968;&#12391;&#20966;&#29702;:factorVars&#12458;&#12503;&#12471;&#12519;&#12531;
#&#21015;&#21517;&#12391;&#25351;&#23450;&#12375;&#12414;&#12377;
TestTable <- CreateTableOne(data = TestData, factorVars = colnames(TestData[2]))
TestTable

                   Overall      
n                   100        
Group (%)                      
Group1             3 ( 3.0) 
Group10           15 (15.0) 
Group2             2 ( 2.0) 
Group3             8 ( 8.0) 
Group4            18 (18.0) 
Group5             6 ( 6.0) 
Group6            20 (20.0) 
Group7             5 ( 5.0) 
Group8            13 (13.0) 
Group9            10 (10.0) 
Data1 (%)                      
1                  7 ( 7.0) 
2                  6 ( 6.0) 
3                 11 (11.0) 
4                 13 (13.0) 
5                 10 (10.0) 
6                 17 (17.0) 
7                  6 ( 6.0) 
8                 11 (11.0) 
9                  8 ( 8.0) 
10                11 (11.0) 
Data2 (mean (SD)) 39.06 (90.31)

#&#20316;&#26989;&#12501;&#12457;&#12523;&#12480;&#12395;&#12486;&#12540;&#12502;&#12523;&#12434;CSV&#12391;&#20986;&#21147;
#CreateTableOne&#12398;&#20986;&#21147;&#12434;print&#12467;&#12510;&#12531;&#12489;&#12391;&#20986;&#21147;
TestTable <- print(TestTable)
#&#20316;&#26989;&#12501;&#12457;&#12523;&#12480;&#12395;csv&#12501;&#12449;&#12452;&#12523;&#12434;&#20986;&#21147;
write.csv(TestTable, file = "TestTable.csv")