plots.vec<-list()
tmp.m<-X_c_normalized[rownames(gene.cluster.color.list[[
cluster.name]]),]
tmp.m.melt<-melt(tmp.m)
p1<-ggplot()
p1<-p1+geom_line(data=tmp.m.melt,aes(x=X2, y=as.numeric(value),group=X1))
p1<-p1+theme(panel.background = element_rect(fill = 'white',color="black"),plot.title =element_text(size=20
,face='bold'))
p1<-p1 + labs(title =
cluster.name)+ xlab("Conditions") + ylab("Normalized Gene Expression")
}
jpeg(filename="~/testimage.jpg",width=900,height=900)
do.call(grid.arrange, c(plots.vec, ncol=2))
dev.off()