1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
\name{election}
\alias{election}
\title{Assign party members to seats}
\description{Create a layout for an election result in an assembly}
\usage{
election(seats,result,formula,colours = sample(rainbow(length(counts))))
}
\arguments{
\item{seats}{A data frame of x and y positions, row numbers and angles
(usually the output from the seats function).}
\item{result}{A data frame with party names and seat counts.}
\item{formula}{A formula with the party name column on the left and the
count column on the right. Think of the twiddle symbol as "got".}
\item{colours}{A vector of colours. If missing a random rainbow is used.
This may cause Green parties to show as red.}
}
\value{
A data frame including:
\item{x}{The x positions of the seats to be plotted on semi-circular
arcs.}
\item{y}{The y positions of the seats to be plotted on semi-circular
arcs.}
\item{r}{The row numbers for each seat.}
\item{theta}{The angle of each seat, going from pi to zero radians.}
\item{party}{The labels for the party holding each seat.}
\item{colour}{The colour that has been assigned to the party.}
}
\author{Barry Rowlingson}
\seealso{\link{seats}}
\examples{
# The EU parliament has 751 seats, and Wikipedia currently shows this
eu = structure(list(colour = c("#3399FF", "#F0001C", "#0054A5", "#FFD700",
"#990000", "#909090", "#32CD32", "#40E0D0"), party = c("EPP",
"S and D", "ECR", "ALDE", "GUE-NGL", "Non-Inscrits", "Greens-EFA",
"EFDD"), members = c(220L, 191L, 70L, 68L, 52L, 52L, 50L, 48L
)), .Names = c("colour", "party", "members"), row.names = c(NA,
-8L), class = "data.frame")
strasbourg = seats(751, 16)
eugov = election(strasbourg, eu, party~members, colours=eu$colour)
oldmar<-par(mar=c(2,4,4,2))
plot(eugov$x, eugov$y, col=eugov$colour, asp=1, pch=19, ylim=c(-2,2.5),
xlab="", ylab="", main="EU Parliament 2014", axes=FALSE)
legend(-0.7,-0.3,eu$party,fill=eu$colour)
par(oldmar)
# or using ggplot2
\dontrun{
require(ggplot2)
blank = theme(axis.line=element_blank(),
axis.text.x=element_blank(),
axis.text.y=element_blank(),
axis.ticks=element_blank(),
axis.title.x=element_blank(),
axis.title.y=element_blank(),
panel.background=element_blank(),
panel.border=element_blank(),
panel.grid.major=element_blank(),
panel.grid.minor=element_blank(),
plot.background=element_blank())
ggplot(eugov, aes(x=x,y=y,col=party)) + geom_point() + coord_fixed() + blank
}
}
\keyword{misc}
|
