Tengo una trama en la que estoy mostrando valores individuales de múltiples sujetos, coloreados por grupo. A eso se suman las medias por grupo, calculadas usando stat_summary.

Me gustaría que los dos medios se coloreen por grupo, pero en colores distintos de los datos individuales. Esto resulta ser difícil, al menos cuando se usa stat_summary. Tengo el siguiente código:

ggplot(data=dat, 
       aes(x=Round, y=DV, group=Subject, colour=T1)) + 
  geom_line() + geom_point() + theme_bw() +
  stat_summary(fun.y=mean, geom="line", size=1.5,
               linetype="dotted", color="black",
               aes(group=T1))

Que produce estográfico de ejemplo.

El color para los medios creados por stat_summary se establece en negro; de lo contrario, sería rojo y azul como las líneas de datos individuales. Sin embargo, no es posible establecer más de un color, por lo que color = c ("negro", "azul") no funciona.

Ya he probado scale_colour_manual como se explicóaquí, pero esto cambiará los colores de las líneas de datos individuales, sin afectar las líneas medias.

¿Alguna sugerencia de cómo resolver esto? Código y datosaquí.