library(dplyr)
data <- data.frame(
cat_a = rep(letters[1:3], each = 4),
cat_b = rep(LETTERS[1:2], times = 6),
cat_c = rep(c("Var1", "Var2"), times = 6),
group = rep(c("G1", "G2"), times = 6)
)
var_positions <- data.frame(
var = c("Var1", "Var2"),
x_offset = c(0.1, -0.1),
y_offset = c(0.1, -0.1)
)
cat_a_order <- c("a", "b", "c")
cat_b_order <- c("A", "B")
prepare_plot_data(data, "cat_a", "cat_b", "cat_c", "group", var_positions, cat_a_order, cat_b_order)
Run the code above in your browser using DataLab