r - モザイク プロットからカテゴリの名前を削除し、凡例を追加する

Question

私はこの分割表を持っています：

> 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」の出力は次のとおりです。

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"))

編集2：

モザイクをプロットするコードの前に、次のコードを使用して、分割表から名前を削除して、プロット内のカテゴリの名前を削除する必要がありました。

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

さて、解決せずに残っ​​ているのは、凡例を追加することだけです。