current status

2014-12-07 21:44:03 +01:00
parent 1eb6aeec18
commit 68c3767cfa
1 changed files with 7 additions and 0 deletions
@@ -42,6 +42,13 @@ for(d in 1:nrow(issues)) {
 } # /for drange
 # VISUALS -----------------------------------------------------------------
 library(ggplot2)
 library(reshape2)
 df <- melt(issues,id="date")
 ggplot(df,aes(x=date,y=value,colour=variable,group=variable)) + geom_line()
 ggplot(df,aes(x=date,y=value,colour=variable,group=variable)) + geom_smooth(size=0.5,method="loess",formula = y ~ x, se=FALSE)
 # POSSIBLY USEFUL CODE ----------------------------------------------------