R - adicione centróides ao gráfico de dispersão

Eu tenho um conjunto de dados duas variáveis contínuas e uma variável de fator (duas classes). Quero criar um gráfico de dispersão com dois centróides (um para cada classe) que inclua barras de erro em R. Os centróides devem ser posicionados nos valores médios de x e y para cada classe.

Posso criar facilmente o gráfico de dispersão usando ggplot2, mas não consigo descobrir como adicionar os centróides. É possível fazer isso usando ggplot / qplot?

Aqui está um exemplo de código:

x <- c(1,2,3,4,5,2,3,5)
y <- c(10,11,14,5,7,9,8,5)
class <- c(1,1,1,0,0,1,0,0)
df <- data.frame(class, x, y)
qplot(x,y, data=df, color=as.factor(class))

questionAnswers(1)

yourAnswerToTheQuestion