Nothing
"bplot.obj" <-
function (data, pos = NA, width = NULL, labels = NULL, las = NULL,
add = FALSE, space = 0.25, sort.names = FALSE, xlab = "", ylab = "",
label.cex = 1, xaxt = "n", outlier = TRUE, horizontal = FALSE, ...)
{
cols <- length(data)
range.data <- c(NA, NA)
if (is.null(labels)) {
labels <- names(data)
}
if (is.na(pos[1])) {
pos <- 1:cols
if (sort.names) {
pos <- order(labels)
}
}
if (is.null(width)) {
width <- min(diff(sort(pos))) * space
if (cols == 1)
width <- space
}
if (length(width) == 1)
width <- rep(width, cols)
if (!add) {
for (k in 1:cols) {
range.data <- range(c(range.data, data[[k]]$range),
na.rm = TRUE)
}
temp1 <- range.data
temp2 <- range(c(pos - (0.5 * width)/space, pos + (0.5 *
width)/space))
if (horizontal) {
plot(temp1, temp2, type = "n", yaxt = xaxt, xlab = xlab,
ylab = ylab, ...)
}
else {
plot(temp2, temp1, type = "n", xaxt = xaxt, xlab = xlab,
ylab = ylab, ...)
}
}
for (i in 1:cols) {
draw.bplot.obj(data[[i]], width[i], pos[i], outlier = outlier,
horizontal = horizontal)
}
if (label.cex > 0) {
if (is.null(las)) {
if (length(labels) > 7) {
las <- 2
}
else {
las <- 1
}
}
if (horizontal) {
axis.loc <- 2
}
else {
axis.loc <- 1
}
axis(axis.loc, pos, labels, tick = FALSE, las = las, adj = 0.5,
cex = label.cex)
}
invisible()
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.