Représentation du taux d’abstentions en France

library(maps)
library(rgdal)  # Lire et reprojeter les cartes
library(sp)
library(plotrix)   # Créer des échelles de couleurs
library(classInt)  # Affecter ces couleurs aux données

# Lecture des communes
commune <- readOGR(dsn="F:/M2 MIMSE/Semestre 2/Projet informatique/COMMUNE", layer="COMMUNE")


# Pour le premier tour


# Jointure entre tour1bis et commune pour récupérer les coordonnées géographiques pour le premier tour
communes <- merge(commune,tour1bis[,c(3,20)], by.x='INSEE_COM',by.y='Code.INSEE')


# Lecture des limites des communes
frontiere_commune <- readOGR(dsn="F:/M2 MIMSE/Semestre 2/Projet informatique/COMMUNE", layer="LIMITE_COMMUNE")
frontiere <- frontiere_commune[frontiere_commune$NATURE %in% 'Limite de commune',]

europe <- readOGR(dsn="F:/M2 MIMSE/Semestre 2/Projet informatique/ne_110m_admin_0_countries", layer="ne_110m_admin_0_countries")
europe <- europe[europe$region_un=="Europe",]


col <- findColours(classIntervals(
            communes@data[,19], 100, style="quantile"),
            smoothColors("white",98,"red"))

# Légende
leg <- findColours(classIntervals(
            round(communes@data[,19]),6,style="quantile"),
            smoothColors("white",3,"red"),
            under="moins de", over="plus de", between="–",
            cutlabels=FALSE)

# Projection en Lambert 93
europe <- spTransform(europe, CRS("+init=epsg:2154"))

# Traçage de la carte
plot(frontiere,  col="#FFFFFF")
plot(europe,      col="#E6E6E6", border="#AAAAAA",lwd=1, add=TRUE)
plot(frontiere,  col="#D8D6D4", lwd=6, add=TRUE)
plot(communes,col=col, border=col,lwd=.1, add=TRUE)
title(main = "Taux d'abstentions par commune pour le premier tour", sub= "Elections municipales 2008")

# Affichage de la légende
legend("bottomleft",fill=attr(leg, "palette"), cex=0.8,
    legend=gsub("\\.",",",names(attr(leg,"table"))),
    title = "Taux d'abstention :")




# Pour le deuxième tour

# Jointure entre tour2bis et commune pour récupérer les coordonnées géographiques pour le deuxième tour
communes2 <- merge(commune,tour2bis[,c(3,20)], by.x='INSEE_COM',by.y='Code.INSEE')

col2 <- findColours(classIntervals(
            communes2@data[,19], 100, style="quantile"),
            smoothColors("white",98,"red"))

# Légende
leg2 <- findColours(classIntervals(
            round(communes2@data[,19]),6,style="quantile"),
            smoothColors("white",3,"red"),
            under="moins de", over="plus de", between="–",
            cutlabels=FALSE)

# Projection en Lambert 93
europe <- spTransform(europe, CRS("+init=epsg:2154"))

# Traçage de la carte
plot(frontiere,  col="#FFFFFF")
plot(europe,      col="#E6E6E6", border="#AAAAAA",lwd=1, add=TRUE)
plot(frontiere,  col="#D8D6D4", lwd=6, add=TRUE)
plot(communes,col=col2, border=col2,lwd=.1, add=TRUE)
title(main = "Taux d'abstentions par commune pour le deuxième tour", sub= "Elections municipales 2008")

# Affichage de la légende
legend("bottomleft",fill=attr(leg2, "palette"), cex=0.8,
    legend=gsub("\\.",",",names(attr(leg2,"table"))),
    title = "Taux d'abstention :")