set.seed(10) x <- rexp(100) out <- boxplot(x)$out text(rep(1.1, length(out)), out, sprintf("%0.2f", out))