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 :")