在ggplot2中添加趋势线/盒子图（按组）添加趋势线/箱图

Question

我有40个科目，两组，超过15周，有一些测量变量（Y）。

我希望有一个情节，其中：x =时间，y = T，线按主题和颜色按组。

，我发现这是可以做到这样的：

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) 

但现在我要补充的情节东西给（趋势线为每个组，两组之间的差异，例如，与一些CI阴影线） - 如何完成？

我记得曾经看到ggplot2可以（很容易）用geom_smooth来做到这一点，但我错过了一些关于如何使它工作的东西。

此外，我想知道可能有行像每个组的一个boxplot（与不同分位数和围栏等线）。但我想象回答第一个问题会帮助我解决第二个问题。

谢谢。

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