Plik:Wybory do sejmików - głosy nieważne w województwach 2002-2014.svg
Treść strony nie jest dostępna w innych językach.
Wygląd
Wielkość pliku podglądu PNG dla pliku SVG: 533 × 600 pikseli Inne rozdzielczości: 213 × 240 pikseli | 427 × 480 pikseli | 683 × 768 pikseli | 910 × 1024 pikseli | 1820 × 2048 pikseli | 720 × 810 pikseli.
Rozmiar pierwotny (Plik SVG, nominalnie 720 × 810 pikseli, rozmiar pliku: 2,13 MB)
Plik Wybory do sejmików - głosy nieważne w województwach 2002-2014.svg znajduje się w Wikimedia Commons – repozytorium wolnych zasobów. Dane z jego strony opisu znajdują się poniżej. |
Spis treści
Opis
OpisWybory do sejmików - głosy nieważne w województwach 2002-2014.svg | |
Data | |
Źródło | Praca własna |
Autor | Attomir |
SVG rozwój InfoField | |
Kod źródłowy InfoField | R codeSys.setlocale("LC_ALL", 'en_US.UTF-8')
library(maptools)
library(ggplot2)
library(gpclib)
library(rgeos)
# shapefile from http://www.codgik.gov.pl/index.php/darmowe-dane/prg.html
# "PRG - jednostki administracyjne"
# copy all "województwa.*" files, then change "ó" to "o"
woj_shp <- readShapePoly("./wojewodztwa.shp")
# reduce the number of vertices in polygons
woj_shp_s <- gSimplify(woj_shp, tol=2000, topologyPreserve=TRUE)
woj_poly <- fortify(woj_shp_s)
woj_wsp <- sapply(woj_shp@polygons, function(x) x@labpt)
# "śląskie" polygon has errors, this can be fixed by trimming some points
# from the end of the vector
woj_ds = subset(woj_poly, id == '5')
woj_ds_cutoff = length(woj_ds$id)*.99
woj_poly = rbind(subset(woj_poly, id != '5'), woj_ds[1:woj_ds_cutoff,])
abbr_teryt <- list(ds="02", kp="04", lu="06", lb="08", ld="10", mp="12", ma="14", op="16",
pk="18", pd="20", pm="22", sl="24", sk="26", wn="28", wp="30", zp="32")
teryt_abbr <- list()
for (k in names(abbr_teryt)) {
v <- abbr_teryt[[k]]
teryt_abbr[v] <- k
}
years = data.frame(year = c(2002, 2006, 2010, 2014))
woj_labels <- data.frame(
name=woj_shp@data$jpt_nazwa_,
teryt=woj_shp@data$jpt_kod_je,
long = woj_wsp[1,],
lat = woj_wsp[2,])
woj_labels$abbr = sapply(woj_labels$teryt, function(x) teryt_abbr[[x]])
woj_elections <- merge(woj_labels, years, by=NULL)
woj_invalid <- read.csv("woj_invalid.csv", comment.char="#")
woj_elections$invalid <- mapply(
function(y, n) woj_invalid$invalid[(woj_invalid$year == y) & (woj_invalid$woj == n)],
woj_elections$year,
woj_elections$abbr)
woj_teryt <- woj_shp@data$jpt_kod_je
woj_poly$abbr <- sapply(as.numeric(woj_poly$id), function(x) teryt_abbr[[woj_teryt[[x+1]]]])
woj_poly_elections <- merge(woj_poly, years, by=NULL)
woj_poly_elections$invalid <- mapply(
function(y, n) woj_invalid$invalid[(woj_invalid$year == y) & (woj_invalid$woj == n)],
woj_poly_elections$year,
woj_poly_elections$abbr)
sum_labels <- data.frame(lat=200000, long=300000, year=c(2002, 2006, 2010, 2014), label=c(14.43, 12.70, 12.06, 17.47))
ggplot() +
facet_wrap(~year) +
geom_polygon(data=woj_poly_elections, aes(x=long, y=lat, group=id, fill=invalid*100), colour="black", size=0.25) +
geom_text(data=woj_elections, aes(x=long, y=lat, label=format(invalid*100, digits=2)), colour="white", fontface=2) +
geom_text(data=sum_labels, aes(x=long, y=lat, label=paste("ogółem: ", label)), colour="black", fontface=2) +
theme(axis.ticks = element_blank(),
axis.text.x = element_blank(),
axis.text.y = element_blank(),
panel.grid.minor=element_blank(),
panel.grid.major=element_blank(),
axis.title.x = element_blank(),
axis.title.y = element_blank(),
panel.border = element_blank(),
text = element_text(size=18),
legend.position = "bottom") +
scale_fill_gradient2('głosy nieważne [%]', low = "yellow", mid="red", high="black", midpoint=15, limits=c(5,25)) +
# ggtitle('Głosy nieważne w wyborach do sejmików województw')
ggsave(filename='sam_niew.svg', width=8, height=9)
l2=text
Data# data from:
# http://wybory2002.pkw.gov.pl/sejmik/gw1/index.html
# http://wybory2006.pkw.gov.pl/kbw/geoKraj.html?
# http://wybory2010.pkw.gov.pl/geo/pl/000000.html
# http://pkw.gov.pl/g2/oryginal/2015_03/e98502c393fb74140ee137cd863dc15c.xls
year,woj,invalid
2002,ds,0.1902
2006,ds,0.1249
2010,ds,0.1092
2014,ds,0.1811
2002,kp,0.1680
2006,kp,0.1364
2010,kp,0.1308
2014,kp,0.1868
2002,lb,0.1652
2006,lb,0.1330
2010,lb,0.1261
2014,lb,0.1960
2002,ld,0.1250
2006,ld,0.1356
2010,ld,0.1201
2014,ld,0.1716
2002,lu,0.1275
2006,lu,0.1172
2010,lu,0.1120
2014,lu,0.1658
2002,ma,0.1700
2006,ma,0.1460
2010,ma,0.1403
2014,ma,0.1554
2002,mp,0.1240
2006,mp,0.1148
2010,mp,0.1145
2014,mp,0.1669
2002,op,0.1230
2006,op,0.1200
2010,op,0.1104
2014,op,0.1825
2002,pd,0.1116
2006,pd,0.1030
2010,pd,0.0935
2014,pd,0.1496
2002,pk,0.1249
2006,pk,0.1234
2010,pk,0.1121
2014,pk,0.1601
2002,pm,0.1086
2006,pm,0.0967
2010,pm,0.1043
2014,pm,0.1785
2002,sk,0.1291
2006,sk,0.1297
2010,sk,0.1156
2014,sk,0.1672
2002,sl,0.1147
2006,sl,0.0987
2010,sl,0.0986
2014,sl,0.1520
2002,wn,0.1430
2006,wn,0.1352
2010,wn,0.1301
2014,wn,0.2036
2002,wp,0.1783
2006,wp,0.1664
2010,wp,0.1527
2014,wp,0.2298
2002,zp,0.1671
2006,zp,0.1221
2010,zp,0.1292
2014,zp,0.1946
|
Licencja
Ja, właściciel praw autorskich do tego dzieła, udostępniam je na poniższej licencji
Ten plik udostępniony jest na licencji Creative Commons CC0 1.0 Uniwersalna Licencja Domeny Publicznej. | |
Osoby, które współpracowały przy tworzeniu tego utworu przeniosły go do domeny publicznej poprzez zrezygnowanie ze wszystkich przysługujących im praw na obszarze całego świata z tytułu prawa autorskiego oraz wszystkich powiązanych i podobnych praw, w zakresie dopuszczalnym przez prawo. Możesz kopiować, zmieniać, rozprowadzać i wykonywać to dzieło, nawet wykorzystując do celów komercyjnych bez pytania o pozwolenie.
http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse |
Obiekty przedstawione na tym zdjęciu
przedstawia
20 lip 2015
Historia pliku
Kliknij na datę/czas, aby zobaczyć, jak plik wyglądał w tym czasie.
Data i czas | Miniatura | Wymiary | Użytkownik | Opis | |
---|---|---|---|---|---|
aktualny | 22:05, 25 lip 2015 | 720 × 810 (2,13 MB) | Attomir | Moved legend to the bottom | |
21:37, 25 lip 2015 | 900 × 675 (2,12 MB) | Attomir | User created page with UploadWizard |
Lokalne wykorzystanie pliku
Poniższa strona korzysta z tego pliku:
Globalne wykorzystanie pliku
Ten plik jest wykorzystywany także w innych projektach wiki:
- Wykorzystanie na de.wikipedia.org
Metadane
Niniejszy plik zawiera dodatkowe informacje, prawdopodobnie dodane przez aparat cyfrowy lub skaner użyte do wygenerowania tego pliku.
Jeśli plik był modyfikowany, dane mogą być częściowo niezgodne z parametrami zmodyfikowanego pliku.
Szerokość | 576pt |
---|---|
Wysokość | 648pt |