The R Project SVN R

Rev

Rev 61168 | Rev 67309 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 61168 Rev 61433
Line 13... Line 13...
13
\title{Mosaic Plots}
13
\title{Mosaic Plots}
14
\description{Plots a mosaic on the current graphics device.}
14
\description{Plots a mosaic on the current graphics device.}
15
\usage{
15
\usage{
16
mosaicplot(x, \dots)
16
mosaicplot(x, \dots)
17
 
17
 
18
\method{mosaicplot}{default}(x, main = deparse(substitute(x)), 
18
\method{mosaicplot}{default}(x, main = deparse(substitute(x)),
19
           sub = NULL, xlab = NULL, ylab = NULL,
19
           sub = NULL, xlab = NULL, ylab = NULL,
20
           sort = NULL, off = NULL, dir = NULL,
20
           sort = NULL, off = NULL, dir = NULL,
21
           color = NULL, shade = FALSE, margin = NULL,
21
           color = NULL, shade = FALSE, margin = NULL,
22
           cex.axis = 0.66, las = par("las"), border = NULL,
22
           cex.axis = 0.66, las = par("las"), border = NULL,
23
           type = c("pearson", "deviance", "FT"), \dots)
23
           type = c("pearson", "deviance", "FT"), \dots)
Line 115... Line 115...
115
  See Emerson (1998) for more information and a case study with
115
  See Emerson (1998) for more information and a case study with
116
  television viewer data from Nielsen Media Research.
116
  television viewer data from Nielsen Media Research.
117
 
117
 
118
  Missing values are not supported except via an \code{na.action}
118
  Missing values are not supported except via an \code{na.action}
119
  function when \code{data} contains variables to be cross-tabulated.
119
  function when \code{data} contains variables to be cross-tabulated.
120
  
120
 
121
  A more flexible and extensible implementation of mosaic plots written
121
  A more flexible and extensible implementation of mosaic plots written
122
  in the grid graphics system is provided in the function
122
  in the grid graphics system is provided in the function
123
  \code{\link[vcd]{mosaic}} in the contributed package \CRANpkg{vcd}
123
  \code{\link[vcd]{mosaic}} in the contributed package \CRANpkg{vcd}
124
  (Meyer, Zeileis and Hornik, 2005).
124
  (Meyer, Zeileis and Hornik, 2005).
125
}
125
}
Line 142... Line 142...
142
  \emph{Journal of the American Statistical Association}, \bold{89},
142
  \emph{Journal of the American Statistical Association}, \bold{89},
143
  190--200.
143
  190--200.
144
 
144
 
145
  Meyer, D., Zeileis, A., and Hornik, K. (2005)
145
  Meyer, D., Zeileis, A., and Hornik, K. (2005)
146
  The strucplot framework: Visualizing multi-way contingency tables with vcd.
146
  The strucplot framework: Visualizing multi-way contingency tables with vcd.
147
  \emph{Report 22}, Department of Statistics and Mathematics, 
147
  \emph{Report 22}, Department of Statistics and Mathematics,
148
  \enc{Wirtschaftsuniversität}{Wirtschaftsuniversitaet} Wien, Research Report Series.
148
  \enc{Wirtschaftsuniversität}{Wirtschaftsuniversitaet} Wien, Research Report Series.
149
  \url{http://epub.wu.ac.at/dyn/openURL?id=oai:epub.wu-wien.ac.at:epub-wu-01_8a1}
149
  \url{http://epub.wu.ac.at/dyn/openURL?id=oai:epub.wu-wien.ac.at:epub-wu-01_8a1}
150
 
150
 
151
  The home page of Michael Friendly
151
  The home page of Michael Friendly
152
  (\url{http://www.math.yorku.ca/SCS/friendly.html}) provides
152
  (\url{http://www.math.yorku.ca/SCS/friendly.html}) provides
Line 163... Line 163...
163
## Formula interface for tabulated data:
163
## Formula interface for tabulated data:
164
mosaicplot(~ Sex + Age + Survived, data = Titanic, color = TRUE)
164
mosaicplot(~ Sex + Age + Survived, data = Titanic, color = TRUE)
165
 
165
 
166
mosaicplot(HairEyeColor, shade = TRUE)
166
mosaicplot(HairEyeColor, shade = TRUE)
167
## Independence model of hair and eye color and sex.  Indicates that
167
## Independence model of hair and eye color and sex.  Indicates that
168
## there are more blue eyed blonde females than expected in the case 
168
## there are more blue eyed blonde females than expected in the case
169
## of independence and too few brown eyed blonde females.
169
## of independence and too few brown eyed blonde females.
170
## The corresponding model is:
170
## The corresponding model is:
171
fm <- loglin(HairEyeColor, list(1, 2, 3))
171
fm <- loglin(HairEyeColor, list(1, 2, 3))
172
pchisq(fm$pearson, fm$df, lower.tail = FALSE)
172
pchisq(fm$pearson, fm$df, lower.tail = FALSE)
173
 
173