{{category R}}
{{category R.package}}
!!!gtsummary
{{outline}}
----
http://www.danieldsjoberg.com/gtsummary/

分析結果をきれいな表にまとめてくれる。

http://www.danieldsjoberg.com/gtsummary/articles/tbl_regression.html

!!例
!tbl_summary()
{{pre
str(SbyS.dat)

'data.frame':	1952 obs. of  9 variables:
 $ Lang    : Factor w/ 2 levels "CN","JP": 1 1 1 1 1 1 1 1 1 1 ...
 $ Year    : Factor w/ 3 levels "2","3","NS": 1 1 1 1 1 1 1 1 1 1 ...
 $ PID     : Factor w/ 105 levels "2001","2002",..: 1 1 1 1 1 1 1 1 1 1 ...
 $ SID     : Factor w/ 35 levels "1","2","3","4",..: 1 2 3 4 5 6 7 8 9 10 ...
 $ sentence: chr  "大学に入ってもう一年が経ちました" "今学期私たちは二年生になりました"...
 $ SL      : num  5 4 3 3 7 5 4 4 3 2 ...
 $ MDD     : num  1.5 2 1 1 1.5 ...
 $ Omega   : num  0.5 -1 1 1 0.875 ...
 $ MHD     : num  1.5 1 1.5 1.5 2 ...

SbyS.dat %>% select(Lang, Year, SL, MDD, MHD, Omega) %>% tbl_summary(by = Year)


Characteristic	2, N = 8011	3, N = 6561	NS, N = 4951
Lang			
CN	801 (100%)	656 (100%)	0 (0%)
JP	0 (0%)	0 (0%)	495 (100%)
SL	5.0 (4.0, 7.0)	7.0 (5.0, 10.0)	9.0 (6.0, 13.0)
MDD	1.75 (1.43, 2.00)	1.91 (1.50, 2.33)	2.00 (1.50, 2.33)
MHD	1.50 (1.25, 1.91)	1.80 (1.38, 2.42)	2.57 (1.75, 3.55)
Unknown	9	3	2
Omega	0.42 (0.00, 0.68)	0.55 (0.25, 0.78)	0.70 (0.43, 0.89)
Unknown	38	34	9
1 n (%); Median (IQR)

}}