added rproject for statistics

ch420_statistics/.gitignore

@@ -0,0 +1,4 @@
+.Rproj.user
+.Rhistory
+.RData
+main.html

ch420_statistics/ch420_statistics.Rproj

@@ -0,0 +1,13 @@
+Version: 1.0
+
+RestoreWorkspace: No
+SaveWorkspace: No
+AlwaysSaveHistory: No
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX

ch420_statistics/main.R

@@ -0,0 +1,24 @@
+library(mongolite)
+m <- mongo(db="heroku_t242kdp0", collection = "supporters")
+
+
+all <- m$find('{"duplicate":  { "$ne": true }}')
+all$created_at <- as.Date(all$created_at)
+all <- subset(all, created_at >= as.Date('2016-04-20'))
+
+barplot(table(all$created_at), main = "Verlauf Einträge #CH420 Total")
+
+li_members <- subset(all, li_membership == T)
+
+barplot(table(li_members$created_at), main = "Verlauf Einträge #CH420 Mitgliedschaft")
+
+
+ages <- table(all$age_category)
+percentlabels<- round(100*ages/sum(ages), 1)
+pielabels<- paste(percentlabels, "%", sep="")
+cols <- rainbow(4)
+pie(ages, main="Altersverteilung #CH420", col=cols, labels=pielabels, cex=0.8, sub=paste("N =", sum(ages)))
+legend("topright", c("30-64",">64","< 18","18-30"), cex=0.8, fill=cols)
+
+
+

ch420_statistics/main.Rmd

@@ -0,0 +1,31 @@
+---
+title: '#CH420 Statistiken Onlineforumlar'
+author: "Markus Graf"
+date: "23. April 2016"
+output: html_document
+---
+
+
+```{r}
+library(mongolite)
+m <- mongo(db="heroku_t242kdp0", collection = "supporters")
+
+
+all <- m$find('{"duplicate":  { "$ne": true }}')
+all$created_at <- as.Date(all$created_at)
+all <- subset(all, created_at >= as.Date('2016-04-20'))
+
+barplot(table(all$created_at), main = "Verlauf Eintraege #CH420 Total")
+
+li_members <- subset(all, li_membership == T)
+
+barplot(table(li_members$created_at), main = "Verlauf Eintraege #CH420 Mitgliedschaft")
+
+
+ages <- table(all$age_category)
+percentlabels<- round(100*ages/sum(ages), 1)
+pielabels<- paste(percentlabels, "%", sep="")
+cols <- rainbow(4)
+pie(ages, main="Altersverteilung #CH420", col=cols, labels=pielabels, cex=0.8, sub=paste("N =", sum(ages)))
+legend("topright", c("30-64",">64","< 18","18-30"), cex=0.8, fill=cols)
+```