# \donttest{
set.seed(1234)
data <- data.frame(
yval = rnorm(120),
gr = c(rep("A", 50), rep("B", 40), rep("C", 30))
)
p <- show_group_distribution(data,
gvar = 2, dvar = 1,
g_label = "norm",
background_color = "grey"
)
p
p2 <- show_group_distribution(data,
gvar = "gr", dvar = "yval",
g_position = "bottom",
order_by_fun = TRUE,
alpha = 0.3
)
p2
# Set custom group names
p3 <- show_group_distribution(data,
gvar = 2, dvar = 1,
g_label = c("A" = "X", "B" = "Y", "C" = "Z")
)
p3
# }
Run the code above in your browser using DataLab