Results of the French presidential elections of 2002

Description

presid2002 is a list of two data frames tour1 and tour2 with 93 rows ( 93 departments from continental Metropolitan France) and, 4 and 12 variables respectively .

Usage

data(presid2002)

Format

tour1 contains the following arguments:
the number of registered voters (inscrits); the number of abstentions (abstentions); the number of voters (votants); the number of expressed votes (exprimes) and, the numbers of votes for each candidate: Megret, Lepage, Gluksten, Bayrou, Chirac, Le_Pen, Taubira, Saint.josse, Mamere, Jospin, Boutin, Hue, Chevenement, Madelin, Besancenot.

tour2 contains the following arguments:
the number of registered voters (inscrits); the number of abstentions (abstentions); the number of voters (votants); the number of expressed votes (exprimes) and, the numbers of votes for each candidate: Chirac and Le_Pen.

Source

Site of the ministry of the Inerior, of the Internal Security and of the local liberties
http://www.interieur.gouv.fr/avotreservice/elections/presid2002/

See Also

This dataset is compatible with elec88 and cnc2003

Examples

data(presid2002)
all((presid2002$tour2$Chirac + presid2002$tour2$Le_Pen) == presid2002$tour2$exprimes)
## Not run: 
data(elec88)
data(cnc2003)
w1 = area.util.class(elec88$area, cnc2003$reg)

par(mfrow = c(2,2))
par(mar = c(0.1,0.1,0.1,0.1))

area.plot(w1)
w = scale(elec88$tab$Chirac)
s.value(elec88$xy, w, add.plot = TRUE)
scatterutil.sub("Chirac 1988 T1", csub = 2, "topleft")

area.plot(w1)
w = scale(presid2002$tour1$Chirac/ presid2002$tour1$exprimes)
s.value(elec88$xy, w, add.plot = TRUE)
scatterutil.sub("Chirac 2002 T1", csub = 2, "topleft")

area.plot(w1)
w = scale(elec88$tab$Mitterand)
s.value(elec88$xy, w, add.plot = TRUE)
scatterutil.sub("Mitterand 1988 T1", csub = 2, "topleft")

area.plot(w1)
w = scale(presid2002$tour2$Chirac/ presid2002$tour2$exprimes)
s.value(elec88$xy, w, add.plot = TRUE)
scatterutil.sub("Chirac 2002 T2", csub = 2, "topleft")

## End(Not run)

Worked out examples

> library(ade4)
> ### Name: presid2002
> ### Title: Results of the French presidential elections of 2002
> ### Aliases: presid2002
> ### Keywords: datasets
> 
> ### ** Examples
> 
> data(presid2002)
> all((presid2002$tour2$Chirac + presid2002$tour2$Le_Pen) == presid2002$tour2$exprimes)
[1] TRUE
> 
> data(elec88)
> data(cnc2003)
> w1 = area.util.class(elec88$area, cnc2003$reg)
> 
> par(mfrow = c(2,2))
> par(mar = c(0.1,0.1,0.1,0.1))
> 
> area.plot(w1)

> w = scale(elec88$tab$Chirac)
> s.value(elec88$xy, w, add.plot = TRUE)

> scatterutil.sub("Chirac 1988 T1", csub = 2, "topleft")

> 
> area.plot(w1)

> w = scale(presid2002$tour1$Chirac/ presid2002$tour1$exprimes)
> s.value(elec88$xy, w, add.plot = TRUE)

> scatterutil.sub("Chirac 2002 T1", csub = 2, "topleft")

> 
> area.plot(w1)

> w = scale(elec88$tab$Mitterand)
> s.value(elec88$xy, w, add.plot = TRUE)

> scatterutil.sub("Mitterand 1988 T1", csub = 2, "topleft")

> 
> area.plot(w1)

> w = scale(presid2002$tour2$Chirac/ presid2002$tour2$exprimes)
> s.value(elec88$xy, w, add.plot = TRUE)

> scatterutil.sub("Chirac 2002 T2", csub = 2, "topleft")

> 
> 
> 
> 
>