{"word_count": 285, "character_count": 2740}
Les 100 plus grosses fortunes de France ont accumulé une fortune de 257 milliards d'euros en 2014 ! En pleine crise économique, cette somme est en progression de 10% par rapport à 2013. Pour illustrer ces inégalités croissantes qui traversent la société et pour leur donner une dimension spatiale, voici donc la carte des départements moins riches que nos riches. Pour cela, j'ai comparé le PIB départemental (richesse produite sur une année) et la richesse accumulé par les 4 plus grandes fortunes de France. Si cette carte est discutable sur le plan méthodologique, puisqu'elle met en relation un flux (la production de richesse par les départements au cours d'une année) et un stock (le patrimoine des 4 plus grandes fortunes françaises), elle illustre néanmoins efficacement la captation de richesses démesurée par quelques uns au détriment du plus grand nombre. Ceci confirme la prémonition piquante du milliardaire Warren Buffet qui, interviewé en 2005 sur CNN, déclarait : «Il y a une lutte des classes, mais c’est ma classe, la classe des riches qui mène cette lutte, et nous sommes en train de la gagner». A méditer...Voici une seconde version de la carteVoici ci dessous le code source, les données et la carte  animée générée en R.# IMPORT DU FOND DE CARTE, DES DONNEES et JOINTURElibrary(maptools)fdc&#60;-readShapeSpatial("geom/departements.shp")colnames(fdc@data)[1]&#60;-"id"fdc &#60;- fdc[nchar(as.vector(fdc@data$id))==5,]dataPIB&#60;-read.csv( "data/PIB.csv",header=TRUE,sep=",",dec=".",encoding="UTF8",)colnames(dataPIB)[1]&#60;-"id"fdc@data = data.frame(fdc@data, dataPIB[match(fdc@data[,"id"], dataPIB[,"id"]),])# CREATION DE L'INDICEdataRICHES&#60;-read.csv( "data/riches.csv",header=TRUE,sep=",",dec=".",encoding="UTF8",)plotMap&#60;-function(rank){ fdc@data$var&#60;-ifelse(fdc@data$PIB_2011-dataRICHES[rank,"Fortune_euros"] &#62;= 0,"plus","moins")fdc@data$var&#60;-as.factor(fdc@data$var)levels(fdc@data$var)colours &#60;- c("black","white")fdc@data$col&#60;-as.factor(fdc@data$var)levels(fdc@data$col)&#60;-colourscols&#60;-as.character(fdc@data$col)plot(fdc, col=cols,border="#FEE08B",lwd=0.1)par(xpd=TRUE)nb&#60;-length(fdc@data$var[fdc@data$var=="moins"])maptitle&#60;-paste(nb," départements sont moins riches que\n",dataRICHES[rank,"nom"], " (goupe ",dataRICHES[rank,"soc"],")\n",rank,"e fortune de France",sep="")text(bbox(fdc)[1],bbox(fdc)[4],maptitle,adj=c(0,0),cex=2.2)}# CREATION DE LA CARTE ANIMEEcarte.ani &#60;- function() {for (i in 19:1) {plotMap(i)    i&#60;-i-1  }}library(animation)saveGIF(carte.ani(), interval = 1.2, autobrowse = FALSE, movie.name = "carteAnim.gif",  outdir = paste(getwd(), "/resul", sep = ""), ani.height = 700, ani.width = 1000)[Téléchargez les données et le fond de carte]