hinzufügen vertikale Linie des mittleren bis Dichteplot

Question

dem Beispiel von diesem website Nach wir eine Dichte Grundstück für mehrere Faktoren innerhalb eines data.frame

library(sm) 
attach(mtcars) 
sm.density.compare(mpg, cyl, xlab="Miles Per Gallon") 

Meine Frage ist sehr einfach erzeugen kann, ist, wie kann eine vertikale hinzufügen sein Linie für jeden Faktor, der die Median oder die Mittelwert darstellt?

Answer 1

Dies ist ein Beispiel für die Mittelwert. Um den Median zu berechnen, ersetzen Sie einfach "FUN = Mittelwert" durch "FUN = Median" in der Aggregatfunktion.

library(sm) 
attach(mtcars) 
sm.density.compare(mpg, cyl, xlab="Miles Per Gallon") 

means <- aggregate(mpg ~ cyl, FUN = mean) 
abline(v = means[1,2], col = 2) 
abline(v = means[2,2], col = 3, lty = 2) 
abline(v = means[3,2], col = 4, lty = 3)