# NOT RUN {
# Basic violin plot
data("ToothGrowth")
p <- ggviolin(ToothGrowth, x = "dose", y = "len", add = "none")
# Add mean +/- SD and jitter points
p %>% ggadd(c("mean_sd", "jitter"), color = "dose")
# Add box plot
p %>% ggadd(c("boxplot", "jitter"), color = "dose")
# }
Run the code above in your browser using DataLab