легенда для сводной статистики в ggplot2

Вот код для сюжета

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)

enter image description here

Я хочу иметь легенду для этого графика, которая будет идентифицировать значения данных и средние значения примерно так

Black point = Data
Red point   = Mean.

Любой указатель для получения желаемого результата будет высоко оценен. Спасибо

Ответы на вопрос(2)

Ваш ответ на вопрос