Как создать мозаичный график, который показывает только 1 элемент для одной оси?

Question

Я использую UCB Admissions, которые вы можете импортировать в R. Я хочу сделать мозаичный график, где одна ось - это Department F * , а другая - пол.

Как мне создать этот мозаичный сюжет?Мой код пока:

> data("UCBAdmissions");
> ucb = UCBAdmissions; 
> print(dimnames(ucb));
$Admit
[1] "Admitted" "Rejected"

$Gender
[1] "Male"   "Female"

$Dept
[1] "A" "B" "C" "D" "E" "F"

> mosaicplot(apply(ucb,c("Gender","Admit"),sum));
> mosaicplot(apply(ucb,c("Gender","Dept"),sum));