library(dplyr)
data <- data.frame(
group = rep(c("G1", "G2"), each = 5),
cat_b = sample(LETTERS[1:3], 10, replace = TRUE)
)
group_colors <- c("G1" = "red", "G2" = "blue")
order_cat_b(data, "group", "cat_b", group_colors)
Run the code above in your browser using DataLab