Nothing
# Nodeplot: anti-boxplot
# Gilles Pujol 2006
nodeplot <- function(x, xlim = NULL, ylim = NULL, labels = TRUE,
col = par("col"), pch = 21, bg = "white",
add = FALSE, at = NULL, ...) {
n <- ncol(x)
if (is.null(xlim)) {
xlim <- c(1, n)
}
if (is.null(ylim)) {
ylim <- c(min(x), max(x))
}
if (is.null(at)) {
at <- 1 : n
}
if (add) {
par(new = TRUE)
}
# axes
plot(0, xlim = xlim, ylim = ylim, axes = FALSE,
xlab = "", ylab = "", type = "n", ...)
if (class(labels) == "logical") {
if (labels) {
axis(side = 1, at = at, labels = rownames(x))
} else {
axis(side = 1, at = at, labels = FALSE, tick = FALSE)
}
} else if (class(labels) == "character") {
axis(side = 1, at = at, labels = labels)
}
axis(side = 2)
box()
xx <- x
# points
points(at, xx, col = col, pch = pch, bg = bg)
}
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.