Cross-tabulated tables of discrete variables
ggtable is a variant of ggduo for quick
cross-tabulated tables of discrete variables.
ggtable(
data,
columnsX = 1:ncol(data),
columnsY = 1:ncol(data),
cells = c("observed", "prop", "row.prop", "col.prop", "expected", "resid",
"std.resid"),
fill = c("none", "std.resid", "resid"),
mapping = NULL,
...
)data |
dataset to be used, can have both categorical and numerical variables |
columnsX, columnsY |
names or positions of which columns are used to make plots. Defaults to all columns. |
cells |
Which statistic should be displayed in table cells? |
fill |
Which statistic should be used for filling table cells? |
mapping |
additional aesthetic to be used, for example to indicate weights (see examples) |
... |
additional arguments passed to |
Joseph Larmarange
# small function to display plots only if it's interactive
p_ <- GGally::print_if_interactive
if (require(reshape)) {
data(tips, package = "reshape")
p_(ggtable(tips, "smoker", c("day", "time", "sex")))
# displaying row proportions
p_(ggtable(tips, "smoker", c("day", "time", "sex"), cells = "row.prop"))
# filling cells with standardized residuals
p_(ggtable(tips, "smoker", c("day", "time", "sex"), fill = "std.resid", legend = 1))
# if continuous variables are provided, just displaying some summary statistics
p_(ggtable(tips, c("smoker", "total_bill"), c("day", "time", "sex", "tip")))
}
# specifying weights
d <- as.data.frame(Titanic)
p_(ggtable(
d,
"Survived",
c("Class", "Sex", "Age"),
mapping = aes(weight = Freq),
cells = "row.prop",
fill = "std.resid"
))Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.