x <- dplyr::tibble(
variable = "number subjects",
value = c(10, 15, 40, 78),
sex = c("Male", "Female", "Male", "Female"),
age_group = c("<40", ">40", ">40", "<40")
)
x |>
uniteNameLevel(
cols = c("sex", "age_group"),
name = "new_column_name",
level = "new_column_level"
)
Run the code above in your browser using DataLab