> bwplot(len ~ factor(dose) | supp, data = ToothGrowth) > bwplot(len ~ supp | factor(dose), data = ToothGrowth)