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 ----------------------------------------------------