tab3 <- crosstable(mtcars, where(is.numeric),
cor_method="pearson", by=hp)
tab3 <- flextable(tab3, col_keys=c("label", "hp"))
tab3 <- mk_par(tab3, j=1,
value=as_paragraph(as_chunk("Variable")), part="header")
tab3 <- mk_par(tab3, j=2,
value=as_paragraph(as_chunk("HP")), part="header")
names <- c("Miles/(US) gallon", "Displacement (cu.in.)",
"Rear axle ratio", "Weight (1000 lbs)",
"1/4 mile time")
tab3 <- mk_par(tab3, j=1, i=1:5,
value=as_paragraph(as_chunk(names)))
tab3 <- width(tab3, width=2)
tab3 <- align(tab3, align="center", part="all")