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

(グラフィックス参考実例集に戻る。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)
}
 left

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

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

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

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

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

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

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

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

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

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

添付ファイル: filemosaicplot5.png 2491件 [詳細] filemosaicplot4.png 2558件 [詳細] filemosaicplot3.png 2416件 [詳細] filemosaicplot1.png 2747件 [詳細] filemosaicplot2.png 2516件 [詳細]

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2023-03-25 (土) 11:19:16