5 Correlation

5.1 Table for correlations

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 <- flextable::align(tab3, align="center", part="all")
tab3

Variable

HP

Miles/(US) gallon

-0.78
95%CI [-0.89;-0.59]

Displacement (cu.in.)

0.79
95%CI [0.61;0.89]

Rear axle ratio

-0.45
95%CI [-0.69;-0.12]

Weight (1000 lbs)

0.66
95%CI [0.4;0.82]

1/4 mile time

-0.71
95%CI [-0.85;-0.48]