Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
Tufte's boxplot
tufte.boxplot <- function(x, g) {
k <- nlevels(g)
crit.val <- tapply(x, g, median)
plot(1:k, crit.val, ylim=c(min(x)*1.1, max(x)*1.1), pch=19,
xlab=deparse(substitute(g)), ylab=deparse(substitute(x)))
for (i in 1:k) {
tmp <- boxplot.stats(x[as.numeric(g)==i])
segments(i, tmp$stats[1], i, tmp$stats[2])
segments(i, tmp$stats[4], i, tmp$stats[5])
points(rep(i, length(tmp$out)), tmp$out, cex=.8)
}
}
dd <- data.frame(x=rnorm(50*100), g=gl(50,100))
with(dd, tufte.boxplot(x, g))
@even4void
Copy link
Author

even4void commented Aug 5, 2011

Credits: W. Huber on CrossValidated.

@even4void
Copy link
Author

even4void commented Oct 4, 2021

See Visualizing repeated measures (not longitudinal) for further customization.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment