![見出し画像](https://assets.st-note.com/production/uploads/images/78683101/rectangle_large_type_2_903cdae67b6b3522635d2fdd76b32090.png?width=1200)
Rでgtsummaryを使って綺麗なクロス集計表を簡単に作る方法
Rでクロス集計表を作るだけなのに、情報がなかなかなくて苦戦しました。
以下はアウトプット。
Rコード
#パッケージのインストール
install.packages(gtsummary)
library(gtsummary)
#データ作成
#列1
case1<-c(1,1,0,0,1,1,0,1,1,1)
#列2
case2<-c(0,1,0,1,0,0,0,0,1,0)
crossdata<-data.frame(case1,case2)
colnames(crossdata)<-c("事件1","事件2")
#クロス集計と表示
table2<-tbl_cross(crossdata,margin_text = "計")
table2
![](https://assets.st-note.com/img/1652697503625-vMefDulNwC.png)