R 从马赛克图中删除类别名称并添加图例

我有这个列联表：

> ftable(mytable) # print table
                Sex     female male
Pclass Survived                    
1      No             0      5  118
       Si             0    139   61
2      No             0     12  146
       Si             0     94   25
3      No             0    110  418
       Si             0    106   75

然后，我使用R的基本包制作了一个马赛克图。代码和图形如下：

mosaicplot(mytable, color=c("#fb8072", "#8dd3c7"), cex.axis=1.2)

现在，我想从x轴上分离出女性和男性的名字，并将这些名字作为一个图例，这样就可以指定粉色代表女性，浅蓝色代表男性。我该怎么做

编辑1：

“mytable”的输出为：

---

现在，唯一没有解决的问题是添加图例。

您可能会感兴趣，也许您对使用ggplot2进行马赛克绘图感兴趣？使用额外的颜色图例，此问题有不同的解决方案：

mytable <- structure(c(0, 5, 118, 0, 139, 61, 0, 12, 146, 0, 94, 25, 0, 
110, 418, 0, 106, 75), .Dim = c(3L, 2L, 3L), .Dimnames = structure(list(
    Sex = c("", "female", "male"), Survived = c("No", "Si"), 
    Pclass = c("1", "2", "3")), .Names = c("Sex", "Survived", 
"Pclass")), class = c("xtabs", "table"))

dimnames(mytable)[["Sex"]] = rep(NA,3)