leyenda ggplot2 para stat_summary

Question

¿Cómo puedo crear una leyenda que indique que la cruz roja es la media?

ggplot(results, aes(x=factor, y=proportionPositive)) + 
geom_boxplot() + 
stat_summary(fun.data = "mean_cl_normal", colour = "red", shape=4) 

Answer 1

Esta es una manera de hacerlo:

1. asignar una estética a una forma, es decir, AES (forma = "significa")
2. Crear una escala de forma manual de , es decir, scale_shape_manual()

# Create dummy data 
results <- data.frame(
    factor=factor(rep(1:10, 100)), 
    proportionPositive=rnorm(1000)) 

# Plot results 
ggplot(results, aes(x=factor, y=proportionPositive)) + 
     geom_boxplot() + 
     stat_summary(fun.data = "mean_cl_normal", 
       aes(shape="mean"), 
       colour = "red", 
       geom="point") + 
     scale_shape_manual("", values=c("mean"="x")) 

Answer 2

para que parezca como una leyenda por defecto (préstamos de código @Andrie):

ggplot(results, aes(x=factor, y=proportionPositive)) + 
     geom_boxplot() + 
     stat_summary(fun.data = "mean_cl_normal", 
       aes(shape=""), # Leave empty 
       colour = "red", 
       geom="point") + 
     scale_shape_manual("mean", values= "") # Will show mean on top of the line