From 68c3767cfa0710fd94d23b8bf9023b64ef723f29 Mon Sep 17 00:00:00 2001
From: mxmehl <mail@mehl.mx>
Date: Sun, 7 Dec 2014 21:44:03 +0100
Subject: [PATCH] current status

---
 issuecomp.R | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/issuecomp.R b/issuecomp.R
index bfbecab..6e963b8 100644
--- a/issuecomp.R
+++ b/issuecomp.R
@@ -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 ----------------------------------------------------