From 3f7ff9480dde3700d41beb3e882673605bf110c4 Mon Sep 17 00:00:00 2001 From: Markus Graf Date: Tue, 29 May 2018 08:48:16 +0200 Subject: [PATCH] Updated statistics --- ch420_statistics/main.Rmd | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/ch420_statistics/main.Rmd b/ch420_statistics/main.Rmd index a7ad2ee..45afbb5 100644 --- a/ch420_statistics/main.Rmd +++ b/ch420_statistics/main.Rmd @@ -1,7 +1,6 @@ --- title: '#CH420 Statistiken Onlineforumlar' author: "Markus Graf" -date: "23. April 2016" output: html_document --- @@ -28,4 +27,10 @@ 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) + +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) ``` \ No newline at end of file