Aus Gründen der Vollständigkeit, könnten Sie auch overplot:
set.seed(753)
df <- data.frame(y=rt(100, 4), x=gl(5, 20))
bx.p <- boxplot(y~x, df)
bx.p$stats[3, ] <- unclass(with(df, by(y, x, FUN = mean)))
bxp(bx.p, add=T, boxfill="transparent", medcol="red", axes=F, outpch = NA, outlty="blank", boxlty="blank", whisklty="blank", staplelty="blank")
Erklärung über @scs:
bxp$stats
gibt eine Matrix zurück das enthält den unteren Bart, das untere Scharnier, den Median, das obere Scharnier und das Extrem des oberen Bartes für jeden Boxplot. Die obige Lösung überschreibt den in bx.p$stats[3, ]
angegebenen Median mit dem Mittelwert. Die Funktion bxp
ist eine Funktion zum Zeichnen von Boxplot-Objekten.
Ergebnis:
Vielleicht ist es nur ich, aber ich möchte etwas anderes als nur Farbe, die zwei Dinge auf der gleichen Handlung unterscheiden würde. Stellen Sie sich vor, dass ich aus irgendeinem obskuren Grund das auf Papier lesen wollte und der einzige Drucker, auf dem ich drucken kann, hat nur schwarze Tinte. –
In eine Legende einfügen: 'legende ('topleft', lty = c (1, 1), lwd = rep (3, 2), col = c (" schwarz "," rot "), legende = c (" median "," bedeutet "), horiz = TRUE, bg =" transparent ")'. – lukeA
Mein Drucker verwendet auch schwarze Tinte für die Legende. :-) –