Desc(table(d.pizza$driver, Weekday(d.pizza$date)), rfrq="100", plotit=TRUE)
tab <- t(rbind(c(549,212,54),
c(93,124,54),
c(233,78,33),
c(119,42,13),
c(225,41,46),
c(455,12,7),
c(402,132,153)
))
# taciturn
Desc(tab, verb="lo")
# talkative
Desc(tab, verb="hi", expected=TRUE, res=TRUE)
Run the code above in your browser using DataLab