R 在每个刻面中只有一条线的刻面线图中按组改变线颜色

下面是生成数据的代码和ggplot2刻面线图，看起来效果不错。但是，我希望根据附加（组）的值更改线条的颜色，这在我的示例中不存在。我尝试添加：

+element_line(color=combined$group))

但这并没有改变任何事情。我想做的事可能吗？同样，我想在每个方面只保留一条线，但根据“group”的值更改颜色。提前感谢您的帮助

require(ggplot2)    
Year<-c(rep(2012,10),rep(2013,10),rep(2014,10))
MULTDV<-rnorm(30)
Construct<-factor(rep(1:10,3))
group<-rep(c(rep(1,5), rep(2,5)),3)

combined<-as.data.frame(cbind(Year, MULTDV, Construct, group))
qplot(factor(Year), MULTDV, data=combined, xlab=NULL, ylab=NULL, stat="identity") + stat_summary(fun.y=mean, colour="steelblue3", geom="line", aes(group=1))+facet_wrap(~Construct,  nrow = 2)

require（ggplot2）
年份目前，您的代码不会生成“刻面线图”，并且没有在任何地方定义
FactTest
。但是，以下代码应该可以让您更接近您正在尝试执行的操作：

combined<-data.frame(Year, MULTDV, Construct, group)

qplot(factor(Year), MULTDV, data=combined, 
      geom = "line", group = Construct, color = factor(group),
      facets = ~ Construct)

combined我最后做了以下工作，虽然可能有一种更优雅的方法来做

require(ggplot2)    
Year<-c(rep(2012,10),rep(2013,10),rep(2014,10))
MULTDV<-rnorm(30)
Construct<-factor(rep(1:10,3))
group<-rep(c(rep(1,5), rep(2,5)),3)
combined<-as.data.frame(cbind(Year, MULTDV, Construct, group))
cols<- c("1"="steelblue3","2"="red")

ggplot(combined,aes(x=factor(Year),y=MULTDV))+
    stat_summary(fun.y=mean, geom="line", aes(group=2, colour=factor(group)))+
    facet_wrap(~Construct,  nrow = 2)+
    geom_point()+
    scale_colour_manual(values = cols, guide="none")+
    theme(legend.position = "none")

require（ggplot2）
年