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.
is a data frame with 94 rows (departments) and 9 variables (candidates)
is the global result of the election all-over the country.
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.
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.
is a data frame with 4 variables (x1,y1,x2,y2)for the contour display of France
is a data frame with two variables (x,y) giving the position of the center for each department
is the neighbouring graph between departments, object of the class neig
is the neighbouring graph between departments, object of the class nb
is the map of the french departments in Lambert II coordinates, object of the class SpatialPolygons
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)) }