UKHouseOfCommons | R Documentation |
Electoral returns, selected constituencies, 1992 general election for the British House of Commons
data(UKHouseOfCommons)
A data frame with 521 observations on the following 12 variables.
constituency
a character vector, name of the House of Commons constituency
county
a character vector, county of the House of Commons constituency
y1
a numeric vector, log-odds of Conservative to LibDem vote share
y2
a numeric vector, log-odds of Labor to LibDem vote share
y1lag
a numeric vector, y1
from previous election
y2lag
a numeric vector, y2
from previous election
coninc
a numeric vector, 1 if the incumbent is a Conservative, 0 otherwise
labinc
a numeric vector, 1 if the incumbent is from the Labor Party, 0 otherwise
libinc
a numeric vector, 1 if the incumbent is from the LibDems, 0 otherwise
v1
a numeric vector, Conservative vote share (proportion of 3 party vote)
v2
a numeric vector, Labor vote share (proportion of 3 party vote)
v3
a numeric vector, LibDem vote share (proportion of 3 party vote)
These data span only 521 of the 621 seats in the House of Commons at the time of 1992 election. Seats missing either a Conservative, Labor, or a LibDem candidate appear to have been dropped.
The original Katz and King data set does not have case labels. I used matches to an additional data source to recover a set of constituency labels for these data; labels could not recovered for two of the constituencies.
Jonathan Katz; Gary King. 1999. "Replication data for: A Statistical Model of Multiparty Electoral Data", http://hdl.handle.net/1902.1/QIGTWZYTLZ
Katz, Jonathan and Gary King. 1999. “A Statistical Model for Multiparty Electoral Data”. American Political Science Review. 93(1): 15-32.
Jackman, Simon. 2009. Bayesian Analysis for the Social Sciences. Wiley: Chichester. Example 6.9.
data(UKHouseOfCommons)
tmp <- UKHouseOfCommons[,c("v1","v2","v3")]
summary(apply(tmp,1,sum))
col <- rep("black",dim(tmp)[1])
col[UKHouseOfCommons$coninc==1] <- "blue"
col[UKHouseOfCommons$labinc==1] <- "red"
col[UKHouseOfCommons$libinc==1] <- "orange"
library(vcd)
vcd::ternaryplot(tmp,
dimnames=c("Cons","Lab","Lib-Dem"),
labels="outside",
col=col,
pch=1,
main="1992 UK House of Commons Election",
cex=.75)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.