Desc(table(d.pizza$driver, Weekday(d.pizza$date)), rfrq="100", plotit=TRUE)
tab <- as.matrix(read.table(text="549 212 54
93 124 54
233 78 33
119 42 13
225 41 46
455 12 7
402 132 153"
))
tab
# taciturn ("Ripley style")
Desc(tab, verbose="low")
# talkative
Desc(tab, verbose="high", expected=TRUE, res=TRUE)
# higher dimensional tables
Desc(Titanic)
# use global format options for presentation
options(fmt.abs=structure(list(digits=0, big.mark=""), class="fmt"))
options(fmt.per=structure(list(digits=2, fmt="%"), class="fmt"))
Desc(area ~ driver, d.pizza, plotit=FALSE)
options(fmt.abs=structure(list(digits=0, big.mark="'"), class="fmt"))
options(fmt.per=structure(list(digits=3, leading="drop"), class="fmt"))
Desc(area ~ driver, d.pizza, plotit=FALSE)
Run the code above in your browser using DataLab