Ch07 Studying Multivariate Categorical Data

7.2 Data on the sinking of the Titanic
7.3 What is a mosaicplot?
7.4 Different mosaicplots for different questions of interest

 

Data on the sinking of the Titanic | 132

doubledecker(Survived ~ Sex, data = Titanic,
             gp = gpar(fill = c("grey90", "red")))
doubledecker(Survived ~ Class, data = Titanic,
             gp = gpar(fill = c("grey90", "red")))

 

133

doubledecker(Survived ~ Sex + Class, data = Titanic,
             gp = gpar(fill = c("grey90", "red")))

 

What is a mosaicplot? | 135

data(Alligator, package="vcdExtra")
Alg1

136

pairs(xtabs(count ~ ., Alligator))

137

doubledecker(xtabs(count ~ lake + sex, data = Alligator),
             gp = gpar(fill = c("grey90", "steelblue")))
doubledecker(xtabs(count ~ food + size, data = Alligator),
             gp = gpar(fill = c("grey90", "tomato")))

138

Alg2

139

ggplot(Alg1, aes(food, count, fill=sex)) +
       geom_bar(stat = "identity") +
       facet_grid(lake ~ sex + size) +
       theme(legend.position="none")

 

Different mosaicplots for different questions of interest | 141

data(Zoo, package="seriation")
fluctile(table(select(Zoo, c(hair, eggs:backbone))),
         label=FALSE)

 

142

data(Arthritis)
Arthritis

 

143

Allig3

 

145

data(housing, package="MASS")
mosaic(xtabs(Freq ~ Cont + Type + Infl + Sat, data = housing),
       direction = c("h", "v", "v", "h"), 
       gp = gpar(fill = c("grey", "grey","red")),
       spacing = spacing_highlighting)


rmb(formula = ~Type+Cont+Infl+Sat, data = housing, cat.ord = 3,
    spine = TRUE, freq.trans = "const")

 

147

data(housing, package="MASS")
rmb(formula = ~Type+Infl+Cont+Sat, data = housing,
    col.vars = c(FALSE,TRUE,TRUE,FALSE),
    label.opt = list(abbrev = 3, yaxis=FALSE))


rmb(formula = ~Type+Infl+Cont+Sat,  data = housing,
    eqwidth=TRUE, col.vars = c(FALSE,TRUE,TRUE,FALSE),
    label.opt = list(abbrev = 3, yaxis=FALSE))