gurix/ch420
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Updated statistics

Browse Source
This commit is contained in:
gurix
2018-05-29 08:48:16 +02:00
parent 6429885f39
commit 3f7ff9480d
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ch420_statistics/main.Rmd
+6 -1
View File
@@ -1,7 +1,6 @@
--- ---
title: '#CH420 Statistiken Onlineforumlar' title: '#CH420 Statistiken Onlineforumlar'
author: "Markus Graf" author: "Markus Graf"
date: "23. April 2016"
output: html_document output: html_document
--- ---
@@ -28,4 +27,10 @@ pielabels<- paste(percentlabels, "%", sep="")
cols <- rainbow(4) cols <- rainbow(4)
pie(ages, main="Altersverteilung #CH420", col=cols, labels=pielabels, cex=0.8, sub=paste("N =", sum(ages))) 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) legend("topright", c("30-64",">64","< 18","18-30"), cex=0.8, fill=cols)
support <- table(all$support)
pielabels<- support
cols <- rainbow(2)
pie(support, main="Supportverteilung #CH420", col=cols, labels=pielabels, cex=0.8, sub=paste("N =", sum(support)))
legend("topright", c("Unterschreibende","Sammler"), cex=0.8, fill=cols)
``` ```