グラフィックス参考実例集：モザイクプロット

グラフィックス参考実例集：モザイクプロット

(グラフィックス参考実例集に戻る。Rのグラフィックスパラメータを参照する。)
モザイクプロットは分割表データの度数に対数線形モデルを当てはめた際の、正規化残差を箱の色と大きさ(大きさは度数を表す?)で表現する。

mosaicplot の例。タイタニック号の生存者の分類†

mosaicplot1 <- function () {
  old.par <- par(no.readonly = TRUE); on.exit(old.par)
  data(Titanic)
  mosaicplot(Titanic, main = "Survival on the Titanic", color = TRUE)
}

タイタニック号の生存者の分類 (公式表現)†

mosaicplot2 <- function () {
  old.par <- par(no.readonly = TRUE); on.exit(old.par)
  data(Titanic)
  mosaicplot(~ Sex + Age + Survived, data = Titanic, color = TRUE)
}

髪と瞳の色の独立性の検定†

瞳の色と髪の色が独立とみなした際に期待されるよりも、ブロンドで青い瞳の女性が有意に多く(濃い青、正規化残差が+4以上)、茶色の瞳でブロンドの女性が少な過ぎる(濃い赤、正規化残差が-4以下)ことを示している。

mosaicplot3 <- function () {
  old.par <- par(no.readonly = TRUE); on.exit(old.par)
  data(HairEyeColor)
  mosaicplot(HairEyeColor, shade = TRUE)
}

性別と髪・瞳の色の間の同時独立性の検定†

男性が茶色の髪と瞳のグループ内で少な過ぎ、茶髪で青い瞳のグループ間で多過ぎる(しかし有意というほどではない)

mosaicplot4 <- function () {
  old.par <- par(no.readonly = TRUE); on.exit(old.par)
  mosaicplot(HairEyeColor, shade = TRUE, margin = list(c(1,2), 3))
}

車のギアとキャブレター数の関係†

mosaicplot5 <- function () {
  old.par <- par(no.readonly = TRUE); on.exit(old.par)
  data(mtcars)
  mosaicplot(~ gear + carb, data = mtcars, color = TRUE, las = 1)
}

最新の20件