4 次元配列の例 2007 08 29 mosaicplot(Titanic[c("1st","2nd","3rd"),,"Adult",], main = "Survival on the Titanic", shade = T)