Benutzer:Sofia El Toro/Auswertungsskript

R Code

staedte=read.table(file="Stadtranking-EUW.csv", header=T, sep=",", dec=",")

attach(staedte)

mean(EUW) # Durchschnitt ist 1.784694

median(EUW)

lv_rank=aggregate(EUW, by=list(Land), FUN=mean)

lv_rank=lv_rank[order(-lv_rank$x),]

z=1

for (i in 2:(dim(lv_rank)[1])) {

if (lv_rank$x[i]<lv_rank$x[i-1])

{z=c(z,z[i-1]+1)}

else {z=c(z,z[i-1])}

}

lv_rank=data.frame(z,lv_rank)

br=seq(min(EUW),max(EUW),0.3)

jpeg('hist.jpg')

hist(EUW, breaks=br, freq=FALSE, main="Häufigkeit der Wahlergebnisse",xlab="Ergebnisse in %", xaxt="n")

axis(1, at=br, labels=br)

dev.off()