# NOT RUN {
p <- ggboxplot(ToothGrowth, x = "dose", y = "len",
color = "supp")
print(p)
facet(p, facet.by = "supp")
# Customize
facet(p + theme_bw(), facet.by = "supp",
short.panel.labs = FALSE, # Allow long labels in panels
panel.labs.background = list(fill = "steelblue", color = "steelblue")
)
# }
Run the code above in your browser using DataLab