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

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

添付ファイル: filemosaicplot2.png 1673件 [詳細] filemosaicplot3.png 1581件 [詳細] filemosaicplot1.png 1826件 [詳細] filemosaicplot4.png 1679件 [詳細] filemosaicplot5.png 1655件 [詳細]

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Google
WWW を検索 OKADAJP.ORG を検索
Last-modified: 2015-03-01 (日) 01:15:59 (1727d)