Donnees telechargees depuis: http://www.lemonde.fr/les-decodeurs/visuel/2017/05/26/presidentielle-2017-visualisez-80-jours-de-temps-de-parole_5134202_4355770.html

setwd("~/data/TempsParolePresidentielle2017/")
d<-read.table("data.csv", h=T, sep=",")
summary(d)
##                    periode              media       tempsparole   
##  1 - 12 f<c3><a9>vrier : 253   BFM Business: 121   Min.   : -119  
##  10 - 17 avril         : 253   BFMTV       : 121   1st Qu.:    8  
##  13 - 19 f<c3><a9>vrier: 253   C8          : 121   Median :  321  
##  13 - 20 mars          : 253   Canal+      : 121   Mean   : 1999  
##  18 - 21 avril         : 253   Cnews       : 121   3rd Qu.: 1713  
##  2 - 9 avril           : 253   Europe 1    : 121   Max.   :48245  
##  (Other)               :1265   (Other)     :2057                  
##          candidat   
##  arthaud     : 253  
##  asselineau  : 253  
##  cheminade   : 253  
##  dupontaignan: 253  
##  fillon      : 253  
##  hamon       : 253  
##  (Other)     :1265

Somme des temps de parole

temps <- aggregate(d$tempsparole, by=list(Category=d$candidat), FUN=sum)

temps[order(temps$x, decreasing = TRUE),]
##        Category       x
## 5        fillon 1163308
## 6         hamon 1002342
## 9        macron  926376
## 8         lepen  907711
## 10    melenchon  660153
## 4  dupontaignan  234415
## 11       poutou  151746
## 1       arthaud  142862
## 2    asselineau  132214
## 7      lassalle  125335
## 3     cheminade  115807
barplot(temps[order(temps$x, decreasing = TRUE),]$x/60, names=temps[order(temps$x, decreasing = TRUE),]$Category,las=2, ylab="Temps de parole cumule, en heures")