par(mfrow = c(1, 3), mar = c(4, 4, 3, 1))
mitten <- c(mean(a), mean(b))
barplot(mitten, names.arg = c("A", "B"), col = neutral, border = NA,
ylim = c(0, 14), ylab = "Wert", main = "nur Mittelwerte")
mp <- barplot(mitten, names.arg = c("A", "B"), col = neutral, border = NA,
ylim = c(0, 14), ylab = "Wert", main = "mit 95-Prozent-Intervall")
grenzen <- rbind(kennzahl(a), kennzahl(b))
arrows(mp, grenzen[, "unten"], mp, grenzen[, "oben"],
angle = 90, code = 3, length = 0.08, lwd = 2)
plot(rep(1:2, each = 40) + (lehmer(31, 80) - 0.5) * 0.3, c(a, b),
pch = 16, col = adjustcolor("grey25", alpha.f = 0.5), xaxt = "n",
xlab = "", ylab = "Wert", main = "die Daten selbst", xlim = c(0.5, 2.5))
axis(1, at = 1:2, labels = c("A", "B"))
par(mfrow = c(1, 1))