見出し画像

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
クロス集計表のアウトプット


いいなと思ったら応援しよう!