15 Example 2

15.1 Double entry table

tab2 <- crosstable(mtcars, c(mpg, cyl), by=gear, 
         total="both")
tab2 <- flextable(tab2)

15.2 Double entry table

tab2 <- crosstable(mtcars, c(mpg, cyl), by=gear, 
         total="both")
tab2 <- flextable(tab2, 
   col_keys=c("label", "variable", "3", "4", "5", "Total"))
tab2 <- merge_v(tab2, j="label")
tab2 <- add_header_row(tab2, values=c("","Gear",""), 
         colwidths=c(2,3,1))
tab2 <- align(tab2, part="all", align="center")
tab2 <- mk_par(tab2, j=1, i=2, 
  value=as_paragraph(as_chunk("Variable")), part="header")
tab2 <- mk_par(tab2, j=2, 
  value=as_paragraph(as_chunk("Statistic")), part="header")
tab2 <- width(tab2, width=2)
tab2 <- vline(tab2, j=c(2,5))
tab2 <- hline(tab2, i=4, border=fp_border_default())

15.3 Double entry table