crosstab {descr} | R Documentation |
This function is a wrapper for CrossTable
, adding a
mosaic plot and making it easier to do a weighted cross-tabulation.
crosstab(x, y, weight = NULL, digits = 3, max.width = NA, expected = FALSE, prop.r = FALSE, prop.c = FALSE, prop.t = FALSE, prop.chisq = FALSE, chisq = FALSE, fisher = FALSE, mcnemar = FALSE, resid = FALSE, sresid = FALSE, asresid = FALSE, missing.include = FALSE, format = "SPSS", dnn = NULL, user.missing.x, user.missing.y, plot = getOption("descr.plot"), xlab = deparse(substitute(x)), ylab = deparse(substitute(y)), main = "", ...)
x, y |
Vectors in a matrix or a dataframe. |
weight |
An optional vector for a weighted cross tabulation. |
digits |
See |
max.width |
See |
expected |
See |
prop.r |
See |
prop.c |
See |
prop.t |
See |
prop.chisq |
See |
chisq |
See |
fisher |
See |
mcnemar |
See |
resid |
See |
sresid |
See |
asresid |
See |
missing.include |
See |
format |
See |
dnn |
See |
user.missing.x |
An optional character vector with the levels of
|
user.missing.y |
An optional character vector with the levels of
|
plot |
Logical: if
in your ‘.Rprofile’ to change the default function behavior. |
main |
An overall title for the plot (see
|
xlab |
A title for the x axis (see |
ylab |
A title for the y axis (see |
... |
Further arguments to be passed to
|
crosstab
invokes the CrossTable
with all boolean
options set to FALSE
and "SPSS"
as the default format
option. The returned CrossTable object can be plotted as a
mosaicplot
.
Jakson A. Aquino jalvesaq@gmail.com
CrossTable
, plot.CrossTable
,
xtable.CrossTable
.
educ <- sample(c(1, 2), 200, replace = TRUE, prob = c(0.3, 0.7)) educ <- factor(educ, levels = c(1, 2), labels = c("Low", "High")) income <- sample(c(1, 2, 3), 200, replace = TRUE, prob = c(0.3, 0.4, 0.3)) income <- factor(income, levels = c(1, 2, 3), labels = c("Low", "Middle", "High")) attr(educ, "label") <- "Education level" attr(income, "label") <- "Income level" w <- sample(c(10, 15, 19), 200, replace = TRUE) crosstab(income, educ, ylab = "Education", xlab = "Income") ct <- crosstab(income, educ, w, expected = TRUE, plot = FALSE) ct plot(ct, inv.y = TRUE) ## Not run: print(xtable(ct)) print(xtable(ct, decimal.mark = ",", digits = 1, multirow = TRUE, hline = TRUE, align = "llrrr"), sanitize.text.function = function(x) x, include.rownames = FALSE) ## End(Not run)