Sunday, May 4, 2014

European MEP Data

Pretty soon we will be having European Elections. I cannot tell when exactly, that depends on country. Over here the elections get a some attention, which is how I ran into data from votewatch.eu on voting of MEPs. That was just too interesting, so I made some plots.

Data

Data describe how often MEPs voted what in the European Parliament. For each MEP the number of votes, percentages Yes, No, Abstain, number of elections and number of elections not voted. A description of the data can be found in this pdf.
From practical point of view there is a spreadsheet. I did some preprocessing on it. Two MEPs had quotes in their names, which did not play nice with read.xls, these quotes were removed. The column headers were a bit long, these were shortened. Finally, read.xls converts to .csv, then reads the data. In the .csv the data are rounded as you see them in the .xls. All percentages were originally rounded to whole numbers but internally as reals. Decimals were added in the display so they could be used later on. The reading itself is fairly basic.library(gdata)r1 <- read.xls('votewatch-europe-yes-no-votes-data-11-december-2013.preprocessed.xls', stringsAsFactors=TRUE)tail(r1,n=2) Last.Name First.Name Country Group National.Party765 FARAGE Nigel United Kingdom EFD United Kingdom Independence Party766 BLOOM Godfrey United Kingdom EFD United Kingdom Independence Party Sdate TotalDone pYES pNO pAbstain TotalPossible pNoVote765 2009-07-14 323 1.238390 86.37771 12.3839 514 20.83333766 2009-07-14 216 0.925926 77.77778 21.2963 514 29.18033r1$Date <- as.Date(r1$Sdate)

European Parliament

As can be seen from the data, each MEP has a number of defining properties. Godfrey Bloom is from the UK, within Europe he is member of the EFD (Europe of Freedom and Democracy) group, within the UK he is member of UKIP. As far as I understand membership of these groups may change after the elections, but in the past years it was EFD. Read wikipedia: EP groups for more details. Not all groups are equal, EPP is clearly the largest. NI is Non-Inscrits (abbreviated NI; English: Non-Attached Members). S&D gets relevelled, because that improves the Mosaic plots later.

r1$Group <- relevel(r1$Group,'S&D')

dotchart(as.numeric(table(r1$Group)),

labels=levels(r1$Group),

xlim=c(0,300))

The number of parties within each group varies too. S&D gets representations from every country, while others much less so. See also wikipedia 2009 elections

Finally, number of MEPs per country and group. France and Germany have quite a big part in EPP. The UK is the one country not present in EPP, however, they are very big in ECR. I wonder if they would feel better represented if they were closer to the power of EPP?

mosaicplot(~Group+Country,data=r1,

color=rainbow(nlevels(r1$Country)/2),

main='Number of MEPs',

las=2,cex=.7)

Voting

Voting for this part of the data is 'final legislation'. There are many more votes in the second page of the spreadsheet. First we make some variables to ease our plotting.

r1$nYES=round(r1$pYES*r1$TotalDone/100)

r1$nNO=round(r1$pNO*r1$TotalDone/100)

r1$nAbstain=round(r1$pAbstain*r1$TotalDone/100)

r1$nNoVote=round(r1$pNoVote*r1$TotalPossible/100)

r1$nNotIn <- r1$TotalPossible-r1$nNoVote-r1$TotalDone

r1$pnNotYN <- 100*with(r1,

(nNotIn+nNoVote+nAbstain)/TotalPossible)

library(lattice)

The first plot shows the proportion of votes where MEPs voted neither Yes nor No. It would seem EPP, S&D and ALDE/ADLE are disciplined voters. In contrast, the independents and EFD got many MEPs who don't use their votes.

densityplot(~ pnNotYN | Group,

from=0,to=100,

data=r1,

xlab='MEPs Percentage votes abstained, not voted or not present',

main="MEP's neither Yes nor No")

Finally, the yes voters. It would seem EPP, S&D and ALDE/ADLE support most final legislation. I imagine that is because they created most of it too. Certainly something opposed by EPP as block, will find it difficult to get a majority.

No comments:

Post a Comment

Wiekvoet

Wiekvoet is about R, JAGS, STAN, and any data I have interest in. Topics range from sensometrics, statistics, chemometrics and biostatistics. For comments or suggestions please email me at wiekvoet at xs4all dot nl.