Kuntavaalit 2012

Tämä sivu on tutkimus. Sivutunniste: Op_fi3205
Moderaattori:Jouni (katso kaikki) Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa {{#opasnet_base_link:Op_fi3205}} Huom! Käytät vanhoja parametreja (todennäköisesti stub). Käytä mieluummin parametria edistyminen = Raakile.

Kysymys

Mitkä ovat kuntavaalikoneen 2012 tulokset ja mitä niistä voi päätellä?

Vastaus

Data ja koodit on saatu Juha Törmäseltä. Kaupallinen käyttö on kielletty!

Perustelut

Data

Data on saatu Helsigin Sanomien vaalikoneesta. Vastaukset on arvotettu pisteillä 1 (täysin samaa mieltä) - 5 (täysin eri mieltä). Kysymykset tässä datassa (kaikkia kysymyksiä ei ole mukana) ovat:

1. Kaupunki
2. Puolue
3. Sukunimi
4. Etunimi
5. Ikä
6. Nettisivun osoite
7. Facebook-sivu
8. Twitter-sivu
9. Kotikuntani palveluita tulisi ulkoistaa entistä enemmän yksityisten yritysten tuotettavaksi.
10. Jos kunnassani tulee eteen tilanne, jossa on välttämätöntä joko leikata kunnallisia palveluita ja sosiaalietuuksia tai korottaa veroja, veronkorotukset ovat parempi vaihtoehto.
11. Suuret tuloerot ovat hyväksyttäviä, jotta erot ihmisten lahjakkuudessa ja ahkeruudessa voidaan palkita.
12. Nykyisen kaltaiset kunnalliset palvelut ja sosiaalietuudet ovat pitemmän päälle liian raskaita julkiselle taloudelle.
13. Kotikuntani päätöksenteossa pitää vaalia perinteisiä suomalaisia arvoja.
14. Eduskunta hyväksyi vuonna 2009 lain, joka mahdollistaa parisuhteensa rekisteröineille homo- ja lesbopareille perheen sisäisen adoption. Homo- ja lesboparien pitää saada oikeus myös perheen ulkopuoliseen adoptioon.
15. Jos valtio tarjoaa turvapaikanhakijoiden vastaanottokeskuksen perustamista kotikuntani keskustaan, tarjous pitää hyväksyä.
16. Kouluissa kohdellaan koululaisia liian lepsusti. Tiukempi kuri tekisi kouluista parempia.
17. Talouskasvu ja työpaikkojen luominen tulisi asettaa ympäristöasioiden edelle, silloin kun nämä kaksi ovat keskenään ristiriidassa.
18. Kaikessa kotikuntani päätöksenteossa pitäisi arvioida vaikutukset ympäristöön ja tarvittaessa luopua ympäristölle haitallisista hankkeista.
19. Kotikuntani palveluita tulisi ulkoistaa entistä enemmän yksityisten yritysten tuotettavaksi.
20. Jos kunnassani tulee eteen tilanne, jossa on välttämätöntä joko leikata kunnallisia palveluita ja sosiaalietuuksia tai korottaa veroja, veronkorotukset ovat parempi vaihtoehto.
21. Suuret tuloerot ovat hyväksyttäviä, jotta erot ihmisten lahjakkuudessa ja ahkeruudessa voidaan palkita.
22. Nykyisen kaltaiset kunnalliset palvelut ja sosiaalietuudet ovat pitemmän päälle liian raskaita julkiselle taloudelle.
23. Kotikuntani päätöksenteossa pitää vaalia perinteisiä suomalaisia arvoja.
24. Eduskunta hyväksyi vuonna 2009 lain, joka mahdollistaa parisuhteensa rekisteröineille homo- ja lesbopareille perheen sisäisen adoption. Homo- ja lesboparien pitää saada oikeus myös perheen ulkopuoliseen adoptioon.
25. Jos valtio tarjoaa turvapaikanhakijoiden vastaanottokeskuksen perustamista kotikuntani keskustaan, tarjous pitää hyväksyä.
26. Kouluissa kohdellaan koululaisia liian lepsusti. Tiukempi kuri tekisi kouluista parempia.
27. Talouskasvu ja työpaikkojen luominen tulisi asettaa ympäristöasioiden edelle, silloin kun nämä kaksi ovat keskenään ristiriidassa.
28. Kaikessa kotikuntani päätöksenteossa pitäisi arvioida vaikutukset ympäristöön ja tarvittaessa luopua ympäristölle haitallisista hankkeista.

{{#opasnet_base_link:Op_fi3205}}

Kaava

+ Näytä koodi- Piilota koodi library(OpasnetUtils) library(xtable) piirra_ehdokkaat <- function(scores, groups, group_colors, filter=T, filename=NA, names=NA, urls=NA, ...) { # Käytetään ks-pakettia joukkojen arvioimiseen require('ks') # SVG? draw_svg <- !is.na(filename) if (draw_svg) { require('RSVGTipsDevice') devSVGTips(filename, toolTipMode=2, width=9, height=9) } # Ehdokkaiden värit lev <- levels(groups) cols <- group_colors[groups] # Lisätään pieni määrä satunnaisuutta, jotta ehdokkaat eivät mene päällekäin scores <- scores + runif(length(scores), -0.05, 0.05) # Filteröidään myös rivit, joilla ei ole arvoja tai väriä filter <- filter & rowSums(is.na(scores)) == 0 & cols!='#FFFFFF00' # Ensin: piirretään pohjakuvaaja par(mar=c(6,4,4,6)+0.1, xpd=T) xlimit <- c(min(scores[,1], na.rm=T), max(scores[,1], na.rm=T)) ylimit <- c(min(scores[,2], na.rm=T), max(scores[,2], na.rm=T)) plot(1, type="n", xlim=xlimit, ylim=ylimit, bty="n", ...) if (draw_svg) setSVGShapeURL("http://www.loitto.com/tilastot/hsvaalikone12/") mtext("Poliitikkokartat - http://www.loitto.com/tilastot/hsvaalikone12/", side=1, line=5) legend(xlimit[2]+0.1, ylimit[2], legend=lev[group_colors!='#FFFFFF00'], col=group_colors[group_colors!='#FFFFFF00'], pch=15, cex=1.2, pt.cex=2, y.intersp=1.25) # Sitten: piirretään jokaiselle puolueelle alue for (i in 1:length(lev)) { # Haetaan filtteriin sopivat vain tämän puolueen ehdokkaat show <- filter & groups==lev[i] # jos ainakin kolme ehdokasta... if (sum(show) >= 3) { # piirretään estimaatti 50% alueesta kernel smoothing -tekniikoiden avulla H <- Hpi(scores[show,]) hhat <- kde(scores[show,], H=H) if (draw_svg) setSVGShapeToolTip(title=lev[i]) plot(hhat, cont=c(50), add=T, col=group_colors[i], drawlabels=F, lwd=2) } } # Lopuksi: piirretään lopullinen kuvaaja tooltippeineen if (draw_svg) { # pisteet yksi kerrallaan for (i in 1:nrow(scores)) { if (filter[i]) { # lisää ehdokkaalle url jos mahdollista if (!is.na(urls) && urls[i] != '') { setSVGShapeToolTip(desc1=paste(names[i], groups[i]), desc2=urls[i]) setSVGShapeURL(urls[i]) } else { setSVGShapeToolTip(desc1=paste(names[i], groups[i])) } points(scores[i,1], scores[i,2], pch=1, cex=1.2, col=cols[i]) } } } else { # pisteet nopeasti samalla kertaa points(scores[filter,], col=cols[filter], pch=1, ...) } if (draw_svg) dev.off() } require(psych) #so#urce('visualization.R') # visualisointia varten # Luetaan siivottu HS-data, missä # profiilit sarakkeissa 1-8 # vastaukset kysymyksiin sarakkeissa 9-18 pisteillä 1-5 (HS:n numerointi) # csv-tiedoston merkistökoodaus utf-8 #ehdokas <- re#ad.csv2('ehdokasvastaukset.csv') ehdokas <- tidy(op_baseGetData("opasnet_base", "Op_fi3205")) print(xtable(ehdokas[1:10, ]), type = 'html') # Haetaan ensimmäisen 8 kysymyksen arvot erilliseen matriisiin # Kysymykset 9-10 mittaavat "vihreyttä", mikä ei kiinnosta tällä kertaa # Voit kokeilla myös niiden kanssa; # vihreys korreloi suomessa liberaaliuteen, joten akselit menevät sekaisin #val <- ehdokas[,9:16] val <- ehdokas[, c("Homoparien adoptio-oikeus", "Koulukuri", "Palvelujen raskaus", "Suomalaiset arvot", "Talouden kiristäminen", "Talouskasvu vai ympäristö", "Tuloerot", "Ulkoistaminen", "Vastaanottokeskus", "Ympäristövaikutusten arviointi")] for(i in 1:ncol(val)) {val[,i] <- as.numeric(as.character(val[,i]))} print(xtable(val[1:10, ]), type = 'html') # Ehdokkaiden nimet nimet <- paste(ehdokas[,"Etunimi"], ehdokas[,"Sukunimi"]) # Lasketaan faktorianalyysi f <- fa(val, nfactors=2, fm="pa", rotate="varimax") f # Värjätään kiinnostavat puolueet p.lev <- levels(ehdokas[,2]) p.col <- rep('#FFFFFF00', length(p.lev)) # oletus: läpinäkyvä p.col[p.lev=='KOK'] <- '#0000FF' p.col[p.lev=='SDP'] <- '#FF0000' p.col[p.lev=='KESK'] <- '#00FF00' p.col[p.lev=='PS'] <- '#000000' p.col[p.lev=='VIHR'] <- '#00AAAA' # punavihersokeiden pelastukseksi! p.col[p.lev=='VAS'] <- '#9F1E24' p.col[p.lev=='RKP'] <- '#FBD700' p.col[p.lev=='KD'] <- '#E58E00' e.col <- p.col[ehdokas[,2]] # Piirretään joka kaupunki svg-kuvaksi piirra <- levels(ehdokas[,1]) for (k in piirra) { print(paste("Piirretään", k)) filename <- paste(k, '.svg', sep='') # Erillinen funktio hoitaa visualisoinnin piirra_ehdokkaat(scores=f$scores, groups=ehdokas[,2], group_colors=p.col, names=nimet, urls=e[,6], xlab="Vasemmisto - Oikeisto", ylab="Liberaali - Konservatiivi", filter=(e[,1]==k), main=k, filename=filename) }

Katso myös

• Datavaalit 2012

Aiheeseen liittyviä tiedostoja

<mfanonymousfilelist></mfanonymousfilelist>