elec88 {ade4} | R Documentation |

This data set gives the results of the presidential election in France in 1988 for each department and all the candidates.

data(elec88)

`elec88`

is a list of 10 components.

- tab
is a data frame with 94 rows (departments) and 9 variables (candidates)

- res
is the global result of the election all-over the country.

- lab
is a data frame with three variables:

`elec88$lab$dep`

a vector containing the names of the 94 french departments,`elec88$lab$reg`

a vector containing the names of the 21 French administraitve regions. and,`elec88$lab$reg.fac`

a factor with 21 levels defining the French administraitve regions.- area
is the data frame of 3 variables returning the boundary lines of each department. The first variable is a factor. The levels of this one are the row.names of tab. The second and third variables return the coordinates (x,y) of the points of the boundary line.

- contour
is a data frame with 4 variables (x1,y1,x2,y2)for the contour display of France

- xy
is a data frame with two variables (x,y) giving the position of the center for each department

- neig
is the neighbouring graph between departments, object of the class

`neig`

- nb
is the neighbouring graph between departments, object of the class

`nb`

- Spatial
is the map of the french departments in Lambert II coordinates, object of the class

`SpatialPolygons`

- Spatialcontour
is the map of France in Lambert II coordinates, object of the class

`SpatialPolygons`

Public data

This dataset is compatible with `presid2002`

and `cnc2003`

data(elec88) apply(elec88$tab, 2, mean) summary(elec88$res) pca1 <- dudi.pca(elec88$tab, scal = FALSE, scan = FALSE) if(adegraphicsLoaded()) { if(requireNamespace("sp", quiet = TRUE)) { data1 <- as.data.frame(as.numeric(rownames(elec88$tab) == "D25")) rownames(data1) <- row.names(elec88$Spatial) obj1 <- sp::SpatialPolygonsDataFrame(Sr = elec88$Spatial, data = data1) g1 <- s.Spatial(obj1, psub.text = "", plot = FALSE) g2 <- s.Spatial(obj1, psub.text = "", nb = elec88$nb, pnb.node.cex = 0, plot = FALSE) data3 <- as.data.frame(elec88$xy[, 1] + elec88$xy[, 2]) rownames(data3) <- row.names(elec88$Spatial) obj3 <- sp::SpatialPolygonsDataFrame(Sr = elec88$Spatial, data = data3) g3 <- s.Spatial(obj3, psub.text = "", plot = FALSE) data4 <- as.data.frame(pca1$li[, 1]) rownames(data4) <- row.names(elec88$Spatial) obj4 <- sp::SpatialPolygonsDataFrame(Sr = elec88$Spatial, data = data4) g4 <- s.Spatial(obj4, psub.text = "F1 PCA", plot = FALSE) G <- ADEgS(list(g1, g2, g3, g4), layout = c(2, 2)) } } else { par(mfrow = c(2,2)) plot(elec88$area[,2:3], type = "n", asp = 1) lpoly <- split(elec88$area[,2:3], elec88$area[,1]) lapply(lpoly, function(x) {points (x,type = "l");invisible()}) polygon(elec88$area[elec88$area$V1=="D25", 2:3], col = 1) area.plot(elec88$area, graph = elec88$neig, lwdg = 1) polygon(elec88$area[elec88$area$V1=="D25", 2:3], col = 1) area.plot(elec88$area, val = elec88$xy[,1] + elec88$xy[,2]) area.plot(elec88$area, val = pca1$li[,1], sub = "F1 PCA", csub = 2, cleg = 1.5) par(mfrow = c(1,1)) }

[Package *ade4* version 1.7-4 Index]