In rOpenGov/datavaalit: Finnish Parliamentary Monitoring Toolkit for R

Eduskunnan äänestysdata

Esimerkkejä eduskunnan äänestysten hakemiseen biomi.org:in rajapinnalta.

Hae haluamasi edustajan äänestyksiä:

library(sorvi)
paavo <- GetEdustajanAanestykset('Lipponen Paavo')
head(paavo)

Äänestysten tunnisteet ovat muotoa a{äänestyksen numero}_{istunnon numero}-{vuosi}. Jos tiedossa on äänestyksen tunnus, niin tiedot edustajittain löytyvät seuraavasti. Otetaan esimerkiksi Lex Karpela-äänestys tekijänoikeuslain muuttamiseksi (äänestys 1, istunto 100, vuosi 2005):

#aanestysnro <- 'a3_80-2011'
aanestysnro <- 'a1_100-2005'
aanestys <- GetEdustajaData(aanestysnro)

Saatavilla olevat äänestysten tunnukset voi listata seuraavasti:

aanestykset <- GetParliamentVotes()

Puoluekohtainen taulukko äänestyskäyttäytymisestä annetussa äänestyksessä:

table(aanestys$valinta, aanestys$puolue)

Visualisoi puolueiden kannat äänestyksessä. Voit kokeilla samaa esimerkkiä eri äänestyksille vuorovaikutteisesti Opasnetissä:

library(ggplot2)
theme_set(theme_bw(40))
ggplot(aanestys, aes(x = puolue, weight = 1, fill = valinta)) + 
    geom_bar(position = "stack") + 
        ggtitle(paste("Äänestystulos äänestyksessä", aanestysnro)) +
        scale_y_continuous("Äänimäärä") +
        scale_x_discrete("Puolue")