Image:Mandate2006.png

From Wikipedia, the free encyclopedia

Wikimedia Commons logo This is a file from the Wikimedia Commons. The description on its description page there is shown below.
Commons is a freely licensed media file repository. You can help.
Description

distribution of members in the austrian parliament after the 2006 vote
Source

created with GNU R, see source below
Date

03 oct 2006
Author

Thomas Steiner
Permission
(Reusing this image)

Thomas Steiner put it under the CC-by-SA 2.5.


Creative Commons License
Creative Commons Attribution iconCreative Commons Share Alike icon		 This file is licensed under the Creative Commons Attribution ShareAlike 2.5 License. In short: you are free to share and make derivative works of the file under the conditions that you appropriately attribute it, and that you distribute it only under a license identical to this one. Official license

R-source code:

parliament<-function(x, labels=names(x), edges=5000, col=rainbow(length(x)), rad.in=0.25, ...) {
  plot(c(-1,1), c(0,1), type="n", axes=FALSE, xlab="", ylab="", ...)
  y=c(0,pi*cumsum(x)/sum(x))
  ang=seq(0,pi,length=edges)
  for (aktiv in 1:(length(y)-1)) {
    poly=ang[ y[aktiv]<=ang & ang<=y[aktiv+1] ]
    polygon(c(cos(poly),0), c(sin(poly),0),col=col[aktiv],border=col[aktiv])
    text( (cos(y[aktiv])+cos(y[aktiv+1])+rad.in*cos(y[aktiv])+rad.in*cos(y[aktiv+1]))/4, (sin(y[aktiv])+sin(y[aktiv+1])+rad.in*sin(y[aktiv])+rad.in*sin(y[aktiv+1]))/4, col="white", labels=paste(labels[aktiv], "\n" ,x[aktiv]), cex=1.2, adj=c(0.5,0.5))
  }
  polygon(rad.in*cos(ang),rad.in*sin(ang),col=par("bg"),border=par("bg"))
}

x<-c(21,66,7,68,21)
names(x)<-c("FPÖ", "ÖVP", "BZÖ", "SPÖ", "Grüne")

png(filename="Mandate2006.png", width=1300, height=850, pointsize=12)
par(bg="whitesmoke")
parliament(x, col=c("#126ca8", "black", "#ec921a", "red", "#61bb46"), main="Nationalratswahl 2006 - Mandatsverteilung", cex.main=1.7)
dev.off()

File history

Click on a date/time to view the file as it appeared at that time.

Date/TimeDimensionsUserComment
current12:38, 10 October 20061,300×850 (12 KB)Thire (changed bzo to grüne)
07:48, 3 October 20061,300×860 (12 KB)Thire ({{Information| |Description = distribution of members in the austrian parliament after the 2006 vote |Source = created with GNU R, see source below |Date = 03 oct 2006 |Author = Thomas Steiner |Permission = [[:de:Benutzer:Thire|Thom)
No pages on the English Wikipedia link to this file. (Pages on other projects are not counted.)