¿Cómo agregar la línea de media a un gráfico de densidad agrupado en R?
Estoy tratando de dibujar un gráfico de densidad agrupado y agregar la línea media de cada gráfico; aquí está el código data <- data.frame( Accuracy=abs(rnorm(140)), Species=c(rep(“A.All”,20),rep(“B. double”,60),rep(“C.single”,60), rep(“D.All”,20),rep(“E.double”,60),rep(“F.single”,60)), Modality=c(rep(“All,w0”,10),rep(“double1,w0”,10),rep(“double2,w0”,10),rep(“double3,w0”,10), rep(“single1,w0”,10),rep(“single2,w0”,10),rep(“single3,w0”,10), rep(“All,w2”,10),rep(“double1,w2”,10),rep(“double2,w2”,10),rep(“double3,w2”,10), rep(“single1,w2”,10),rep(“single2,w2”,10),rep(“single3,w2”,10)) ) p<-ggplot(data, aes(x=Accuracy, fill=Modality)) + geom_density(alpha=0.4)+ facet_wrap(. ~ Species) + xlab(“Accuracy”) + ylab(“Density”) library(plyr) mu <- ddply(data, “Modality”, . . . Read more