data(mtcars)
mtcars = apply_labels(mtcars,
vs = "Engine",
vs = num_lab("
0 V-engine
1 Straight engine
"),
am = "Transmission",
am = num_lab("
0 Automatic
1 Manual
")
)
tbl_with_caption = cross_cases(mtcars, am, vs) %>%
set_caption("Table 1. Type of transimission.")
tbl_with_caption
Run the code above in your browser using DataLab