![[Photo gallery]](/staff/tp/icons/ico_gallery.png){kind=icon}
Rozkład komisji obwodowych według liczby oddanych głosów (na podstawie szczegółowych wyników wyborów do Sejmu RP, pobranych ze strony PKW -- por. Web scrapping protokołów wyborczych ze strony PKW):
![[Zdjęcie T. Przechlewskiego]](/personal/rysunki/home-icon.jpg){kind=icon}
komisje <- read.csv("komisje_glosy_razem.csv", sep = ';', header=T, na.string="NA");
str(komisje);
hist(komisje$glosy, breaks=seq(0, 3200, by=25), col="orange",
freq=TRUE,main="Komisje wg liczby oddanych głosów",
xlab="# głosów",ylab="# komisji (N = 27859)" )
mtext(text="https://github.com/hrpunio/Data/tree/master/sejm", 4, cex=0.7)
text(3200,100, "Me = 495\nQ1 = 265\nQ3 = 782...", 2, cex=0.7, adj=c(0,0));
fivenum(komisje$glosy);
quantile(komisje$glosy, c(.10));
quantile(komisje$glosy, c(.05));
quantile(komisje$glosy, c(.90));