adjbox  R Documentation 
Produces boxplots adjusted for skewed distributions as proposed in Hubert and Vandervieren (2008).
adjbox(x, ...)
## S3 method for class 'formula'
adjbox(formula, data = NULL, ..., subset, na.action = NULL)
## Default S3 method:
adjbox(x, ..., range = 1.5, doReflect = FALSE,
width = NULL, varwidth = FALSE,
notch = FALSE, outline = TRUE, names, plot = TRUE,
border = par("fg"), col = NULL, log = "",
pars = list(boxwex = 0.8, staplewex = 0.5, outwex = 0.5),
horizontal = FALSE, add = FALSE, at = NULL)
formula 
a formula, such as 
data 
a data.frame (or list) from which the variables in

subset 
an optional vector specifying a subset of observations to be used for plotting. 
na.action 
a function which indicates what should happen
when the data contain 
x 
for specifying data from which the boxplots are to be
produced. Either a numeric vector, or a single list containing such
vectors. Additional unnamed arguments specify further data
as separate vectors (each corresponding to a component boxplot).

... 
For the For the default method, unnamed arguments are additional data
vectors (unless 
range 
this determines how far the plot whiskers extend out
from the box, and is simply passed as argument 
doReflect 
logical indicating if the MC should also be
computed on the reflected sample 
width 
a vector giving the relative widths of the boxes making up the plot. 
varwidth 
if 
notch 
if 
outline 
if 
names 
group labels which will be printed under each boxplot. 
boxwex 
a scale factor to be applied to all boxes. When there are only a few groups, the appearance of the plot can be improved by making the boxes narrower. 
staplewex 
staple line width expansion, proportional to box width. 
outwex 
outlier line width expansion, proportional to box width. 
plot 
if 
border 
an optional vector of colors for the outlines of the
boxplots. The values in 
col 
if 
log 
character indicating if x or y or both coordinates should be plotted in log scale. 
pars 
a list of (potentially many) more graphical parameters,
e.g., 
horizontal 
logical indicating if the boxplots should be
horizontal; default 
add 
logical, if true add boxplot to current plot. 
at 
numeric vector giving the locations where the boxplots should
be drawn, particularly when 
The generic function adjbox
currently has a default method
(adjbox.default
) and a formula interface (adjbox.formula
).
If multiple groups are supplied either as multiple arguments or via a
formula, parallel boxplots will be plotted, in the order of the
arguments or the order of the levels of the factor (see
factor
).
Missing values are ignored when forming boxplots.
Extremes of the upper and whiskers of the adjusted boxplots are
computed using the medcouple (mc()
), a robust measure of
skewness. For details, cf. TODO
A list
with the following components:
stats 
a matrix, each column contains the extreme of the lower whisker, the lower hinge, the median, the upper hinge and the extreme of the upper whisker for one group/plot. If all the inputs have the same class attribute, so will this component. 
n 
a vector with the number of observations in each group. 
coef 
a matrix where each column contains the lower and upper extremes of the notch. 
out 
the values of any data points which lie beyond the extremes of the whiskers. 
group 
a vector of the same length as out whose elements indicate to which group the outlier belongs. 
names 
a vector of names for the groups. 
The code and documentation only slightly modifies the code of
boxplot.default
, boxplot.formula
and
boxplot.stats
R Core Development Team, slightly adapted by Tobias Verbeke
Hubert, M. and Vandervieren, E. (2008). An adjusted boxplot for skewed distributions, Computational Statistics and Data Analysis 52, 5186–5201. \Sexpr[results=rd]{tools:::Rd_expr_doi("10.1016/j.csda.2007.11.008")}
The medcouple, mc
; boxplot
.
if(require("boot")) {
### Hubert and Vandervieren (2008), Fig. 5.%(2006): p. 10, Fig. 4.
data(coal, package = "boot")
coaldiff < diff(coal$date)
op < par(mfrow = c(1,2))
boxplot(coaldiff, main = "Original Boxplot")
adjbox(coaldiff, main = "Adjusted Boxplot")
par(op)
}
### Hubert and Vandervieren (2008), p. 11, Fig. 7a  enhanced
op < par(mfrow = c(2,2), mar = c(1,3,3,1), oma = c(0,0,3,0))
with(condroz, {
boxplot(Ca, main = "Original Boxplot")
adjbox (Ca, main = "Adjusted Boxplot")
boxplot(Ca, main = "Original Boxplot [log]", log = "y")
adjbox (Ca, main = "Adjusted Boxplot [log]", log = "y")
})
mtext("'Ca' from data(condroz)",
outer=TRUE, font = par("font.main"), cex = 2)
par(op)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.