Функции, доступные для блочных графиков Tufte в R?

У меня есть некоторые данные, которые я разделил на достаточно групп, так что стандартные коробочные диаграммы выглядят очень переполненными. У Тафте есть свои коробочные диаграммы, в которых вы в основном отбрасываете коробку полностью или наполовину, например:

Некоторые образцы данных:

cw <- transform(ChickWeight, 
  Time = cut(ChickWeight$Time,4)
  )
cw$Chick <- as.factor( sample(LETTERS[seq(3)], nrow(cw), replace=TRUE) )
levels(cw$Diet) <- c("Low Fat","Hi Fat","Low Prot.","Hi Prot.")

Я хочу коробочную диаграмму веса для каждой группы диет * времени * цыплят.

У меня было это Проблема возникла много лет назад, и мы собрали решение, используя сеточную графику, которую я опубликую немного позже. Но, решая эту новую (и похожую) проблему, мне интересно, есть ли стандартный способ их решения, а не исправление моего примера собранных вместе.

В стороне, они кажутся одними из менее любимых творений Тафте, но мне они очень нравятся за то, что они плотно отображают шаблоны распределений по большому количеству групп, и я бы использовал их чаще, если бы для них была хорошая функция в ggplot2 или решетке.