如何创建仅显示1个轴项的镶嵌图？

Question

我正在使用可以在R中导入的UCB入场券。我想制作一个镶嵌图，其中一个轴仅是部门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));