{"word_count": 209, "character_count": 2329}
L'autre jour, les décodeurs publiaient sur le site du Monde un article sur l'utilisation des graphiques en base 100,Je reprends le commentaireCelui-ci indique, sans appel selon Mme Le Pen, le déclin des économies françaises, italiennes et espagnoles face à l’industrie allemande. Marine Le Pen n’hésite ainsi pas à affirmer que le déclin de la production française est lié à l’introduction de la monnaie unique en 2001.On peut reconstruire le graphique assez facilement, les données étant en ligne sur https://data.oecd.org/base=read.table(loc,sep=",",header=TRUE)extract=function(nom="FRA"){b=base[base[,1]==nom,c("TIME","Value")]names(b)=c("TIME",nom)return(b)}B=extract("FRA")B=merge(B,extract("DEU"),all.x=TRUE,all.y=TRUE)B=merge(B,extract("ESP"),all.x=TRUE,all.y=TRUE)B=merge(B,extract("ITA"),all.x=TRUE,all.y=TRUE)dim(B)B$TIMEB$t=seq(1950+1/8,2016+7/8,by=1/4)plot(B$t,B$FRA,type="l",col="blue",lwd=2)i=which(B$T=="2001-Q1")Bi=Bfor(j in 2:5) Bi[,j]=Bi[,j]*100/Bi[i,j]plot(B$t,Bi$FRA,type="l",col="blue",lwd=2,ylim=range(Bi[which(B$T=="1990-Q1"):which(B$T=="2016-Q4"),2:5],na.rm=TRUE),xlim=c(1990,2020))text(2019,Bi$FRA[max(which(is.na(Bi$FRA)==FALSE))],"FRA",col="blue")lines(B$t,Bi$DEU,lwd=2)text(2019,Bi$DEU[max(which(is.na(Bi$DEU)==FALSE))],"DEU")lines(B$t,Bi$ESP,lwd=2,col="red")text(2019,Bi$ESP[max(which(is.na(Bi$ESP)==FALSE))],"ESP",col="red")lines(B$t,Bi$ITA,lwd=2,col="green")text(2019,Bi$ITA[max(which(is.na(Bi$ITA)==FALSE))],"ITA",col="green")Maintenant, on peut aussi changer la référence de la base 100. Par exemple, la victoire de la France à la Coupe du Monde Footi=which(B$T=="1998-Q2")Damned,Celui-ci indique, le déclin des économies françaises, italiennes et espagnoles face à l’industrie allemande. Ce déclin de la production française est lié à la victoire de la France à la Coupe du Monde de Football.ou la dernière victoire de la France à l'Eurovisioni=which(B$T=="1977-Q3")Damned,Celui-ci indique, le déclin des économies françaises et espagnoles face à l’industrie allemande. Ce déclin de la production française est lié à la victoire de la France à l'Eurovision.ou encore, la naissance de Mme Le Peni=which(B$T=="1968-Q3")Damned,Celui-ci indique, le déclin de l'économie française face aux industries allemande et espagnole. Ce déclin de la production française est lié à la naissance de Mme Le Pen.