
PlotDesc(x, ..., wrd = NULL)
## S3 method for class 'default':
PlotDesc(x, ...)
## S3 method for class 'integer':
PlotDesc(x, main = deparse(substitute(x)),
ord = c("val_asc","val_desc","frq_asc","frq_desc"),
maxrows = 12, ... , wrd = NULL)
## S3 method for class 'numeric':
PlotDesc(x, main = deparse(substitute(x)), ...,
wrd = NULL)
## S3 method for class 'factor':
PlotDesc(x, main = deparse(substitute(x)),
ord = c("desc", "level", "name", "asc", "none"),
maxrows = 12, lablen = 25, type = c("bar","dot"),
col = NULL, border = NULL, xlim=NULL, ecdf=FALSE, ..., wrd = NULL)
## S3 method for class 'table':
PlotDesc(x, col1 = getOption("col1", hblue),
col2 = getOption("col2", hred),
horiz = TRUE, main="", ..., wrd = NULL)
## S3 method for class 'matrix':
PlotDesc(x, col1 = getOption("col1", hblue),
col2 = getOption("col2", hred),
horiz = TRUE, main="", ..., wrd = NULL)
## S3 method for class 'ordered':
PlotDesc(x, ..., wrd = NULL)
## S3 method for class 'data.frame':
PlotDesc(x, ..., wrd = NULL)
## S3 method for class 'logical':
PlotDesc(x, main = deparse(substitute(x)), xlab = "",
col1 = getOption("col1", hblue),
col2 = getOption("col2", hred), ..., wrd = NULL)
## S3 method for class 'Date':
PlotDesc(x, main = deparse(substitute(x)), breaks = NULL, ..., wrd = NULL)
## S3 method for class 'flags':
PlotDesc(x, ..., wrd = NULL)
PlotDescNumFact(formula, data, main = deparse(formula), notch=FALSE,
add_ni = TRUE, ..., wrd = NULL)
PlotDescFactNum(x, y, ptab,
col1 = getOption("col1", hblue), col2 = getOption("col2", hred),
main=NULL, notch=FALSE, add_ni = TRUE, ... , wrd=NULL)
PlotDescNumNum(form1, form2, data, main = NULL, xlab = NULL, ylab = NULL, ..., wrd = NULL)
"bar"
for a horizontal barchart or "dot"
for a dotchart.TRUE
).GetNewWrd()
or an existing one, created by GetCurrWrd()
.
Default is the last created pointer stored in getOption("lastWord")
.Desc
PlotDesc(x=na.omit(d.pizza$delivery_min)) # numeric
PlotDesc(x=na.omit(d.pizza$week)) # integer
PlotDesc(x=na.omit(d.pizza$driver)) # factor
PlotDesc(x=na.omit(d.pizza$quality)) # ordered factor
PlotDesc(x=na.omit(d.pizza$wrongpizza)) # logical
PlotDesc(x=na.omit(d.pizza$date)) # Date
PlotDesc(x=na.omit(d.pizza$driver), ecdf = TRUE) # factor
d.frm <- d.pizza[,c("price","operator")]
d.frm <- d.frm[complete.cases(d.frm),]
PlotDescNumFact(temperature ~ driver, data=d.pizza) # numeric ~ factor
PlotDesc(table(d.pizza$driver, d.pizza$operator)) # factor ~ factor
Run the code above in your browser using DataLab