leyenda para las estadísticas de resumen en ggplot2

Question

Aquí está el código de la trama

library(ggplot2) 
df <- data.frame(gp = factor(rep(letters[1:3], each = 10)), y = rnorm(30)) 
library(plyr) 
ds <- ddply(df, .(gp), summarise, mean = mean(y), sd = sd(y)) 
ggplot(df, aes(x = gp, y = y)) + 
    geom_point() + 
    geom_point(data = ds, aes(y = mean), colour = 'red', size = 3) 

Quiero tener una leyenda para esta parcela que identificará los valores de los datos y los valores medios algo como esto

Black point = Data 
Red point = Mean. 

Cualquier puntero para conseguir el resultado deseado será altamente apreciado. Gracias

Answer 1

Use una escala manual, es decir, en su caso scale_colour_manual. A continuación, asignar los colores a los valores en la escala utilizando la función aes() de cada geom:

ggplot(df, aes(x = gp, y = y)) + 
    geom_point(aes(colour="data")) + 
    geom_point(data = ds, aes(y = mean, colour = "mean"), size = 3) + 
    scale_colour_manual("Legend", values=c("mean"="red", "data"="black")) 

Answer 2

Puede combinar la variable media y datos en la misma hoja.de.datos y color/tamaño de la columna que es un factor, ya sea data o mean

library(reshape2) 

# in long format 
dsl <- melt(ds, value.name = 'y') 
# add variable column to df data.frame 
df[['variable']] <- 'data' 
# combine 
all_data <- rbind(df,dsl) 

# drop sd rows 

data_w_mean <- subset(all_data,variable != 'sd',drop = T) 

# create vectors for use with scale_..._manual 
colour_scales <- setNames(c('black','red'),c('data','mean')) 
size_scales <- setNames(c(1,3),c('data','mean')) 

ggplot(data_w_mean, aes(x = gp, y = y)) + 
    geom_point(aes(colour = variable, size = variable)) + 
    scale_colour_manual(name = 'Type', values = colour_scales) + 
    scale_size_manual(name = 'Type', values = size_scales) 

O no podía combinar, pero incluir la columna en ambos conjuntos de datos

dsl_mean <- subset(dsl,variable != 'sd',drop = T) 
ggplot(df, aes(x = gp, y = y, colour = variable, size = variable)) + 
    geom_point() + 
    geom_point(data = dsl_mean) + 
    scale_colour_manual(name = 'Type', values = colour_scales) + 
    scale_size_manual(name = 'Type', values = size_scales) 

Lo que da los mismos resultados