Double entry table
tab2 <- crosstable(mtcars, c(mpg, cyl), by=gear,
total="both")
tab2 <- flextable(tab2)
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())