Displaying 1 result from an estimated 1 matches for "fallmelt".
Did you mean:
callme_t
2010 May 11
2
predicting without a model
...04207L, 17004254L, 17004254L)), .Names = c("week",
"BY2009", "BY2008", "BY2007", "BY2006", "BY2005"), class = "data.frame", row.names = c(NA,
-52L))
fall$week <- ordered(spring$week,levels=c(48:52,1:47))
fall$WEEK <- 1:52
fallmelt <- melt(fall,id=c("week","WEEK"))
ggplot(fallmelt,aes(WEEK,value/1000,linetype=variable,colour=variable)) + geom_line(size=1)+ theme_bw() +
?scale_x_continuous(breaks=seq(1,52,3),labels=levels(fall$week)[seq(1,52,3)],) +
?opts(title="Fall Cumulative") + labs(y=&quo...