elec88: Electoral Data

In ade4: Analysis of Ecological Data : Exploratory and Euclidean Methods in Environmental Sciences

Description

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

Usage

data(elec88)

Format

elec88 is a list of 7 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

Source

Public data

See Also

This dataset is compatible with presid2002 and cnc2003

Examples

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))
}

ade4 documentation built on May 2, 2019, 5:50 p.m.