Estoy haciendo un boxplot básico dondey=age yx=Patient groups

age <- ggplot(data, aes(factor(group2), age))  + ylim(15, 80) 
age + geom_boxplot(fill = "grey80", colour = "#3366FF")

Esperaba que pudieras ayudarme con algunas cosas:

1) ¿Es posible incluir un número de observaciones por grupo sobre cada diagrama de caja de grupo (pero NO en el eje X donde están las etiquetas de mi grupo) sin tener que hacer esto en Paint :)? He intentado usar:

age + annotate("text", x = "CON", y = 60, label = "25")

dóndeCON es el 1er grupo yy = 60 es ~ justo arriba del diagrama de caja para este grupo. Sin embargo, el comando no funcionó. Supongo que tiene algo que ver que lee.x como una variable continua en lugar de una variable categórica.

2) Además, aunque hay muchas preguntas sobre el uso de la media en lugar de la mediana para los diagramas de caja, ¿aún no he encontrado un código que funcione para mí?

3) En el mismo asunto, ¿hay alguna manera de incluir la estadística del grupo promedio en el diagrama de caja? Tal vez usando

age + stat_summary(fun.y=mean, colour="red", geom="point")

el cual, sin embargo, solo incluye un punto donde está la media. O de nuevo usando

age + annotate("text", x = "CON", y = 30, label = "30")

dóndeCON es el 1er grupo yy = 30 es ~ la edad del grupo media. Sabiendo lo flexible y rico.ggplot2 la sintaxis es que esperaba que hubiera una forma más elegante de usar la salida de estadísticas real en lugar deannotate.

Cualquier sugerencia / enlace sería muy apreciado!

¡¡Gracias!!