Résidus des votes pour Nicolas Sarkozy (2nd tour)

Exemples > Election présidentielle française de 2012 > > Résidus des votes pour Nicolas Sarkozy (2nd tour)

Carte des résidus du modèle de régression linéaire multiple

Attention, le chargement de la carte nationale peut prendre 2 à 3 minutes

(C) Carte réalisée par Joseph Saint Pierre et David Tsang Hin Sun

Les données:

Résultats élection présidentielle de 2012 par communes:
GeoJson + Code Insee:
Après un formatage du code insee dans le premier fichier, il a fallu « merger » les 2 tableaux à partir de la clé « code_insee ».
Nous avons obtenu un seul tableau de type « sp » spatial data frame (avec le contour de chaque commune)

Puis,nous avons utilisé R et différents packages (geojson,spatial data frame), ainsi que les outils binaires de rgdal (topojson,ogr2ogr), afin de générer un geojson, topojson et pour finir une carte « leaflet » basée sur openstreetmap.

Voici un exemple de script R:


library(leafletR)
library(rgdal)
library(rgeos)
library(sp)

map=readOGR(« estp.geo », « OGRGeoJSON »)

# —– Create the cuts
cuts<-round(quantile(map$rp2Sark, probs = seq(0, 1, 0.10), na.rm = FALSE), 0)
#cuts[1]

# —– Fields to include in the popup
popup<-c(« population », »Inscrits2″, « nom_comm », « PSARKOZY1 », « p2Sark », « rp2Sark »)

# —– Gradulated style based on an attribute
sty<-styleGrad(prop= »rp2Sark », breaks=cuts, right=FALSE, style.par= »col »,
style.val=rev(heat.colors(10)), leg= »Estimation SARKOZY 2012″, lwd=1)

# —– Create the map and load into browser
map<-leaflet(data= »estSark.topojson », dest= »Leaflet », style=sty,
title= »estpSARKO », base.map= »osm »,
incl.data=TRUE, popup=popup)

# —– to look at the map you can use this code
#browseURL(map)