mtcars %>%
tabyl(am, cyl) %>%
adorn_title(placement = "top")
# Adding a title to a non-tabyl
library(tidyr); library(dplyr)
mtcars %>%
group_by(gear, am) %>%
summarise(avg_mpg = mean(mpg), .groups = "drop") %>%
spread(gear, avg_mpg) %>%
adorn_rounding() %>%
adorn_title("top", row_name = "Gears", col_name = "Cylinders")
Run the code above in your browser using DataLab