```r ToothLen.by.Dose <- ToothGrowth[, c("dose", "len")]; head(ToothLen.by.Dose) qviolin(ToothLen.by.Dose, stat.test = T, col = "dose") qstripchart(ToothLen.by.Dose) qboxplot(ToothLen.by.Dose) ```