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