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

クロス集計表のアウトプット