Aggiunta di linee di tendenza/boxplot (per gruppo) in ggplot2

Question

Ho 40 soggetti, di due gruppi, oltre 15 settimane, con qualche variabile misurata (Y).

Desidero avere un grafico dove: x = tempo, y = T, le linee sono per soggetti e colori per gruppi.

ho trovato si può fare in questo modo:

TIME <- paste("week",5:20) 
ID <- 1:40 
GROUP <- sample(c("a","b"),length(ID), replace = T) 
group.id <- data.frame(GROUP, ID) 
a <- expand.grid(TIME, ID) 
colnames(a) <-c("TIME", "ID") 
group.id.time <- merge(a, group.id) 
Y <- rnorm(dim(group.id.time)[1], mean = ifelse(group.id.time$GROUP =="a",1,3)) 
DATA <- cbind(group.id.time, Y) 
qplot(data = DATA, 
     x=TIME, y=Y, 
     group=ID,  
     geom = c("line"),colour = GROUP) 

Ma ora vorrei aggiungere alla trama qualcosa per mostrare la differenza tra i due gruppi (per esempio, una linea di tendenza per ogni gruppo, con alcune ombreggiature CI) - come può essere fatto?

Ricordo di aver visto ggplot2 (facilmente) farlo con geom_smooth, ma mi manca qualcosa su come farlo funzionare.

Inoltre, mi sono chiesto se le linee fossero come un boxplot per ogni gruppo (con una linea per i diversi quantili e recinzioni e così via). Ma immagino che rispondere alla prima domanda mi aiuterebbe a risolvere il secondo.

Grazie.

Answer 1

p <- ggplot(data=DATA, aes(x=TIME, y=Y, group=ID)) + 
      geom_line(aes(colour=GROUP)) + 
      geom_smooth(aes(group=GROUP)) 

geom_smooth plot http://img143.imageshack.us/img143/7678/geomsmooth.png