Introduction
De par le caractère important qu’elles ont sur la population et les décisions à l’échelle nationale et internationale, les élections présidentielles sont toujours des évènements grandement médiatisés. Il est alors naturel de se demander s’il est possible d’utiliser des méthodes statistiques afin d’étudier les liens de causalité entre médias et popularité des candidats, pour ainsi dégager des tendances globales sur l’avis de la population.
Nous nous proposons d’étudier trois jeux de données liées aux élections présidentielles françaises de 2017: -Le dataset baromètre INA qui contient le temps alloué à 14 thématiques (parmi “économie”, “sport”, “société”, etc…) sur les 6 principales chaînes de télévision françaises (TF1, France 2, France 3, Canal, Arte, M6). Nous avons accès à ces informations chaque mois, de 2005 à 2018. -Le dataset IPSOS, dans lequel nous avons relevé le baromètre de popularité de trois candidats aux élections présidentielles (Nicolas Sarkozy, Marine Le Pen, Jean-Luc Mélenchon), chaque mois de septembre 2014 à décembre 2018. -Le dataset Sondages, que nous avons constitué en récupérant les données de grands sondages sur Wikipédia en utilisant des méthodes de web scraping.
Dans un premier temps, nous allons charger les jeux de données, et effectuer une brève analyse exploratrice pour comprendre de quoi ils sont constitués.
rm(list=objects())
library(XML)
library(RCurl)
library(magrittr)
library(mgcv)
library(tidyverse)
library(lubridate)
library(weathermetrics)
library(ranger)
library(rvest)
library(corrplot)
library(glmnet)
library(ggplot2)
library(dplyr)
library(viridis)
library(hrbrthemes)
library(plotly)
library(ellipse)
library(RColorBrewer)
library(xts)
library(hms)
library(plotmo)
library(randomForest)
require(caTools)
setwd("C:/Users/thoma/OneDrive/Bureau/Centrale/3A/Master/ProjetML/Code/Machine-Learning-for-Prediction/")
Données INA
Le premier jeu de données que nous avons testé est celui fourni par l’INA (plus d’informations sont diponibles ici http://www.inatheque.fr/publications-evenements/ina-stat/ina-stat-methodologie.html). Il est à disposition dans un fichier nommé “ina-barometre-jt-tv-donnees-mensuelles-2005-2018-durees.csv”.
data <- read_delim("ina-barometre-jt-tv-donnees-mensuelles-2005-2018-durees.csv", col_names =TRUE, delim=';',col_types = cols(MOIS = col_character(), THEMATIQUES = col_character()))
data$MOIS = dmy(data$MOIS)
dataActusTV=data
head(data)
| | | | | | | |
---|
2005-01-01 | Catastrophes | 05:39:50 | 05:13:56 | 02:35:01 | 00:22:41 | 00:51:51 | 01:07:28 |
2005-01-01 | Culture-loisirs | 00:50:22 | 01:24:04 | 01:12:27 | 00:04:12 | 00:00:00 | 00:27:44 |
2005-01-01 | Economie | 00:52:25 | 00:31:12 | 00:16:39 | 00:01:59 | 00:07:59 | 00:11:04 |
2005-01-01 | Education | 00:22:00 | 00:20:42 | 00:09:46 | 00:02:18 | 00:04:35 | 00:13:10 |
2005-01-01 | Environnement | 00:45:00 | 00:32:55 | 00:23:09 | 00:00:41 | 00:02:16 | 00:09:46 |
2005-01-01 | Faits divers | 00:37:28 | 00:27:43 | 00:15:50 | 00:01:22 | 00:00:20 | 00:10:33 |
Nous pouvons réarranger les données afin de réordonner les éléments d’un sujet sur une chaîne de manière consécutive. Ainsi, au lieu d’avoir les 14 sujets sur toutes les chaînes à chaque mois, nous obtenons chaque sujet sur chaque chaîne, et nous pouvons ainsi les afficher.
noms=c("TF1","France2","France3","Canal","Arte","M6")
Catastrophes=filter(data,THEMATIQUES == "Catastrophes")[,-2]
names(Catastrophes)[-1] = paste(noms, "Catastrophes", sep = '')
ActusTV = Catastrophes
for (name in data[2:14,2]$THEMATIQUES){
data0 = filter(data,THEMATIQUES == name)[,-2]
names(data0)[-1] = paste(noms, name, sep = '')
ActusTV = left_join(ActusTV, data0, by = "MOIS")
}
rm(data, data0, Catastrophes, name, noms)
head(ActusTV)
| | | | | |
---|
2005-01-01 | 05:39:50 | 05:13:56 | 02:35:01 | 00:22:41 | |
2005-02-01 | 00:59:30 | 00:45:06 | 00:18:30 | 00:04:44 | |
2005-03-01 | 01:12:34 | 01:00:40 | 00:41:50 | 00:01:11 | |
2005-04-01 | 00:23:00 | 00:31:06 | 00:08:11 | 00:01:18 | |
2005-05-01 | 00:16:42 | 00:12:54 | 00:10:08 | 00:00:23 | |
2005-06-01 | 00:59:05 | 00:33:49 | 00:36:15 | 00:02:21 | |
Par exemple, si nous nous intéressons au temps d’écran de certains sujets sur TF1, tels que la culture, le sport et la politique en France, nous obtenons
colors <- c("TF1 Politique France" = "cornflowerblue", "TF1 Culture-loisirs" = "brown2", "TF1 Sport" = "darkolivegreen3")
p <- ggplot(ActusTV, aes(x = MOIS)) +
geom_line(aes(y = `TF1Politique France`, color = "TF1 Politique France")) +
geom_line(aes(y = `TF1Culture-loisirs`, color = "TF1 Culture-loisirs")) +
geom_line(aes(y = TF1Sport, color = "TF1 Sport")) +
labs(x = "Date",
y = "Durée (heures)",
color = "Sujet") +
ggtitle("Importance des sujets sur TF1") +
theme(legend.position = "bottom") +
scale_color_manual(values = colors)
p
![](data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAArwAAAGwCAMAAAB8TkaXAAABUFBMVEUAAAAAADoAAGYAOjoAOmYAOpAAZmYAZpAAZrYzMzM6AAA6ADo6AGY6OgA6OmY6OpA6ZmY6ZpA6ZrY6kJA6kLY6kNtNTU1NTW5NTY5NbqtNjshkle1mAABmADpmAGZmOgBmOmZmZjpmkJBmkNtmtpBmtrZmtttmtv9uTU1uTW5uTY5ubo5ubqtuq+SOTU2OTW6OTY6Obk2ObquOyP+QOgCQOjqQZgCQZjqQZmaQZraQkDqQkLaQkNuQtpCQttuQ27aQ2/+izVqrbk2rbm6rbo6rjk2ryKur5OSr5P+2ZgC2Zjq2kDq2tpC2ttu225C229u22/+2/7a2/9u2///Ijk3I///bkDrbkGbbtmbbtpDb25Db27bb29vb/7bb/9vb///kq27k///r6+vuOzvy8vL/tmb/yI7/25D/27b/29v/5Kv//7b//8j//9v//+T///+BvMHQAAAACXBIWXMAAA7DAAAOwwHHb6hkAAAgAElEQVR4nO2d+YPcRnbfm1wxHs3G6yucXapGUuKLWkWUlHBs57LDonNw4mttipN1bIckKsPZzEH8/78Zdb86UCigATSq5n0lDtCFQr1XqA8eHo5G71oUqlDtDu0ACjVVCC+qWCG8qGKF8KKKFcKLKlYIL6pYIbyoYoXwoorV7PDenT16m1356l+/nmTiaEz1m1On+libN6c7pYev2ws7y3U+yhHUzDosvBcP14d3rM0EvBc7hPeQugfwzmDTdAqufPe/dgjvQbUIvFfHj395/OD32svj3W+97ULX427mkxd86a++3O0++YXg72L34LiLYY/b9pe/vtt1tfmqf/nrYq4rg2v85BemeV7+NwJes+DuT7rV/9DYV58kb5xzGXlV9bszYXNoHeHfQ2M2Bu/N6YPfP0V4D6mF4P3NjssHf8rh5PDwT7sHHYuXfIbP3Z39qKPwSwGSOhQ/lWCJufZS1Wuv9BpSou4nXx6BBWqtp9q8acyBV1eX8A6uI/yzh5AovP/x7Q3Ce1AtBO/uD9tfcjCvjh91Q7w7env3FzuORFfeAfjobTfXhVzBwt0Zj3BXx2Lx0VuRSN6ddVT+kkfIMx4R//5YQdJFuz9rf3Uma6gFV8e//VasLmQ+ufCCdrjNwXWUf7BTYubCOV9DeA+rheA94iPbDTj/JGa6M/OHrxUu5zwAivFXgewf//I/HAsg+UdORJd3yNbUjA548uPV8RFYcHX8o9/9G2PefHLhBe1IeAfWUf7BTokZhHdLWirn1SN7/kgfXC8evLg6FgfqSw6voEFAKY/oOxj4VEWVPti84VIc6XkNsOCcT39L56f6kwsvqC5sDq3jnXZGT9gQ3kPr8PB2WcVv/ue/+qfTyfC2f/+lDYbmUxreoXUQ3hK0CrwSCTdtMPBKUN2UE6QNT2HjslzmAc6Cf/jj3VPv07nOQbzqhr/UOghvCVoF3t2/Ck/YJLxdJOywfcsvZOlCGfj4glNe1J2hdadoJsnszrvu1AmbWnDZtd7e/YWJzfrT+e73ZFV1wqbb4TYH10F4S9Aq8P7oWB2jwaUyCa+9bOXAqw7zT03eoE/9L82lMrNAra/osp9MVeGIbQfY7F8H4S1B6+S8/G6FODu6MjcpBA03X+6O3oobF392DlNOcTNC3kTga/zI3E7g2eknfydqmAXiFsNva9bsp//dGf2/5iaFqS5sDq2D8JagFZ4qO/QQH9o+aindA3jNzQhUZaof3oudc7MMVY+qh/funD8chKpR+E0KVLFCeFHFCuFFFSuEF1WsEF5UsUJ4UcVqdnibhJILZ9RKdirrTjmbDeEtxkxtdhDedOeqMlObHYQ33bmqzNRmB+FNd64qM7XZQXjTnavKTG12EN5056oyU5sdhDfduarM1GYH4U13rioztdlBeNOdq8pMbXYQ3nTnqjJTmx2EN925qszUZgfhTXeuKjO12UF4052rykxtdhDedOeqMlONHTKXGYS3GDPV2EF4szpXlZlq7CC8WZ2rykw1dhDerM5VZaYaOwhvVueqMlONHYQ3q3NVmanGDsKb1bmqzFRjB+HN6lxVZqqxg/Bmda4qM9XYQXizOleVmWrsILxZnavKTDV21oT39tuTJ+/b9vqrk5+9gQVqEitAeNFOv1aE9+PL5+27z9rb71617wSbqkBNYgUIL9pJaEV4b79/015//eb6m/d8tptTBbrcL0B40U5aK8IrqP3ulY28qkBNYgWfduptD3XfReZusB/eD08kkyajVQW6PFLAldxj9t7nMvfMqsxUY2f9yHv981ftB3HGNhx5EV60kxAhM5kZhlelsjauBiku5rxoZ4xWhPfjy2f8IoKNvKpATWIFCC/aSWhFeHWy++Hk5KevRGh1LusGBQgv2klrTXinKWl0b7czO1eVmWrsILxZnavKTC12SIPw5nSuKjO12EF48zpXlZla7CC8eZ2rykwtdhDevM5VZaYWOwhvXueqMlOLHYQ3r3NVmanFDsKb17mqzNRiB+HN61xVZmqxg/Dmda4qM7XYQXjzOleVmVrsILx5navKTC12EN68zlVlZjU7ZOnmEd6czlVlBuH1hfAWYwbh9YXwFmMG4fWF8BZjBuH1hfAWYwbh9YXwFmMG4fWF8BZjBuH1hfAWYwbh9YXwFmMG4fWF8BZjBuH1hfAWYwbh9YXwFmMG4fWF8BZjBuH1hfAWYwbh9bUYvKhiNfuby4PmZ7aAkXfzZuqJvNLChiNv0ujebmd2riozCK8vhLcYMwivL4S3GDMIry+EtxgzCK8vhLcYMwivL4S3GDMIry+EtxgzCK8vhLcYMwivL4S3GDMIry+EtxgzCK8vhLcYM2vZIQhv0ujebmd2riozCK8vhLcYMwivL4S3GDMIry+EtxgzlcBLGoQ3q3NVmUF4fSG8xZhBeH0hvMWYWQ3edlF6Ed7MzlVlBuH1hfAWY6ZIeMOmEN7MzlVlBuH1hfAWYwbh9YXwFmMG4fWF8BZjBuH1hfAWYwbh9YXwFmNmQ/Dm043wTu5cVWZKhpe4JQhvRueqMoPw+kJ4izGD8PrKgPf225Mn79v248uTn76CBWoSK0B4C7ZTE7wfXz5v333Wtj88bz8INlWBLo8UILwl21kBXvFnDXhvv3/TXn/9hk86qTk7CQoQ3sLt1ATv9Tfv29vvXl1/899V2mAKxCRW8Gmn3vZQGxcZfnF5/pvNSbACGddAjvrh5bkCR/Or54JSU6AmsQKu5B6z9z6XuWdWZQYjr69heIcDbVCA8JZsJwfeXHrJRnLef6/RDFJczHmrslMTvB9fPtNXG2TaoAp0eaQA4S3ZTk3wgqu4P5Oh1bmsGxQgvIXbKRzei53Q436gh5U0urfbmZ2rygzC6yuE9+ZUU3uxe/AC4d2MmaLhtSssCe/NF68tgc4HhPewZhBeXwG8cylpdG+3MztXlRmE1xfCW4yZIuFV2e6K8N6cPu0y34eTUwaEt2Q7C8BLmvXgPT9qLx6+vjhCeLdkBuH1FYO3C7x3Z0ft5V6hN2l0b7czO1eVGYTXVw+8N6ePEd6NmUF4fcXgvTt7fPngBU8eEN4NmUF4fcXgba+Od0ft+aO3CO+WzCC8vqLwzqGk0b3dzuxcVWYQXl8IbzFmtgRv7uPoh4D3Yrd7eoFpw7bMILy+ovCeP/onebVsc/DScZ2bbGeLZhBeXzF4xaWyp5u8VIbwLi+EF+Et1k7Z8LYXPG3g9ym2B+8oehHeKRqGlzQbhre93PuLFAhvsXZKh3cGJY1OdveewesigvB6isF7d/YU4d2EmQrhJebvYidsCO8mzCC8ScXgbfe8P7EkvKOuNyC8k4wWDe/Nqfzq+yYvlSG8S6tseGdR0uhkdxHe5TUjvLpiAC+fILzpzk22M0oI71DFFeHFtGGcFoTXYWSd7pBmP3hJpCJYYZ3Ie/P59NflLCba/XePROZ9CXOezeFXPyerkEhFsEL4tun9FUkbLve65pDcYybva3TU4w0YeafYzIq8/aF3E5F3qw/mILzLakF4wXpLw7vfl9iSRie7ez/hJUvbcWyWDa86YdvjFZEI7zyqDV6yWuTdT0mjk91FeBcXwrvkw+j59JYOr3lN3cJ2PKOFw7vZL2AivItr0ZyXLA/vtr+AifAuquXgJc0K8G78O2wI76JCeBeCl5o/eZ2bamecEF5/IZgHl8h02quW3LcvYN5PeAnCG1cU3s1+ARPhXV7FwzuDkkanenvv4HUGvAh4SRree3ydF+FdXvvCC5ccAt6r440+z4vwLq+F4bVLloF3zyu8CO9cQnjTisG73a++I7zLKxPePnoPDe92XzqC8C6vwuHd8/YEwjuX6oKXuNWWgFd/+xJP2A5vhrjjvhq8/RdxdZVmm/DOpaTRqd4ivMsL4T0svHozIbyTjJYL780XIFlwPiC8PQrMjHt/e79qgNfvBDSzrwJ4edKrLjZc7PM1tqTRqd4ivMtrIXj9325bBt5O5/KErdSnykhd8JqLTAivpyi8cyhpdKq3CO/ymhFeXQ/h5aLgb79qglfCgPBGVSW8evshvJOMIrxJo1O9RXiXF8KL8M4hhDetDHhvvz158p7PfHz5HBaY8rDgoPCawUZ4pxldCN7QzL6KwwtfOsKRffcZn3t38hwU2PKgAOGdRwhvWlF4nZeO3H7/pr3++k3bXv/bf/ecz6kCNQkKEN654FVjjvD2KQav+96G62/et7ffvWo//vn/lGmDKtDlkYJPO/WnIXuIgr+9yni198Ka6e3t6qXiK/eHtIP2CPgbLiNuPfB29LCNedQP74cnksl3z1TOqwp0eaSAK7nHTN3VSom884TehSNvj5O5kben0qEjr/vSERtXP+ZGXoR3lnaXhjfuZenwOi8dUansuxOuZ7bAprjbynlJg/BmqeeXlZaCN2JmX8Xhhfr48hm4qmALYLlXcM/hHfd7W/1CeAc0DK97nZeHVueyblCA8BYDb9TP4uHd6sulc+Fd9drSwvDanXGBE7aIo/vB66C6Orw3/2XDL5e+h/A2CG+vQnhPH2/8/bwI7zxaDd6eiot8DeiLv0V4R2kteOe666xUI7zt1l8ujfDOo6XgtQsOAu+2Xy6dHkS4YRHelA4Lb0Pwed5ACG+u6oR34y/aQ3jnUZ3wbvwVp/cMXjs3011npb5vYg/DS5xJuOywacOe9yeKhHcPMBBed9mBI++m3xKJ8M6iBeGlsCKesCnda3hpWwi8FOGNKRteOakGXsnExuCN1urK6EEjb8lpg7NhEd6EeuAlTdnwKoQ/n/6KSIR3DpUIL+1yBg2vzuAOkTZc7nXNIWl0orPUmUTVA+/wsN8jeOFV46DJveClFJ6wHRTezaUN9x3eWdtdBN5mK/Ce36fIu89lKIRXawPwqhO2PV6Lft/hnYcyhHdAMXhnUdLoRGcR3jmaRXjLgncYzX0O9QvBS7x5hNdXDF7xNO9uz4dzkkYnOjsMr3tbHeFNNFwlvHdn4irDzen2vj2M8M7Q7ArwqlYPAK9+pOzubHNfA0J4Z2h2L3gpdGx78Non0fd7MDJpdKKzI+AVc9XBO+eJYI3w2ifRN3uTIjGECG92wwvASxuEt1cI7yzt5sEbRQ7hRXiz5MFLm7nglS0vAi+R5TnwDpwV5mgxeJcQ9aahSGSO1x98V3lGlVzRdp53oxN3nuq292+X2KaCBs1bzKOvLqfQsaAG1WtTuJz0vAQ9793oOT0G8O60you83j0pbScjrM4YeWmDkRcuJ3tF3lSPA3jnUsqh9eEdHHWE11rKhTeogvBmdGR+ePdKU+8TvLRBeKcJ4V0T3hhcY+A12QXCCzuC8O7XLsKL8GoVCW/f3coZ4FVP5vTfiEuX+232C+HNrJFQlfBGL8/K01qEd4omwptB0wbhJd4HAe88DSO8CK8WwmsWI7yDHUF4rdiEhhPwMoR3A/DKEGKqI7ygrVXg7a01VO41mRDCq6vMCu+01nxenQ8bhNevgvBm9KSvR/54j4J3Or2LwEv8JdPgjSzeCrxtDr0Ib2KVJrtKvw4JL7N0RjFGeBHepFaBlzZrwxuhDsLLQi8R3oyejIM3B6atwyt4WAFexldAeJNGM7xO9WR2eKfzxjUXvGR+eNkQvF6Dg/Dy/wG8Th2ziNjZsCdGCK+j+wivZZZ5C7zFoGGEF+HVWgJef2A5vCzSLoQXcspGwWusKXhldA7xS8LLHHh7z+qMEF5H88E76upp61o/ELwOp2xc5J0Er0/vaHhzrvQivIlVmniVleHVHPSPeA+8rNkivNxbhLenJ7XBy+aG1xQvBy9rPHiZhZc1lEyE1y9CeBOrNPEqh4aX7QUvA39i8PJ/C8Pb31kjhNdRofBaDnQT4RWuDl7WhvTG4DXnak4Eti01AbwE4d0ovLR3FerOgSqRgJXQtuC1n/eBlzT58CoTU+CNHhegEN6eVag7cyh4FWUA3tjBflF47V4D4TWnX7BrPryGQA6v9p8hvIHqhtceqFlDfPtZ8JIGYArhhf3x4WVcxjC3nICXROGVNgy8rMmEN+xm8LVPhLdnFa+5A8Frzq4MvCwyqnF4TdBuDKg+vOpfAl5ubQq8Om9g2sR4eCPp0X2Fl3if6KrwmiHugbevxYLg5XT2w9vMAG/wIOa+8N5+e/Lkfdtef3Vy8hwWqEmsYAvwduOdhpd61M4Eb4+92CMyylaj4aXEzC8JLwty3mF4xfr86m0MXvVhRnjhKWKihUF4P7583r77rL397lV7/fNXtkBNYgVlwauuoI6A19vmefD2NenDK8/d/MrcySS8liGw0Oa9DrwsOGFjZpU+eIXt1eFNtzMM7+33b9rrr9984Fj+8LybUwVqEhRMhDejuzSYcRXACw/g4TpT4WX+0hx4Xa68JRBeS4Tn7AC88PzM6QSMyJpUcDkgD15FJyEGUQdeacvCm3mpLNzOc8N7/c17EXY5x2KiCmx5UPBpp972epTxEmEazLjy3lbcwQsqh+tQ+35l5lVhuiimnoXqnc3gpc3QJGt7mmTmb+cv0XWIX5nqFqi/MnNmGVzIgLtMe8WbJs62JLARImaJece07JlshBKxJnG2AmHallrie5nYkkE39UbUQ5n3Mu1+eD880Ux+fPkMFNjyoIBrYJ8LNCby9lTeM/LaKk7u6MtESqO+yEt7VnL8ZOYvh9ckAb59KiKiH9OY20J25CXOUczE+2TkbZisK+Or3UTSiDwoRCNv35bk3fGPMItF3ttvn8GCROTdBrzUIUhPmbdc/NkfXubB203YdHiJa4H1wMu8v4y4azFn0uizswbAy/LhVXUDeM1ZZh+8PZsyCS+8ctOrYXh1Knv91XOnwKa48+S8w/RuAl4IjFIPvJQydyUbVoP2BDaUEltjCrze8+gOvGLdqfAyUNfCq/748PqZ+QR43cuOvRqGlycL7z6z7OoCNYkVTIA357X6KXide/G6UksDeMEpAoTXPWNz4PU2bza8jLoNNgPwdlgsAi94UGcsvOYYrhYn4BU9jsLLgk2o1LLwxJTokZwJXnX59t0JF7/a4F7WDQpmgzfochReYifj4NXLqDncjoDXlHIy5GlzBrw2KYi0x7HQsfpA8IrkpWEevEQDSgqEd5qSRsOi9eAFYUT/S8Pr+OFiyPSDLBF4iWWxATcBfD8tvLTphZeJk0oLr7MHQXidDcD8CRXkxeAlenVueQBeQ2gCXjBCrPE2qBbCqzN7QrLgBVtRgSuyhgS8zMXCmap6cXj5cwAgrIK1E/CCXZGBKjIvb1VQY8zBEsLbk06bZvrgNf2Jwqv8j8Jr+paGl4WZL4DXuF0LvOGNggS87sPTutKc8EJQGmfw+uDtBrsHXuhoLrxd+60Mn8a7CMIBvAT2BMLLbNMReFkcXubCK49jFl5zscGHN5o71ASv7+gc8IJ9wsKr2o3AG4RV44b/sCwYDhaFlwh4TRVi12qch0+syQS83DELb+hhoymgMXjtxzi8TiQN4BVPTCqiAngbvUxuPg9ed5MF8II+6Cb0fnJf4FVBgWXBCzdnP7zORmfgf+jRCHhZk4aXUpoPL8uHV7dkmmny4TVQaZr0SsSBNxV5GfMqerKLzRax8LqHsR4dHl7j5Uh49cmE3JYD8LLwRGcMvBpcB15ToW1g8qcM0mYIXgUBFU4IeNkwvMx0yO2N3iF9euFnCa90IQavTjNac7eDaN8VvMJNF15rI4DX3WRxeImzOxNWB7yRLCkFb7e9/XET8JqLDB68RMGritUGh9jav97Vft3GILya3gF4xUoyr+2DV1gjIG2AmwfC64desiq8YLtRFhys/OEE8LL64PW768ELetl1Pgkvs/ASPdkT3sae8gt4iUY0Bi/4dpodKgdesYIDL4hZFt4mCS8N8oZseNUj5QZeJy7q7SzPG2EYsN7G4HUjUBa8jT6EFgSvvujqdi0FrzlF03mZ/6oDKo6zDrx6KDjpipkceJ3js+OgnEbhFV0TmR9rfHhVWJP7kYWXNbnw0l54vbzBya9FeCewq6zReTIBWa6F12wxA29jtyQwopu3blPdfh68dgvrPb0weF1PR8Groq9bG8IrI6HYULKuhFdFZhdeB1VY4kofwQfgVXEe5A1MDZb0RPkhE9sovEzljw684DgwP7wyGDRqm6qbanPDy1pp18Rbs3UsvGTz8JImD15mH3ShKhbIXqo8KUCdJeBtXHjFytSxCociLp2TQHjVY94EwNuE8EqiAbzibvJs8FpgR8BrLcvE03yr2IWXsF544Z6uzzVAxfHwkq3DC151DD2NRLwQXgbhDeM0A8OrNzlpXHgb+QnAa4/WYZueBQ0v024wHY5nh9dkPDJzpRAL46i62EYG4dXPXgJ4qbXM7EtDiGSX2hBDwshrHJsAr97vTaioBl63vwG86tis4fVCr/jGot0mBl6JvSIVwstGwqvPMQ288olsMIJReJnZfwTEGl65BcCpnD0EOOm6htc7Hht4OWZxeMUZYQRex9Xp8MI27VgyYzsKL3XgZcTCKyYlwRvspu4RHMJrY1MEXn1kbG0EV2RCeE2YdOCNMBFK72suvKonYL1BeC0m4EiQBS+JOEobc4TXhimlwIKCV92qgPBSCG/jwKt3CXVMiYGohnAivGo1maVYeIltpUclwKvjpw+v+tYf06PlwcvUhVH5z8LbCFapDbIA3ujROBQnwlwg0fA2Ibw2nhmezO0Utie89qMKXtYjY42oNy3YmrQPXrAmc1j24JVPbPTD6+22oHcReCmAV/eQQXi9k3BPG4KXAXoZnOrrrDF46QC8ZuNkwOsejAciL3XhpdnwNnF4DYpNDrw6cRoJr9qGMXhJH7w2n0nCSybBKx6XYMZlB96mIHhZE4FXsefDq99w4MJrkReD0g8vaeS9zAi8zub1tjc8AMM5NglewiC8BLQHz+6axn4XTtOqICXaKQhvA8/7VC1qPqgLco06ZdQbRuBsTbej4VXpaS+8NISXNS68Jt1hYGNtHl5qhzwJrz7w216JC2C0Yd5gK+gUvI1zEZeokw4Tu9VqUXj9b19RPaY+vM0IeM0oEfGKOxdMferv9MfUaQ2u6tFa6ZOPYQreJg9e+zyTuhu8L7xh6NXwmhsUFl5wjrl5eOXb2xx44cHbz1ptrzLhZWr7DcDLIucHPrzmGAuK5DFDt9s4N79i8GrK9ZdqbGkThdfuU7nw2vdYkQbYiMOrbzWqaj3wwpQkgJdqK2Ph5b4aePVGYs3m4TWdU/CC6Oh1UydnLryykMpcIwlvE8LbaHhN4w687hajzow9iEI/HHhBupGGl06G1+x9DQUG0/Cqv5nwmm0RgdfPp6huZgK86iEIsJFKgNdkVVRHDwuvf1AK4SU2SQbw2tUF1wQ6YeDVQzkdXmpvA1DdnSS8mlfngwOvac+BV9HQA682Rz14KSQSpK3aYeUphNceBHx4zf1mU0QI9dMpTfZ+8KqtCrO3rcKr+syfbyJUU0vtSwBcscbtvoRXrEZJHrxMDVUcXnvV14PXvk8CjL5Ny2iTglePdxOBF1DWDy8DKW8MXoUN/Oo+pWPgFbcgaAa8Jp4H8NqrhiCfyIHX5DF6y8ghAW/w2Ca8oi/ycMM4vGZ/jX5VbyK8DoXSBIDX0huBF2w/M58Fr/TS8bMX3oYOwcuxDOHVq3vwGtwac4CAvemF17ig979DwdvYnN6sl6T3cPAykyvZC7zUP8E3mwE8zMQaF154L98kyA68RF9iJ3oI9DjF4CWEOuEWQiGmlADammXhBYb1z+dQMIEHbOinurPQNMPwWr8i8MLfU6O98Or68EyOBjUcsLv5lgYVxWeQN2wVXpWxquTVwBs8Uu7AK6uqlyOri/dOBw3dzMKrvhWv4TUDTtQa8vEeM/xUfB0BhFsfXucOLFXdkRjqe6cBvNTF08Cr95cGLgXncdBwH7y2wEoeYcye4PTCwOsdm4gDr2oajgc19e45vPJ6gNxixIw2JYG3+nlxzbAgMwmvBBjA2/TDS1x4xZMABOQNZhQbb4vCvKFt9KlX8DWDfnjliZL7JA6AFwypD68+uhpzMXhl6qtrZ8HrRl6naUdzwUsjNcW4FgGvCVjmMETBHXvjvwOvyWqp/hot7KB5pwGlNrYm4CUuvI2q78JrD7hwi4LQOwwv7YVXeuHD67zFogfexiQdJgm2sjmAWkbNhlW7kz6CwZXUgU/BSxsTvf1qEF5qm82DVz8TZzeoW9d53mOT8BrnxEYGXfbgVaTpUzpVkXSnMRpeBk5J1QV7qnLn1lKmRlM3J4sa+cJ6JyVV8IbYgp1kBLzKLLjipGxreL1ESbJN4eAPwgvvfwEPXXjJMLz65N4MD43S4z2nKDeU7ncfvApY7QJzazid3QC8SVHzKnImX9ZtFsgP1LwSm+pPziu0+bu85XvPGQNvz6aiYVnCVD3zqm3a6heC69b5679J14KppasSZRi85VysTsyrwr13d1PVtDIAfCXqFemUGBdbWzF887eox1eCvYL9tqZtJb6S2xLx/lKqe0iVff4yc+9V8s5Gd1ty2nZNyQ2g+s3cYjBvxkRsAhapoWfsiFIWMR/RupFXRwz19RwYOs1hDu7X3vowxXOuactnxUz08yOvyRHlKupMzkZeXTUWeWljU11QmS9oTdPgYql2Vcd6P/J6uYjpgs4o3IOPUOvGfBtP4Rkm2ELgr97KOpvWOa9vXdqBbeVF3sbJ6vye6USNabdF4G29GmbGDCkNjg2uNgmvPWoGgyuUA6+wMwCv/OPBS+xwwz0IZrpReIEBJweRl9Z64A1EdUbRBy9MkM22C9/0BijXu4MHb+ylzxF4oz6Gn0bBKwscROB460unzL9W7+vQ8HqDPQJeJeaOst4fpJ0GvEgohFctMCgSCC9wYl54wTW1iCy87sFHdsdPkJs8eOGJaxJe2cwQvAGYRnF4zb6o4WUD8DL1aB4N03JHB4FX4UX4nWExY5bop6eJ7XFEbmea7zIAAAsRSURBVId8eO1KHrzm4OoeFi28esh9IKg9d/AIbmLwQvdIow3rPWIYXkOt522wTUE89RdBeAksouZDhN014KVNDF44MupbAfJhls3B22p4FcbgNN690263AFFyqnubSa4CfscEwOt8qWAI3sbNuxtw3u0ejuVCBa+OqgG8alnTWDb74QVfOnNzl+j7CRu1syXhdYoMvOGPVmuLS8PLZDTwugMHXFbeJryKXR569Wyjpvr+lZv3EYB3HF5qHloYCS/47RAXXrfWALyazBi8jTmpyoDX6ayTuyThjZUGxWQBeN2qA/A2+taUiAwReKm/StRHo4PC24TwNmobEzhuTg4ZDoqsSfPhdZQHb5OAV4OtvwhGvLU8eEFaFJX3frHJ8AalsKwPXm5uD3iDBQZJOcP64XV21CLgNQ+8goRAMWT6QqIwOM31HMdaOFoUPm8DG3ThjSUmDSgjAbwNdTjOgzf1sF8Z8Hp5nVB4583GU/HcNjPr5cGbpvcg8MoX/TQAXgKhIQpeNyorTYe3b0hsuB8Hr0V2JLwiv8iEF947HQdvWOjA22c/H143IRfy4aUASf2lA7Ny5PyzLHhB7+0BmcCuhPEjKOnF0oE3SqSxQGDmMBLeFuwhwdoWXkLsN8+CF+n2awjenp7F6CQZ8DY0D17q5uNS0Qd2dAJh1lILQ3ipv/JW4VWBqB/eCAiyPIQ3ZSexnrN0Hnidcqe+jCXmFsMQHzGtBe+gbyaoJmvqR6chvPZTrDvlwhsc/3rg7Y2gcTuZq2XDCwjwp9Gcw/SKwlO7EZ2w6oM32tYA0IldefiHdCn4N1DNwdVtfOi0aPPwwu77ESTy02ojtR+8YbJt3HKLiFupD16vs+M1K7z9ZrLgHXHkoD2fsuBN0nsQeO2LDKlXHNTbS0knorbArVTiohk74Kq6wEwIr2mSeqXj1ded7LbmgjcntRhWenToVuFt4z9Jvy+rETv5UvAaVHXEdH7+BFZpRsLrl47X3vD6CU6PMuCdgd1MeJMtHAZe6yLU4eFtIvD6SUSQJZQIb0rbgDfDBMKrbbvwBuDGgxbZArz5yrM6bAfhXV77RF751xbGxz0H3tl2ye1stjnYHTKD8OYryhg4aetBkNdAeJcwg/DmK3m9qf/2XBPAO/clE6stbraDmkF4lQYuA6cWp+GdL5Pf4mY7qBmEV2keeOFXzPJaHqEtbraDmkF485QLL0beFc0gvIubQXiXMoPwFmOmNjsIb7pzVZmpzQ7Cm+5cVWZqs4PwpjtXlZna7CC86c5VZaY2OwhvunNVmanNzirw3n578uS9mWQVILxoZwUzw/B+fPm8ffeZnmQVILxoZw0zw/Defv+mvf76jZrYub4ChBftrGRmGN7rb963t9+9UpOsgk879baHQs2sfng/PBFMqklWAdey+1zmnlmVmdrsbDTyIrxoZw0zw/AGGe1wAcKLdtYwMwzvx5fP5LWEZ+biwlDBkCpLiCvrTnn9yb3Oy0NruiBDxW2dtCrrTnn9WfV32IrbOmlV1p3y+rPujwiiUDMK4UUVK4QXVawQXlSxQnhRxWppeK+/Ojl57j88+e7k5ORnb4ZX3p7c7rTy5kz2pcLtKdqfYoZnYXj5bePrn7/yHp784fmyVheT2522/cAH2X0ktChF+1PO8CwM7we+SX547t5I/vjnrwZX3Kbc7rQ//PR/8Fs1zu3xohTtTznDs0LOa5/dUZPuICUOVmXKfTapG2z3waTiFPSnnOFZHl7+6IP78GR3oCpo9/YEutPKwXYfCS1NYX/KGZ7F4b399ln04cliEitXsDttBZE30h+hIoZn+asNfCtEHp4sYusEcrrTqsNsuTlvtD9CRQzPwvDKjeM9PMmPUh//W4mj7XanlYOd/0jo5hTtTznDszC8/JIhz/6D67w/LfIw63Wn+Ou88f4UMzx4hw1VrBBeVLFCeFHFCuFFFSuEF1WsEF5UsUJ4UcUK4V1dd2c7riNY9qtfHMqbkoXwrq67s8fi76O3pujqxy8O50+5QnhXl4S3vTl9aooQ3klCeFeXgre96BKHq+MugXjM/z4W6cTD1wd2righvKtLw3v56K2IvhcPX/PIe3fWwXwBcgnUkBDe1WXgffj6/3NUO3I5vJc86sJcAjUkhHd1gcjb/enShgcC3gtxDWL3+MDelSSEd3VpeM+PukD74IWOvJgxjBbCu7rA1QYZfGXk7SaH9qw0IbyrC1zn5cBeHT94wUE2BahcIbyrS91hE+H3vMt4/2tH7vnuSJQju2OE8KKKFcKLKlYIL6pYIbyoYoXwoooVwosqVggvqlghvKhihfCiihXCiypWCC+qWCG8qGKF8KKKFcKLKlYIL6pYIbyoYoXwoooVwosqVggvqlghvKhihfCiihXCiypWCC+qWCG8qGJVM7z/L65778v23coUwnv/fNm+W5lCeO+fL9t3K1MI7/3zZftuZQrhvX++bN+tTCG898+X7buVKYT3/vmyfbcyVSa8Fzv3Vbbwd8zsj0luaWS25Mv23cpUkfBe8B/OudxFfzgHcJweGfWO50f/51i/6vnqX6pfQeO/cmJ/IaIrNksCa2ZBbA4o6UuvK1fHzm+sSE9S/gSrDGiaW+3Nac9PxiUcW0Alwnt3JrA9j/4CSTa8rdrUAFk1HmLfsK3nwTugIV/iroiCm89fwEoDNsfhM80t+fNxsc2P8A5J/5yOIlX9mo78AUn5Y5JS4+A9f/Cnck7C0u0hfIkg929Pdw//Wn34yZcPX3eBR3HOq8hPfO5yp+ZErUsYnUZRYlwRBXxfNTasM13Rr/3RC+Vja1zSMZt7wDfG0/bqN/6YT3iVLtWyvu/pVreZbr74TyJ7U9795Mvdur/hWSK8HBIJKIBX/4CkG3lZoP7Iq+cudUgx8OojNZ8cdxicPxa/vaqqdJ+6Vbq5my9e83JVS30yvpBQvSHOIChKux4ZG+Z/vgdfPDDwGpdMwvFU7IXCGbEy3we6ifVdukUD9UdePad/9Pvm9NFb/tuHyrvOJEbeDPEztiMHXv0DkuPThmPZloX3CCwO4OVRroOCoymr8LmuhM/J4zuoZZUX4nxXZAIrdwRpw/xvi1plWrqk2jDZ6RfQ8xb6Pt0tET5EFH/a3v3RC9eVPUZ1rAqFt5W7PYBX/4Dk9JzXEPMbqcgrD9F87M67EVUld+r4fcyHVIMiP2X6koi8aipt2P87L+9M2qBc8tc8F5mU8lx0y1bcwy05/+MXYv88fwq3AMKbJ5XranjVwX5/eMOc14fXRi43BLatPbi36lOmL2l4hyPvF5E1eWB0PW+h79Pdksem86d8S2HkHSfFpwuv/vm9/eE1Vxv42Fw81LCYD63K8fQqJh/lZRZe9SnTlzS8kZxXZLkPXii3rEtgTfHvxxoqnvN2E+v7dLfE1QZ+wnZ6JBoz3iG8wzrnoPIztJvTx930gTxhkz8gCX43fSq85jpvl4r8zhfy7Ojha/NBn7frVezVhnNztUEgPvlqQwgvuNrAnVFXG/7F5y+Uj9YluGa37JMv9QHEXm0At3emuSWSD97W5/8GXm3g2cMZXm0Y0oW5at6dS/zB5+ZSGd+S5zt9wjUI74paxBf3nHB9t/a3v5/KhNcXvD1shfAu7BbCO4fiqVb18FbrVqaqgNdmCo62NDJb8mX7bmWqCnh7tKWR2ZIv23crUwjv/fNl+25lqmZ4UZUL4UUVK4QXVawQXlSxQnhRxQrhRRUrhBdVrBBeVLFCeFHFCuFFFSuEF1WsEF5UsUJ4UcUK4UUVK4QXVaz+GZV5ZRwokFsoAAAAAElFTkSuQmCC)
Le sport est majoritairement ponctué par les grandes compétitions ayant lieu une fois tous les deux ans, nous pouvons doncc remarquer que ce sujet présente une forte représentation à la télévision lors de ces moments là, puis une représentation plutôt faible le reste du temps. La culture a quant à elle un temps d’écran plutôt constant et n’est pas marquée par des évènements en particulier. Le sujet de la politique en France est devenu très médiatisé à partir de 2015, avec le plus fort taux de médiatisation à l’approche des présidentielles en 2017.
colors <- c("TF1 Politique France" = "cornflowerblue", "France 2 Politique France" = "brown2", "Arte Politique France" = "darkolivegreen3")
p <- ggplot(ActusTV, aes(x = MOIS)) +
geom_line(aes(y = `TF1Politique France`, color = "TF1 Politique France")) +
geom_line(aes(y = `France2Politique France`, color = "France 2 Politique France")) +
geom_line(aes(y = `ArtePolitique France`, color = "Arte Politique France")) +
labs(x = "Date",
y = "Durée (heures)",
color = "Sujet") +
ggtitle("Médiatisation de la politique à la télévision française") +
theme(legend.position = "bottom") +
scale_color_manual(values = colors)
p
![](data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAArwAAAGwCAMAAAB8TkaXAAABVlBMVEUAAAAAADoAAGYAOjoAOmYAOpAAZmYAZpAAZrYzMzM6AAA6ADo6AGY6OgA6OmY6OpA6ZmY6ZpA6ZrY6kJA6kLY6kNtNTU1NTW5NTY5NbqtNjshkle1mAABmADpmAGZmOgBmOjpmOmZmOpBmZjpmZmZmkJBmkNtmtrZmtttmtv9uTU1uTW5uTY5ubo5ubqtuq+SOTU2OTW6OTY6Obk2ObquOyP+QOgCQOjqQOmaQZgCQZjqQZmaQkDqQkLaQkNuQtpCQttuQ27aQ2/+izVqrbk2rbm6rbo6rjk2ryKur5OSr5P+2ZgC2Zjq2kDq2tpC2ttu225C229u22/+2/7a2/9u2///Ijk3I///bkDrbkGbbtmbbtpDb25Db27bb29vb/7bb/9vb///kq27k///r6+vuOzvy8vL/tmb/yI7/25D/27b/29v/5Kv//7b//8j//9v//+T///9gdT2KAAAACXBIWXMAAA7DAAAOwwHHb6hkAAAgAElEQVR4nO2d+Z/ctnmHZ2W7XW/sXO2uLWNt90jSrONaslspveuISptqmzRxImvrtE0kEV2tu4f4//9SAsTx4iQ4PIaA3u9H2uGAIN4XwMOXIHjMpkGhMtVm1w6gUNsK4UVlK4QXla0QXlS2QnhR2QrhRWUrhBeVrRBeVLaaHt7Tb34uln77J4f883xzqNbe3N9v/7/xFGxw8aeP7aSkdUCsVCepdyuZjWdNtCR0tjmJWmKlMXVVlzlgQ9gb9tj+981mP9G3lOLK0AzwbvYe8IWLg66vbu6DLvPAe3YrjE1sHdAE8CZaUo7pnL6tWGmNqrrIYTSEvWHc9vmmhTfRtYTiCtEM8O693fXR2WsHh85aD2aio72KrYuXOgDeIZZiRQCZpY0n6RxEepTUDPDe+gcRZ77P4f36w83mm1+wNV8dbF7/lYq8X7292ez9oP3SBpVDnnTzd23KD3lOZx0v5vUvOAi/eJutlJKlQktNYxrpdHV8eN5m5scFUByLvL8HlliBv1Fu3rhFW8W6ljq/9Va6BuxbB/bV8b5R6WgtT9vybrU+nW1ufaEswTxfyXqBlbBBLf8L0Rzw/vIbrB0v3volg7cdPLRiI4kztvD6h4IK/m2zOdGA8qUNCzHuuuZcFiNyqUikSgWWmAwjXdLV8bcPRA5QnA2v6WYHr1m0VaxrScB7AY3obxcHLNc5qx6odLSWAt7XDjZvPFWWQJ5zo41lcbpBLf9L0Rzw/oaP7U73L1p4b+6zXf+3B/stOnufN1/f3+yLhm1jSNuo+3pce3Hw3ac8xbOu7Ycfsq7hS/uMFTFOgKVKS1yWkS5vu+nNz3leXZw15jXdlIN0q2ijWI8lUZrcqssBv7FmemxVOlJLPmxo0w6hcZ2nLftB89Xm0FhplG34X4zmgPfxads7V8cnDN6Lbtzbdma3dKF6r/mfX/z9wcaA97Xv/0oU4q7jDX+696Dtn8f8oNtl1KVqS3yFZYTp6pgnnTJfdHEWvLabDF6raKtYjyWeVW+ly+UrzlrUWAWMSkdrKeAV9oUlnecCnFyolaBs1/8yNAu8523vnHe4nnfHsfaQ1Z1zqNmG7kgGAeUHx813vmg867pDbXPe0QbO0HSp2hJfYRlhEiy07JjFGfBabvqKtor1WOKl6a26clUZXbucmJWO1lJnB8bhziUHUeZKWbbtfymaBd72zKgdNTQxeNtD+Lf/8T9+dwzhbX77IRvbPfas2w5eUBDTVPBaxXosxeFlX0/tSqfCqy154LVXirIR3lSxbmlP2tr27IYNOiiwY5c+XJ401riW5/rvv92ceNaZx3nQrbpUbYnLMtI0ctjAjra9wwbO+ak+LBtFW8V6LIlhg9wKgNmt3fsJK9+odLSWAF5tyRnWuCuNBi1P88B7vvfnYtDXnit83rQnQCyetmcNN/fVeKw92fj6ww3DRgSj880fP21ufs7iorPOPMMC3QpLlZb4CstIl7e1EDxhU5Zkge1R9wfeoq1iPZZEaXIrUa4q4+Lgeyy+G5WO1tKAV1oyTijbwcgxdMMq2/C/GM0DLzuvF1FRHLLkkpyDkvM83SwTnCrzrjPntsxuFaUCS0yWEaar49cO+GHUnSqDlviat/djRRvFeizx0vRWutyNuFzMnbAqHa/liUrbwC26PF3ZJ9ZKVbblfzGaB942aJ2omYB23PUanylvR2B69p9Px3/OSf9ws/97Naf+XTlVb67jxbyuJvzBJTVZKrTUNLYRpnYE0NLxHT5Xf2FepHhqWhJXPf6zzf17t2irWI8lXtpTtdWNqoEoo5sDu4GVvonWEpywKUswz1cH3dUIc6VqUMv/UvQq3VWmZ5565bnevG5dvFXYkCBFCK9X2cF7vnn91aMX4fUqO3jtGZFXQgivV7nB256Rfbf8WyBtvUrwogoTwovKVggvKlshvKhshfCishXCi8pWk8NbRxRdOaEWslNYdfJpNoQ3GzOl2UF445UrykxpdhDeeOWKMlOaHYQ3XrmizJRmB+GNV64oM6XZQXjjlSvKTGl2EN545YoyU5odhDdeuaLMlGZnIXgvP37SNNd3j24/51/FUiQB4UU7C5hJgffF0btPmpcP7zXP3mNfxVIkAeFFO0uYSYD3y3d+1kbe68+esAjc/hNLoQSEF+0sZCZ52HD5yfPm+tNH7Fu3FEl4s1WsPBRqSvXC++K2RFMsRRKY5t3nEvfMosyUZmelkRfhRTsR0anMJMOrR7TOEBfHvGhniJaH9+XDO2py4U43uRBMQHjRTkTLwytmcXkQhtO6TgLCi3biWhbebRQ1OtrtxMoVZaYYOwhvUuWKMlOMHYQ3qXJFmSnGDsKbVLmizBRjB+FNqlxRZoqxg/AmVa4oM8XYQXiTKleUmWLsILxJlSvKTCl2KMKbVLmizJRiB+FNq1xRZkqxg/CmVa4oM6XYQXjTKleUmVLsILxplSvKTCl2EN60yhVlphQ7CG9a5YoyU4odhDetckWZKcUOwptWuaLMlGKHiktsCG+8ckWZWcwOnbt4hDelckWZQXhtIbzZmEF4bSG82ZhBeG0hvNmYQXhtzQYvKlvRuYuf2gBG3tWbwchrC+HNxgzCawvhzcYMwmsL4c3GDMJrC+HNxgzCawvhzcZMIfDSGuFNqlxRZhBeWwhvNmYQXlsIbzZmEF5bCG82ZhBeWwhvNmYQXlsIbzZmEF5bCG82ZhBeWwhvNmYQXlsIbzZmioGXILwplSvKDMJrC+HNxgzCawvhzcYMwmsL4c3GDMJrC+HNxsxSdijCGzU62u3EyhVlBuG1hfBmYwbhtYXwZmMG4bWF8GZjBuG1lQDv9d2j28+b5vKjo3efwATx4UtAeDO2UxK8Lx/ea56911x/+qh5xtkUCeLDl4Dw5mynJHivP3vSXH785PKT52yxXRIJMt1OQHgzt1MSvJzaTx/pyCsSxIcv4c1WwfJQKxed9V1lbeFkuXeVvbjdMalGtCJBpnsSmKJ7zOh9LnHPLMpMGZG3LXz5yHv5o0fNC37G1h95Ed6c7dBmTnqXhVcMZXVcdYa4OOYtyk5J8L58eIdNIujIKxLEhy8B4c3ZzvzwdvQuOc/74ujonUc8tBrTuk4Cwpu5nbnhJfWC8G6nqNHRbidWrigzCK8thDcbMwivLYQ3GzMIry2ENxszCK8thDcbMwivLYQ3GzMIry2ENxszCK8thDcbMwivLYQ3GzMIry2ENxszi8FLEN6Y0dFuJ1auKDMrgncE3QhvauWKMoPw2kJ4szGD8NpCeLMxg/DaQnizMVMEvOx2XoQ3qXJFmUF4bSG82ZhBeG0hvNmYQXhtIbzZmEF4bSG82ZhZE7xb04vwJleuKDMIr63Z4EXlKtr/Oqbt3wjF3vbE/04pjLyrN1NO5K3XHnmjRke7nVi5oswgvLYQ3mzMILy2EN5szCC8thDebMwgvLYQ3mzMILy2EN5szCC8trzwnm24DhHeNZlBeG258F4dS2rPNnsPEN7VmEF4bTnwXn3wWBNofEF4d2WGLmRHWMsX3qkUNTra7cTKFWIG4fUL4c3ATDnwsu1mhvfq+KQd+d7aesiA8E4rhNcvL7yn+83Zrcdn+wjvOswUBS+pZ4W3Dbw39/eb81GhN2p0tNuJlSvEzKLwUjI/vNzCbPBeHR8ivKsxszC8/S/ao9s+CDQ/vDf3D8/3HrDBA8K7CjMIr18+eJuLg81+c/rGU4R3HWbWBi9NfwSTOFvODe8Uihod7XZi5Qoxg/D6hfBmYAbh9csP79lmc3KGw4a1mEF4/fLCe/rG77rZMoR3FWZWBy9ZL7x8quwEp8pWYyZ/eCXDCG965Qoxg/D65YO3OWPDBnadguv67tHt503z8uHRO49ggvjwJSC8U4pmDK/ItyC8zTl4kOLlw3vNs/ea5st7zQvOpkiQ6Z4EhHdSlQdvvdRU2fVnT5rLj5+wj1ZiSX84CQjv1EJ4A/LBe3P/BHy7/OR5c/3po8tP/lUMG1QC//AlvNkquDOghmr7N4NtZY30vkosIYvK2n0Q/ZWA5IlknbCBb2yswND86B6nVCWID18CU3SPGb3PJe6ZZZhZYeRN/p3B5YcNxvWJ/kDrJCC8k0reBpMhvGRxeK+Ou0ffu6kyOaL9a4mmM8TFMe+8QngD8kZeQy8f3pGzDd2wQSTIdE8CwjupyoGX1gvDC2Zx3+1CqzGt6yQgvFNrjfAmTjcsD685bNhSUaOj3U6sXBlmSoC3o3exyHv1/vavy0F4pxTCG1AY3uZ81D2RUaOj3U6sXBlmEN6AYvDisGHXZqj4my28lHJWSb00vOMeYosaHe12YuVyN4PwRuWDV5ywjXhFJMI7jRDeqHzwTqKo0dFuJ1YudzMIb1QI75rNILxR+eHFBzDXYWa18NaJl9h2AC8+gLkSMzuCt4/MNcOLz7CtxQzCGxXCu2Yz3Z28OcPbub7ksMF8ABPh3ZkZhDcqL7zGA5gI7+7MrBXees3wTqCo0dFuJ1YudzMIb1QI74rNiBfsI7wBeeG9OMD7eddgpkR4NcXzwDtyhhfhnUprhjftEpsJrwq8806VIbxrMFMwvGS+yIvwrsJM9vCSELxscaYx77jLEwjvVEJ443LglU9f4gnb7s108NJ6WXjrcfDC10lreNVvB84eeXPXou/2mlEtvA2vzZIVYq8T67HHVgfzELhMO9dJl0z16klrVNQ8rwwKGHm3MZoUecNzZbuMvFcfgMGC8QXhDWh2eAnC65UDLxv0ismGszGPsUWNjnY7LoR3jNEJ4ZUHDQkvWWDMe9qdsGV7VxnCO8boSHipubw4vFMoanS021HRYuDliBQEr7pOjPCGhPCOMzoXvATh7RfCO87o5PCSGuFNVWnwkkLg5YsIb1zycirCu41NIuCNAIzwzqeC4K2zg5fE4V1g2JD3S0cQ3jE2c4c385eOlAdvV6FM4CVGRhtevWa2m9Gzfm8DwjvGZiK8IXopwjtKCO8Ym5nDm/lLR2iN8I6wORZeuKEBLzWz4UtHfCoPXgHKYvDWWcM7gaJGR7sdk7oilTu8lCC8USG844XwGusseMnS8GY9z4vwjjQ6C7xWfm5mrBx4r/4p93le/cu4BcDbPYuwE3iD9FIPjHrlTuE9Psx8qgzhHWl0MnjJ0vA2Vx/8Ond4C5ltoN0N3IXAC+d/Z4O3yX6eF+EdZ7TpZgkyhdec572+e3T7OVt4+fAeTFDpbgLCO4UQ3h754YViyD57jy09O7oHEnS6k7BTeMVIcXY7WggvXBmE1843D7zmi/auP3vSXH78pGku//Kv7rElkSA+nASEdyplDy+tFbzUDLzzwWu+4vTyk+fN9aePmpc//bdu2CASZLon4c1WwUg+tyjpf19RHqLdn4T3L01pVLyXiYbfyES7Vzb518PtqMhMeB3sfNPJOmED1yde3O6YfHZHjHlFgkz3JDBF95jR+1xEBUXe7s9KI29gvT/yUvNlJPWckRe+JVLH1ZepkRfhnUQdvLo+OcBLiQVvx+1y8JoSQ9lnR0x3dIIe4uKYdx6VBa+dcaHZhjtgVkEnwHQrYZfw8pZ9JeGN3IwwxGgyvN4ztp3Daw4bzHleFlqNaV0nYQ3w1iXBW2cFb72KyHv1/vaviNwdvLRGeMcZLQLe5nzUPZFRo6PdDgrhHWt0eniJz7e54c3xxhyEN7Hc4Mo54PXknBne0wwjL61Lg7fOD14CviwOrzhhG/Fa9B3CC6dxEN7hGcfDqzeMwkvwGTZTai4c4d02I8KL8E6h1cLbfawTXn4372bkT7hGjY52OyCEN73c0Mqs4b25z2cZro4zfHpYwbvg9dQJzZh9DK7CplQn/NhO3Iy9ciF4azoHvPKWspv7+T0GpOCty4I3pToR2qyMifAGy6PWp71ud/DqO9HHvbghanS02wFRde8SwhvOGIe3zhhefSd6hhcpSoRXr5kK3uhPTkwIL0F4hwjhTbHiwkuNxRHwUvkrrXwEh/AOEcKbYgXhXSO8+nwN4Y1kLBnejRTCm6apzFj4ZQ0vVf4sOlU2kaJGR7vtV2Hw2stLwkvrfng9J34I79bSQ97S4OWcZAuvtyCE1xTCm2TGgYkivOuCl8xoxxLCC8quEd7thPAmmVkGXlkqwpsmhHcLM3UAXv9pFnTMB6/4Q+us4d2FqH4hFiWxjOuU+XowowYJLyuLvFysLyOlcC03R7sXjAUKCDolXq/WvaWsW81eVO8tZboeKiPyEnMx68hrvFZxwshL3ZBqvV+sac1NGHlJIPISX+oglQpv3d/bk+lVhdeTAcJbx+FNHeVEhPCOF8Jrrup+BEYGZoQ3TSXBC04+6wXhZU0o4A3eOanSA1c7EN5tlD28RgQcBi9NpWF+eMVoVz7TEgrhCC+U0d8IbyjjjPDKhz8Q3sHKBd5Ar5nXBbaANw0H9WuwcFsXXjeXYUp7ZZXNPxDewSoLXmMmaVZ4YdAeBq9tEeHdWia8JGt4zcC7G3hjjnZexeAlOg3h7deO4U3ujCATpEx4+4rZWkXBS6wvCK8v43TwOlng0/r98I6+xIbwjtcs8Jo9mwJv+KqCmXEt8DajQy/CO16D4Q2NATULVuBNOP+cHt7YvQtSdkkeeIMvOUF4oTKBN3QprBx4ifrDExHeBOUOL1kCXg+VI+C18gB4wQ1+CG+CSoLXPplJgTf6GidtxQMvseCtTXgBiOqPXIXwTiOzx2mO8MpVW8Abuapg5ZsS3toLL0mDd+x0A8I7Xp2Z5PfjhuHVR36nX0lfdRaB1/Nsm1GWcpuQBHh97TCIZ4RX5B0hAW8SO/Ua4LUnuKaC1xmpd6kIb4JKgtdeOSO8xmhZwlvvCN5BPVEQvFbT5QYvc396eJ0kP7zGmWIjcsnyANo98Hrj5jB4qd9tfwkIb43w6k0hvLWC17xaZpYJrA6G180vdg+Ed0XwGmc1AXiJvtzq9mofvIFf+J0DXt+Va1C260IQXo/D/B601CeaSoLXbLoVw+u1NxRe56SrBHhVNZJ6JAHe67tHt583zeVHR0f3YIL48CWsAl6yMLyxUlYGrzm/NRJebSMAry+xjsBrOxhUP7wvH95rnr3XXH/6qLn80SOdID58CQhvzMA08FrxzDMD5slVbwUvle50DwLPAC+l+t1QXaETwXv92ZPm8uMnLxiWX95rl0SC+HASMoQ3/ff3vJoS3m7VlvB6nuadBF61wEENwuufKUuCVy5ODe/lJ8952GUc8w+RoNOdhDdbBcubTdbLrwa8Cyv5NV9bF2K8DIyoV3rBVcxfIt/25fpuv/CLmt/5Fu5Lwaib4mTkhqEX6kN5qF1tM1rO6XeagVfFGRZ9iYY1+XYzXUTCu9mAwvC+uC2ZfPnwDkjQ6U4CU3SPSdmtBmtE5E2d5fJrWORVt39Zs2JG5HVLaF2E1bGtGaEynE2ENueabmLk7V4oYkdevXpo5FXxVv+Rd0ek9Eg/vCqgXt+9AxMikXcn8NpNtyZ4zfcpSXjB33o4vNaUwTTw8tXD4IWT01PBm3i1sB9eOZS9/OiekaCHuDsd8xL5sTJ4rTnnBHjr1cHbbUwmhbdSSx54xQ48HbxssPDsPc2uTBAfvgSEt7stUBvwwEtrF15rRGE6CatD7Uzbw2vcxsCL8cBLxAIgWdd0xfCK6dtnR0xstsGc1nUSloVXMsIb1lxFFVV9mifyAnegAQ0vZHhSeKExG16FIfRHvRSvToO3gkX2wWuqUtsCeKXzAN6EbsvtCptTIwEvr2sqvM780RTwUmLDC+/HNuElglz1T7k5Fl7AnGMY5HNvBbPgJYPgNRjskQmvqMirCq8c4SfDSz2/yTANvLAUUgfhFT1jwUt1PfrhdTMZIYzq1AR4Qcz2wiugEhuF4U0KvO2mcmMfvLVquZQuyRxeGd8IJWF43V52enQWeP0BEMDbkbAeeEUAaFRTBuGF9A6Ct6o98BLZXBDehNC7e3hTdlclCw9WRQWvXVAU3uBkwBYKwEt74CVeeN0RgdqwH15xlXhZeNUelxZ4Fb02vKIbFLz9Fz5zh5eq3iABeH0/EDUPvLUNrzIShFeTCuEN3COQCK8eRtfuW8mdUXEyvESOgD3wSgb75YGX1ja8aszV0y15wQsoI+LYMhBe2XnTw1tb8AKGDAMC3s5hAK/YLAVeuIWRVMvbD4xvRr4IvDLuVRpeoldNB6+gt+mKA/DKHfgVgZfqI1oqvKJViJHz1YVXny2lw1uZp2wxp2354JWsuvD2nIusAN4B9Brw6qNvAF6iD0ygBH2CpzNODi8xvwfhreWmKfDqUYg2YSRJU2Q4vISG4JVP/ohCp4C3+6umx3WgBfDyDl47vCSt0rWsqdpO1o03uWx3I7MfXoH9zPCao1L43vw6AV6vGRNeYjgN1rXHlhngVeY88Mr6eL22NATe3utsucILzjLIbuDVm3jglR3tGlDwEue0qJ4CXhAka3sKRGfUOWqVIOL5VvDCs9OoKv3RSMMK3tqAV58khpQzvGLoR2qjh1Sz+uAVe3kc3hSSKY3BSyGWJkPyauxIeK1Km1vAOxWGwwvPxqQz4D1qHbxu6N0aXoPbGg4b+ga9K4B3QNST8MIntraD14hV6umbGn7EHYlFXlr3wSteSaNzkQHwisNMGN5Q0xisOq4qeJsK5FeHN7WFH95B7PKFHnhlwZHSdg7voDN9BS+lXjKYVODwwsv/ktqG1xij9jtkjmi3hrfWA1B9RAnD2+hS5VmqWS8leZ+NCy8xMkBXVdMY8JIkeGv3EpFfHnjllmpnhmfe8VLXAG/yuEH1K2vLwLhOXzvv4DU588NrnmAlHAr64JVla4iMRxXUYdYHb3h3ptPDS+tEeOseeBP70IVX3xdYA4xVudHScoNXn6SpRBteTW8IXqsIG97+Ox0mh5eE4TVIEvmd8WAY3joCL6V6qJoML6FwslZZrJPkg1cXgfAmwmuOJcSkmyi8H16Din547XUD4K2C8PorY9iNwmv81F8vvKoYP7yJisELY7BKipa2a3jtx0qi3lL1nxip9vmaaCIXXgt6XWwSvHoXIA68kBPgXg+8isKZ4DX/gCII1bAaJVjwgrMMUPYE8LZLRcBrtHwavEYu4+4T2K4KKKK7HW4Gih0Ir5wW0NVRF/pqA149HDHAVlG3F144paqu5NpnXQ68dT+82p6xxoGXzA0vkKfzozysDd7oGCIErxV4LXjh2/K9lnRAtw+RlnmqN4ChV8FbD4ZX4KhrEIO3oSF4nd3Nghe+NkSbrU025N7UA29N4WWygYrD69Gq4YVHVP59BnjrOgivwRaVhfvh1VD54AXlA/dseKkCF1IUhtc4r+/gpeZeB8wYvio/kuGVnpnwui1HEF4hi8X4JYtUeMXfrq9JrbcwT15sthS8/nGDtsOHImPgBfOihN+iYcALtjfhZR5S0KHUWTDsQnjNdvCc1/Ov7KckWqp64AVXyQaqgosrhjdR7LU+4P1B8RcvUfAfpurvFfzg7w4SLy6Cry+S2xFCjSIpEd74XzbE8ys/iFkchX91fYiqHwUbsj8qDzFrQBqqt69gpWRxelPqLLh2Re2I2QIE/LVUQYPOS6nYVkYjD1LlXYwp6Z1dK4m81Bg8WrLHj3obtWwGBarO6n2lUhHy5PhBPJMeibxG+CIpkVfXTzlvRV67BgQOL83jcwMHy3w734loVwoI9qIRjHkzMOC2ZUZeT0+8ApE3alQvGufCU8Pb6Dv1LDv8G6F6qg7A6xlCyiKGw0vkVurMtAfemjjVMeAl5ttMqKdiMkUd8fX4yYDXDwajyrw1x81huDVAw+GN0rtLeI2A1En0sH/kKwGxT+qcIa+6V1/n5THPKlU8QabgJepuL595QIDseqqrMwpeo75xeJ2+dM8BdLJcpHYSPGW0ZcHrzWF++tf61sOUKnN4rRtiahXdvFOthBJizyTJjYQqc6GB70V2g4iwLV0IwKvO0uzwRQC88ITQvOii4zVg14G3tjYx6yMPJLVH9lyjLlFVHZxzLQuvk6EcePWt8sblVOoDlJ8HdyPGQfCSXnhr6sLrvW3AOHev6yHwinWD4bUo8bdpOrzEgDdExUh4Kxh57RxbwBvTTuE1rsHzhe6PPdVKFDeD4a0j8Io1cXitKVIDXrHUgCN0bcGr2TKux8bgrYfBS9wGqQ2kwbUV7dp88MLVxcILIKHG+IHCsFHrcZ7o/NgNwNZ4qwHPiQUfiCJ6j9HPE/jgVR8uvBqPegJ41SpnX/T777uwA1IdeCvXAaAp4bWzFgWvjmpUxzTwS3W01l2pD99BeCtrsQEguC+P0Wtq1bHiIokHXn3mpwc5YttEeNVGdYwdb32i8PqvSsLX5qgFlrPiB/bwDbhReM27GjzZKgtYSa17O0Q58NLagZefGlEC6BOfW8Ib3Kw7/RePNtjTYMArkZtCePm6hkTgVUcKwhW4ttVXH1kdr/+p8PLTVxEPg/BW9QzwVnVZ8BrTuWrYCb6xuFYRT/wYBK9S9C7dKh3e2oXXctIaA5jDHM9tfzG3jKUQvN7CfLXlL7upR8Bbmder/fAaE3zqb2XnzxXebtBVWy2sDuwCAUJoZfHdLYQorOwvA+CtLXhr87W1AF5iwMvyNVQVAi8EdP4ExugD4XWqA4siTu46CK+MgJFRQzq8bj4j2hopDryhIfMA7QZe4mG3ti5NsEBcVZAfvcJf0zi8bnfqCFJJ40SNSdUN58SYYjBiVlcJAC/MWYlj5XLw9nY8GQmvw+AAeNlYux/e/jpA7QZeOPmlZcNLeffH4I20htPbNkKgLZkd88kCPjch4i+xJpkseOWNcJWAV+RUvex/Hceg8zXxJdSm0mB/xyfcitsDr2XGzuiH119cfMTc5yfTTuBtRK/a6V54dTSrrFzxqtq9bVmDjcrhlSG3++juZlG3jkMCAXfdWqoK0fDqDlwO3n56E+6p6ex0ENpx0IXXODhUENgp4O2LwzuCl/Y/YPijTTkAAAqDSURBVM7hlaE3BK99ZDUbIgIvbF8fvGwD9XAtMaYQjAtoLA43qhA/vD0VDSoVXpXBj4PnqzdgQjtVR47vyFbZbunFChQPDmvJ8FZmcu/uuCN4IxcalKiAV44a5Y4tNzWPTr4wEXSiso9sfofcF2I4RdQuvKBkPrqkdV8nhLy0vvXCy1vBZCsJ3spAsIPXM77wwau/mjEYwhuofGOnWybDMVuVsCN4E6Re6GbBa9bV3l3h6pATVnsreJ1S9LyCxW4FnWlUISF4h52H2G7Kb70zOO5WgTZzoDTCXVMbMdTa1qmLGQlk2tbwqr3QKdQtYeXwCnplndyqhndQ0NuhQ51u9or4e0zImhY1G1bCy3aBboRrWKCRDoxqO3itMYC/5nZDDoA3cLgPVjAMr+WOLr/yVsZTwk7gtRo4WO06AK9xeAy1jurtKniGDODVBXnDZCq8XU7DhPtK0H55ws5c8Jpxk302dkbTG/9RLtKNffBWkWsf64Y3EpSs/dH+21fBSg1G60Dfml1TqcU+0qywBOD1mSDRwOQpV7pgVxO2qXcmwC0msAIUb9VFwAsz2mx5PY+sDa1qgINh+mNmVwBvcE/ztK4X3oA6eK0RmTuAUIOrqq8dbSchvJ4dTX3xhNFAsbpgjxcA3tBMgLUc222ryj6vUh9G31VpbbI1vKp/Bh6beAk7htfap42zXB+vyVGM5WuMwUXtCRCVHtwBhgMWnIGgWFDwxg4M3gBo5wNOeu7klmNR7xmS54uVzZPFHVy68NZ+b8YLhJZ46A6XsAJ49Q5Yqf8AITN+VOntaDRI5W2gysocC5OGl2IbLVBcaGu1JMmp4Nhd2g93J89rbeAW7/jhcOqX3i88fbfddElcppmM4LWOvFWlD4X6mAnyeI+K/ZWDX3ra34wwQc59+05j5gkG1o5UvYNaluGH1wUnFHu3U27qvcCdBPd7KHL5+m52eLcqoR/e67tHt5+rj6SEFHjdNjWGPxXs3S2bznP8C8oZEthhNRwRE+GFAxejSlXl3bMidlSGKnioGEHbeKoWMtMP78uH95pn78mPpIQUeCONawe/aeBNk99SfKwCzPgx7LWTto1THXkyNXFgLAje68+eNJcfPxEfeimUkAZvv1JnqsfaSVPMBQjvDIdXnx1hTf6d1mxB8F5+8ry5/vSR+EhKeLNVsLxkbfEurFdT1aveUmF4X9zmTIqPpASmefe5xD2zKDOl2Vlp5EV40c4SZvrhdUa0/QkIL9pZwkw/vC8f3unmEu6oyYW+BIQX7Sxhph9ecxaXhdZ4AsKLdhYykwDvdprX7cTKFWWmNDsIb7xyRZkpzQ7CG69cUWZKs4PwxitXlJnS7CC88coVZaY0OwhvvHJFmSnNDsIbr1xRZkqzg/DGK1eUmdLsrBjemCa45WxNKqw6+dUH4d1ehVUnv/ogvNursOrkV59d/XA2CjVaCC8qWyG8qGyF8KKyFcKLylZzw3v50dHRPfv1JM+Ojo7efdK/8fpkVqfpHn8ybsbPS976ZNM9M8PLHsy8/NEj6/UkX96b1+psMqvTNC9YJ5svXclK3vrk0z0zw/uCNcmX98xHNV/+9FHvhuuUWZ3my3d+xh6GMh5AzUre+uTTPQuMefXT8eKjPUjxg1WeMp/+bzvbfPQ/Ozn1yad75oeXPVxsvp6kPVBltHtbAtVpus42X7qSm9z65NM9s8N7ffeO9/Uk2QysTMHqNAVEXk99uLLonvlnG1greF5PkkXrODKq04jDbL5jXm99uLLonpnh7RrHej0JO0q9/Jcce9usTtN1tvnSlazkrU8+3TMzvGzKkI3+nXned7I8zFrVyX6e11+fbLoHr7ChshXCi8pWCC8qWyG8qGyF8KKyFcKLylYILypbIbyL6+b+hmkfpn39xa68yVkI7+K6uX/I/77xVCVdfOPB7vzJVwjv4urgba6OT1QSwruVEN7FJeBtztqBw8VBO4A4ZH8P+XDi1uMdO5eVEN7FJeE9f+Mpj75ntx6zyHtzv4X5DIwlUH1CeBeXgvfW4/9jqLbkMnjPWdSFYwlUnxDexQUib/unHTbscXjP+BzE5nDH3uUkhHdxSXhP99tAu/dARl4cMQwWwru4wGxDF3y7yNt+7Nqz3ITwLi4wz8uAvTjYe8BAVgmoVCG8i0tcYePh97Qd8f6kJfd0s8/Tkd0hQnhR2QrhRWUrhBeVrRBeVLZCeFHZCuFFZSuEF5WtEF5UtkJ4UdkK4UVlK4QXla0QXlS2QnhR2QrhRWUrhBeVrRBeVLZCeFHZCuFFZSuEF5WtEF5UtkJ4UdkK4UVlK4QXla0QXlS2ygje//UL3Rqq/DwOCOEt1K2I8vM4IIS3ULciys/jgBDeQt2KKD+PA0J4C3Urovw8DgjhLdStiPLzOCCEt1C3IsrP44BWAe/ZxnwzLfxZMv3bkCtt85W6FVF+Hge0BnjP2O/gnG+8v4MDOO5t86v3Rd6Lt8DPmfGfOtO/U9KuU/9CDlmbxBV3K70olvNkCYfjHotXX7/xX6pIYXd2t4ZrBfDe3Od9dur9QZEh8J5/T7STCS/7orgW6yIt3rvWUg+8qUUxD7vKzu1wb0Py0lSR5+KXDWd3a7hWAa/cN3nniR/H6X4PsvttyE59bX7z45/82dPm4psfbtiWV8ew0dkO0qXwWPHrdvGXbXqb9Ic/fsByXHTfwCYNK6rz4KS5+Nbf8rjYZmnHNypjv1vJRZ2zH9I+PVnA4WHwnu7981uLtOMWWgG87LfIOkABvPL3IM3IWzmCbf6tp23nXxyc8EY7PeS/jyq7oi2mTTlvCwSHO7bbnO2pRjc3aXhRPCC2mQ/4xqzv2g+VsXOLunLgTSqqi2tzO9x6TByFI68qfG63hmsN8HZnbPsGvPL3IAcMG84OWfgSLcga6+oDfmTjA68T/q1NhY2ukzyb7Kv+axNFli5FZ+x3a0hR4hA0t8OJkbcrsgEIzuzWcK0D3oaBKsJsB6/8Pch0ePmZxi3ZPO0RScxgyKZjnzc/Nhq9jdUiybtJ93EKSmUb8GMemB1JGzYkFHV1fAg3mc3hgWNes/AZ3Rqu1cArx7oSXnH6lg4vb5DTE9mCH1htnxAx7E268duJDBU6YhjRIhnenqLYwXURh0fCO5tbw7UCeAWfJrzy1/TS4T1jfX++f6EHXvz3JXUvuGM1Pjrbe8AOX2y6zt5EFsU86hbZWK39UBn73UouSrE7u8Mj4Z3NreFaAbztCe0DdtTf5wfOm/t73Qlb93uQ4GfQ421+8zfdMIqdG9/c57MNHf+q0cFZctt68iz5D97nv1n9Rx88buxN+Ee77vUPZTzXZ8mpB+Hkorpx0skCDo+Fdy63hmsN8HYdxwZ8bIT/F++rqTJWs9ONPB/ta/PtpGcut9Q8boU12uF5PB7v1nCtAl5b8PKwFsLLhfAqrRPet3wj+aUpSdRK3YooP48DWiO8eqRgaKVtvlK3IsrP44DWCG9AK23zlboVUX4eB4TwFupWRPl5HFBG8KJQphBeVLZCeFHZCuFFZSuEF5WtEF5UtkJ4UdkK4UVlK4QXla0QXlS2QnhR2QrhRWUrhBeVrRBeVLZCeFHZ6v8BY1F6+4U1IUEAAAAASUVORK5CYII=)
Nous remarquons également que nous avons une représentation inégale des données sur les chaînes de télévision française. Alors que TF1 et France 2 ont des programmes très similaires, Arte est une chaîne sur laquelle la politique n’est quasiment pas représentée.
Nous pouvons d’aillers vérifier ceci
INA_politics <- select(ActusTV, `MOIS`, `TF1Politique France`, `France2Politique France`, `France3Politique France`, `CanalPolitique France`, `ArtePolitique France`, `M6Politique France`)
INA_politics <- INA_politics[c(117:162), ]
INA_politics_cumulative <- data.frame(
name = c("TF1", "France 2", "France 3", "Canal", "Arte", "M6") ,
value = c(sum(INA_politics$`TF1Politique France`), sum(INA_politics$`France2Politique France`), sum(INA_politics$`France3Politique France`), sum(INA_politics$`CanalPolitique France`), sum(INA_politics$`ArtePolitique France`), sum(INA_politics$`M6Politique France`))
)
ggplot(INA_politics_cumulative, aes(x=name, y=value)) +
geom_bar(stat = "identity", width=0.7, fill="steelblue") +
geom_text(aes(label=round(value, digits = 1)), vjust=1.6, color="white", size=3.5) +
scale_fill_brewer(palette="Blues") +
xlab("Chaîne") +
ylab("Temps d'écran (s)") +
ggtitle("Médiatisation de la politique en france")
![](data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAArwAAAGwCAMAAAB8TkaXAAAB1FBMVEUAAAAAADoAAGYAOjoAOmYAOpAAZrYzMzM6AAA6ADo6AGY6OgA6OmY6ZmY6ZpA6ZrY6kJA6kLY6kNtGgrRGgsFGgs5GmdtGrudNTU1NTW5NTY5Nbo5NbqtNjshmAABmADpmAGZmOgBmOjpmOmZmZjpmkJBmkNtmtttmtv9pgrRprs5pw/JuTU1uTW5uTY5ubo5ubqtujqtujshuq+SJgrSJmduJw/KJ1/+OTU2OTW6OTY6Obk2Obm6ObquOjm6Ojo6OjsiOyP+QOgCQZgCQZjqQZmaQkDqQkGaQkLaQkNuQtpCQttuQ27aQ2/+ombSomc6o6+eo6/Ko6/+rbk2rbm6rbo6rjk2rjqurq46ryKur5Mir5OSr5P+2ZgC2Zjq2kDq2tpC2ttu225C229u22/+2/7a2/9u2///GrrTGrs7G69vG/+fG//LG///Ijk3Ijm7IyI7I5KvI/+TI///bkDrbkGbbtmbbtpDb27bb29vb2//b/7bb/9vb///iw8Hiw87i1+fi69vi6//i/+fi//Li///kq27kq47k5Kvk/8jk///r6+v/tmb/yI7/187/25D/27b/29v/5Kv/69v/6/L//7b//8j//9v//+T//+f///L/////Us6iAAAACXBIWXMAAA7DAAAOwwHHb6hkAAAgAElEQVR4nO2di38c11mGV06tKE0voJWstbHVBmgrVbFrkFs5LqVI3Ak2rWwDBYmWNtRqGwuKRAqkdnqLACFZZV1Lm8w/yzlnZnYue5uz855vZ47e95d4NbPrefSd79HR2dndcSNgmJqmMelvgGHGDeVlahvKy9Q2lJepbSgvU9tQXqa2obxMbUN5mdoGIu/2x96MvvrRb86a26PGbPfes41p9f/FJ6m/cPJbj/K7Ct2Xij5qz66Rfyt+mHloQdKI/EOjMV3yEMx4wcjbmLprvjiZCaU920jc7Sfv/oXB2gy7LxWAvAVJw3PUUPKWOgIzbjDyTr0ayrr/0sxsz719NNPaDMqw+4Yf1UJeG9LwHDWWyh+EGSsYeS/8ifHhbOMzRt5fvtZofOwtfc87M42PfKc7877zaqMx9Vm1oWarWbPr7I/Uns+ZR/bcZw7zkbeMbd96Vd8ZJz5qmhQEWUiYF4uzR+rB5vdC6nB65v1xiqQP+N3ut3nWe+hkM/fNbKuDXFB/db9x4a0uOv2Yd9L41PGY8gHJ++1XdINOPvptLa9aPKjolcS+/uIjr0VWmK1GYykR1HzV0HNX733BUXyY6FHdKa571BRJJwMJd71Y/PhM9IjU4fLyZr/NUN7soZPN3DcTyfvSTOPiky469Zij+Ci54zGAgOT9rlnkbk+fKHnPNvRc+qOZaaXO1JvBLzca05EwanJSTZxO1rUnM598Yvb0uU8Z8DktqvlqWhsWrRPSR41JJjlI+Fj1V8++aR6bHC635s1+m/EiPXfoeDP3zZhlg9o3G6RqSB6j/t7d4J3GbP54DCIgeR9tq66/WFzS8p6E616lRvhV2E6zrviPb/3xTCMj70uf+U50kN77TKO3p+4qKx5pD6PGJ0dNSOaOHETnxaLZta2/l+RwOXnz36aWN3foZDP3zUTyRg+L0MljTuLnALnjMYig5D1SM8xRqOtR+DtT/YoMn8x0zzaEvznTgprfuo1PvBX0ue9kxvxmPgptSz1DS46akMwdOYhOJNn+1N3s4TLy5r7NfodONnPfTCSv+RHpotM/A0tB7gCIAWdMUPKqZ0Zq1RAMk1f9Cv/4n/3ju4tpeYMfvaYXjY/63DeevKkD6UjKm6Apr0xQ8uonbapR4bIhfmYV/q58EbUz3J9Z15pH/fsfNpb63Jf9PZ/yJTlqQjLJQYIgXjboX+Mjlw3G8+3k933m0MnmYHkTdM/qI8gfj0EEJu/R1G+rP6MnbG8G6gmQnk/Vs5Sz+JmQausTfcJIaxM96T9q/PqT4Oybel7suS/7DCvlS/qoMcnckYOEj1WEgU/YuqT4gGoZ89kBh443h8kbozPP++4GJ4uGkT4egwhMXv28PpoVo1+R8VfxOaj4BFJ4bip9qqzvfdlzW1lf4lNlCUknB9F5sfjSjFmX9J4qS5PMPa9ODz50sjlY3gSdesxR5pxZo9H7Gg4zdmDyqklrqXsmQC1kXzIvPaglbXL237xK8KYx/bXG9I+7L1J8Mn5BInufOUz8qkLmJbX4qGlSEOQhOmoFoKT9hHlt4CT7IsWTLCl61ePf1KN/3HvoZHPIE7YuOv2Yd2aiV2Fyx2PKx/N3lSWntEamz+vNTLVDeeNQ3tqF8sahvLUL5Y1DeWsXz+VlfA7lZWobysvUNpSXqW0oL1PbUF6mtkHI+79lUu5vV4dBiByE8hJSWwjlJaS2EMpLSG0hlJeQ2kIoLyG1hVBeQmoLobyE1BZCeQmpLYTyElJbCOUlpLYQyktIbSGUl5DaQigvIbWFFJD3oNVqXdnL7Ty93bp6mLtvYkVUiUGIHKSAvLvrvfs699eDg2u5+yZWRJUYhMhBRsvbebAVz7Vmjj29sxf+0b6xF993buRtQlKFSnyAjJZXSdtqqQl2d9XMtaG87ZuHwekbW/F9QfCyyuDJ25tg5J10Fb5lsLzt61t69lWqam+PWzqrx1eNvNF90SMn9hMox8DIW4VKfICMltdkd91Mspe3sjNvdB/lpbyTgBSX9050UiG95qW8lHeCkNHy6hVC5+GeXvPqL8N07psVcHwf5aW8E4AUmHkPouXCbXMTJTnPm+ycWBFyDMpbJUjBZUOhTKwIOQblrRKE8lqF8lYJQnmtkrPw0vtB8Hy5ObcZfHDLbP88uVkIgg/vpXZSXjiE8lolZ+HCM3Oz9kz/12zOPzYOm5tLv7jXXDCbax9QXjcQymuVnIVrT/Wf82/fM9PrSvATPclGN9EdzYVfceZ1BKG8VslKOPf17rpAe/r5ZbNCiG5UVvSS4mtfpLyOIJTXKlkJ59/+mV7XxvJm17xqQazXvCtPueZ1BaG8VslKqNe18z+4NUDepl7zzn9/mfK6glBeqzR7oqwdKK/aubbDsw3OIJTXKn3ljZ+w9ZH3rx6bkdmhvC4glNcqWQn1qbBLP13unipLyxvfx/O87iCU1yo5C1cC8+rE/OM+L1JE91FedxDKa5XeZcM4qUIlPkAor1Uob5UglNcqlLdKEMprFcpbJQjltQrlrRKE8lqF8lYJQnmtQnmrBKG8VqG8VYJQXqtQ3ipBKK9VKG+VIJTXKpS3ShDKaxXKWyUI5bUK5a0ShPJahfJWCYKU9xwEI++kq/AtnHkLBSNvFSqRgGBGa/BwUV6rOO6GYCUSEMxoUV4Qw3E3BCuRgGBGi/KCGI67IViJBAQzWpQXxHDcDcFKJCCY0aK8IIbjbghWIgHBjBblBTEcd0OwEgkIZrQoL4jhuBuClUhAMKNFeUEMx90QrEQCghktygtiOO6GYCUSkN7K01dlufR+9tLx8c7ny5TXCYPy2qS38ugq8fpm/vFOcyW83lByPfn5x0+bK88orxMG5bVJT+HRVeLNTXxtzcz15JMLblJeOIPy2iRfd3SV+PBmbnOnuaCWCJnryVNehwzKa5N83dFV4qObuc1oeZta85q1ROErwlJeq1Bem+TKjq4SH9/o5e0H+asaqyds721SXicMymuTXNnRVeKjm2HXk6e8LhiU1ybZqufDq8R/L7pY/EB5e65nPPgbpLw2obw26a085encZp9lg7Z5jafK3DAor02Gytv/RYqFgC9SuGJQXptgRovyghiOuyFYiQQEM1qUF8Rw3A3BSiQgmNGivCCG424IViIBwYwW5QUxHHdDsBIJCGa0KC+I4bgbgpVIQDCjRXlBDMfdEKxEAoIZLcoLYjjuhmAlEhDMaFFeEMNxNwQrkYBgRqukvJ376/ldp7dbVw+D4KDVal3Zo7ygbghWIgHBjFZJeQ9aeXm1zgfXgmA3fUepQimvbCUSEMxolZO3/YUvr5u51syxp3f2wj/aN/Y6D7YoL7AbgpVIQDCjVUrezoO/18uG3VUz14bytm8eBqdvbCmhW+Gs/LLKsMnbk2C6MekqpIIZrdHDNUTeg1W9SFCqam+PWzqrx1eNvO3rW0Ey+5b6KeXMK1uJBAQzWmVmXjXJGnn1JHt5Kzvzmgd0172lCqW8spVIQDCjVUbeg3CuNc7qpNe8lBfbDcFKJCCY0UKcKlNrXr1YiPeYFbDe0XnIU2WobghWIgHBjBZCXrVuuJycW0jO8yY7SxVKeWUrkYBgRouvsIEYjrshWIkEBDNalBfEcNwNwUokIJjRorwghuNuCFYiAcGMFuUFMRx3Q7ASCQhmtCgviOG4G4KVSEAwo0V5QQzH3RCsRAKCGS3KC2I47oZgJRIQzGhRXhDDcTcEK5GAYEaL8oIYjrshWIkEBDNalBfEcNwNwUokIJjRorwghuNuCFYiAcGMFuUFMRx3Q7ASCQhmtCgviOG4G4KVSEAwo0V5QQzH3RCsRAKCGS3KC2I47oZgJRIQzGhRXhDDcTcEK5GAYEaL8oIYjrshWIkEBDNalBfEcNwNwUokIJjRorwghuNuCFYiAcGMFuUFMRx3Q7ASCQhmtCgviOG4G4KVSEAwo0V5QQzH3RCsRAKCGS3KC2I47oZgJRIQzGhRXhDDcTcEK5GAYEaL8oIYjrshWIkEBDNalBfEcNwNwUokIJjRorwghuNuCFYiAcGMloy85yCYbky6CqlgRqvUxaULp9RPKWde2UokIJjR4rIBxHDcDcFKJCCY0aK8IIbjbghWIgHBjBblBTEcd0OwEgkIZrQs5d1vmMxS3nwcd0OwEgkIZrRs5H2xGFu735i6S3kzcdwNwUokIJjRspD3xacfJTpmNigv5bULZrS45gUxHHdDsBIJCGa0KC+I4bgbgpVIQDCjZSnvi8UltfK9YLNkoLyIbghWIgHBjJalvNvTwf6FR/vTlDcfx90QrEQCghktO3nVxHu2MR0c2U69pQqlvLKVSEAwo2Ut74vFWcrbJ467IViJBAQzWnbynm3MHk3d1YsHypuL424IViIBwYyW5Zr3ZKYxHWxffEJ583HcDcFKJCCY0eKpMhDDcTcEK5GAYEaL8oIYjrshWIkEBDNafHkYxHDcDcFKJCCY0bJ8Y85S+BXfmNMTx90QrEQCghkt2xcp+JbIAXHcDcFKJCCY0eKaF8Rw3A3BSiQgmNGivCCG424IViIBwYwW5QUxHHdDsBIJCGa0KC+I4bgbgpVIQDCjRXlBDMfdEKxEAoIZLcoLYjjuhmAlEhDMaNm/t0GH7yrrieNuCFYiAcGMlu27ymzfT0Z5Md0QrEQCghkt6/fzpp08brWu7OVFPb3dunoYBAet1J2lCqW8spVIQDCjZTvzpuVt39gLDq7l3O3cXzc7d9c58wK7IViJBAQzWpZr3p7PUGiB1Vxr5tjTO3vhH2pn58EW5QV2Q7ASCQhmtGyXDY3cEzYzya6GE7CRt33zMDh9Y0sJ3WqZyfdllfzSwsNgujHpKqSCGa1y1+dtv355S6uqvVULYJXV46tG3vb1rSCZfUv9lHLmla1EAoIZrbLneeNJVkmcmXnNnd11b6lCKa9sJRIQzGiVPs+7u26cNSKn1ryUF9sNwUokIJjRsv708NnGUnzCLFoh6DWv/jJM575ZAesdnYc8VYbqhmAlEhDMaNmf592eDY6ijw8fRMuF2+YmXkh0z/MmO0sVSnllK5GAYEbLXt59XjGnXxx3QxBSILWUV19uRJm7b3vhhlKFUl5ZSIHUU1616A22LT99SXkB3RCEFEg95R0zpQqlvLKQAqmlvNn3NlDeVBx3QxBSILWUN/euMsqbxHE3BCEFUkt5A+unapQX0w1BSIHUUt7eN+ZQ3iiOuyEIKZBayjtuShVKeQdBLr0fBDvm5vlyszm3GXxwq7ulbj68191pAykQyls0lHcAZP7xTnPhw3vzj582V541m2vP9H/Rlr5vRWkb7rSCFEg95dXnecf4IFupQinvAMiCmmHnNncu/fxWc/7te+q/pvoy2srutIIUSD3lNRf0t7e3VKGUdwhEzbBZXaMbJXVTyR1tWUEKpJbyRqfK+N6G3jjuxiDIyvNls0IIuhNwuKUXu2pipryUt0Acd2MAZCV6ivZed/UQbZml7we3KG8q+1pb/a9ZUd5cHHejP2Tlw8jLZL2Q3aK86RyNc21pylu6G30hK92zYErS1HOz5Hkbn7CVT6lCKe8AyKVfxPOsOR0WnSoLt+Y2n/JUGeUtGMfd6AdZM2O701wIzMsS84/N6xHRVvQiRbRzfIibSjAMW3n3G40l+zc4jBiu4aG8/kEwDJt/yurPg2D74rvhv51NeXNx3A3PIBiGjbyLs+Yfzl7iqbI+cdwNzyAYhtW/w/bpf6K8g+K4G55BMAzr9/O+q/3led6eOO6GZxAMg+d5QQzH3fAMgmHwVBmI4bgbnkEwDMoLYjjuxuQg0Tve5zaD4KnZ7r6K172xf8c7phCrsw2NxngfYTsPwXSjepDoHe/NtefL4St6a8bT+cehrmar38t4EoWUuz5v0Yz4WR8ezryThETveO++u2fhV3quXQl+YmZeszXGGygwhXDZAGI47sZEIdE73nXmvvZF/dXnl8P1gtka461rmEIslw0Nfnp4QBx3Y6KQlefLC8+/ZJa+K0/Ti91wqw7y6kTv57W99MiI4RoeyjthiH532oJ6tqY/7Pn95ZS80VZN5OUnKQbGcTcmCDHveI+Wvms76dMM0RblHRzKO1FI+I53Lejc5vcem3buhDvmo626PGHjx4AGxXE3JgaJ3vHeXFPLhq7GuRv7d7xjChnr5WHrq+2NGK7hobyThMTveNcvUugZt5+89u94xxTCU2UghuNueAbBMCgviOG4G55BMAzKC2I47oZnEAyD8oIYjrvhGQTDoLwghuNueAbBMCgviOG4G55BMAxLec0nMK3f2kB5S3fDMwiGYX+J0/0Lj/b50feeOO6GZxAMw/rlYX3RBr483BvH3fAMgmFYy6tfG6a8vXHcDc8gGIadvGcbs0dTd8Pro1PeTBx3wzMIhmG55j2ZaUwH27xWWW8cd8MzCIbBU2UghuNueAbBMCgviOG4G55BMIwxLnHKt0T2i+NueAbBMPhmdBDDcTc8g2AY/BgQiOG4G55BMAzKC2I47oZnEAzDctmgz/Jy2dAvjrvhGQTDsJ15x7vuyIjhGh7K6x8Ewyh1qqz9equ1nt95ert19TAIDlqt1pU9ygvqhmcQDKOMvKdvbAXt61vZnZ3768HBtSDYTVs9YriGh/L6B8Ew7F8eTtYMx8pRLamaa80ce3pnL/yjfWOv82CL8gK74RkEw7B9Y07+LTl69t1dNXNtKG/75qHeqYSOlhQvqwycvP0JphvnBYJh2F2ft+cSe537q8Zf5e1xS2f1+KqRVy8nktl3xM/68HDm9Q+CYdjOvFl5T2+vmmdordblrezMa+7urntHDNfwUF7/IBiG7XnezBmy9uvaTuNsEGTXvJQX2w3PIBhGmSdsobuBXvPqxUKykFArYL2j85CnylDd8AyCYVh/kiK1dWBWueZsw+Xk3EJynjfZOWK4hofy+gfBMMZ6b4N1RgzX8FBe/yAYRrknbJS3G8fd8AyCYdiueT9qe70RygvphmcQDGO8N+bwLZE9cdwNzyAYBj/DBmI47oZnEAyD8oIYjrvhGQTDGOMDmEv7vG5Dbxx3wzMIhmF7ob2L74aXK6O8uTjuhmcQDGOMa5Ut8TNsfeK4G55BMAzKC2I47oZnEAzD9roNetnAD2D2ieNueAbBMGyfsJl/RNDWXcpbuhueQTAMnioDMRx3wzMIhmEh77jvyqG8gG54BsEwKC+I4bgbnkEwDMoLYjjuhmcQDIPyghiOu+EZBMOwkne8az1RXkA3PINgGJx5QQzH3fAMgmFQXhDDcTc8g2AYlBfEcNwNzyAYBuUFMRx3wzMIhsFX2EAMx93wDIJhUF4Qw3E3PINgGJQXxHDcDc8gGAblBTEcd8MzCIYhI+85CKYb5wWCYdhdn3fcjPhZHx7OvP5BMAwuG0AMx93wDIJhUF4Qw3E3PINgGJQXxHDcDc8gGAblBTEcd8MzCIZBeUEMx93wDIJhUF4Qw3E3PINgGJQXxHDcDc8gGAblBTEcd8MzCIZBeUEMx93wDIJhUF4Qw3E3PINgGJQXxHDcDc8gGAblBTEcd8MzCIZBeUEMx93wDIJhUF4Qw3E3PINgGJQXxHDcDc8gGAblBTEcd8MzCIZBeUEMx93wDIJhUF4Qw3E3PINgGJQXxHDcDc8gGAblBTEcd8MzCIZBeUEMx93wDIJhUF4Qw3E3PINgGJQXxHDcDc8gGAblBTEcd8MzCIZBeUEMx93wDIJhUF4Qw3E3PINgGJQXxHDcDc8gGEZJeds39vK7Tm+3rh4GwUGr1boS3zliuIaH8voHwTDKyXuc+Bmnc389OLgWBLvrnHmB3fAMgmGUknf38jf0zKvmWuPw6Z298A81H3cebFFeYDc8g2AYiGXD7qqZa0N52zcPg9M3tpTQrZaZfF9WGXYIT4LpxnmBYBglr8+r5VWqam+PWzqrx1eNvO3rW0Ey+474WR8ezrz+QTAMwMxrJtnLW9mZ19zbXfeOGK7hobz+QTAMhLx3oidt6TVvQXldF1E0lFcWgmGA1rx6sRCmc9+sgPWOzsORp8pcF1E0lFcWgmEg5FXrhsvJuYXkPG+yc2JFFA3llYVgGBN+hc11EUVDeWUhGAblDYstfQSRQryBYBiUNyy29BFECvEGgmFQ3rDY0kcQKcQbCIZBecNiSx9BpBBvIBgG5Q2LLX0EkUK8gWAY1ZP30vvB82Vzo24XzF9/mtuyHKkCobyyEAyjcvLOP37aXHnWbC48i/csfHArt2U5UgVCeWUhGEbl5L3081vN+bfvNdfiCXb+8U4zt2U5UgVCeWUhGEZV5Z37+r1ox4paRGS3bEeqQCivLATDqJy8empdCXbm3/5Z8KE2dm5TTbXZLduRKhDKKwvBMConr35u9t7mzqVf3GvO/+BWOBM3s1u2I1UglFcWgmFUT95m06x545uVZ+md3S2bkSoQyisLwTAqKW80vxpdk6dqmS2bkSoQyisLwTAqJ6850/DMnBG79NPlaJGb3bIdqQKhvLIQDKNy8jYXAvMixUoQ6DO60Qoiu2U5UgVCeWUhGEb15IUWUTSUVxaCYVDesNjSRxApxBsIhkF5w2JLH0GkEG8gGAblDYstfQSRQryBYBiUNyy29BFECvEGgmFQ3rDY0kcQKcQbCIZBecNiSx9BpBBvIBjGeZC3RpDhDH8gGAblrRRkOMMfCIZBeSsFGc7wB4JhUN5KQYYz/IFgGDLyDgyoCG8gIsNVAQiGUfLi0gUzsZ/AukGGM/yBYBhcNlQKMpzhDwTDoLyVggxn+APBMChvpSDDGf5AMIzzKW94AZ74Zm4zugyP/vjRwKvyUF4gBMM4n/JGF+CJbtaeL+uPJ6svoqvx9L0qD+UFQjCM8ylv9DnO8Kb72aKFX0Uf/Ox7VR7KC4RgGOdS3ugCPNFNfC2Iua99Mfyq/1V5KC8QgmGcS3mjC/BENwvPvxQEaq5deRpqPN5HlCUK8QeCYZxLeaML8EQ3C+rp2cKH9+a/vxzKO+CqPJQXCMEwzqW8OslVeRbMCYedtZ1I2wFX5aG8QAiGQXnvaWXnNr/32HynOwOvykN5gRAM41zKG12AJ74Oj7I1PDlmZt5BS17KC4RgGOdS3vgCPNGNfpHCCGvkHXRVHsoLhGAY51PeykKGM/yBYBiUt1KQ4Qx/IBgG5a0UZDjDHwiGQXkrBRnO8AeCYVDeSkGGM/yBYBiUt1KQ4Qx/IBgG5a0UZDjDHwiGQXkrBRnO8AeCYVDeSkGGM/yBYBiUt1KQ4Qx/IBgG5a0UZDjDHwiGQXkrBRnO8AeCYVDeSkGGM/yBYBiUt1KQ4Qx/IBhGKXlPb7euHg7YmblvYkXUDTKc4Q8Ewygjb+f+enBwrf/O7H0TK6JukOEMfyAYRhl5T+/sBe0be3qSvbIXbcc74/soL5DhDwTDKCNv++ZhcPrGVrC7Gk6yRt5oZ3xfELysMvAQDOMyg+U9vmoE1Y4qb49bOqvRzugmeuSIn/XhKf8v9VSDQYgcZLS80eyqVg2t1uWtQTMv5SVEHDJa3tTytrttueZ1XUSVGITIQUbL27kfLnbVmve4e1os2hnfR3kJmQBktLypU7qXt/rsLHCe13URVWIQIgcpIG/hTKyIKjEIkYNQXkJqC6G8hNQWQnkJqS2E8hJSWwjlJaS2EMpLSG0hlJeQ2kIoLyG1hVBeQmoLQcpbKhLvBhZ5xzEh4hDKS0htIZSXkNpCKC8htYVMXF6GGTeUl6ltKC9T21BeprahvExtMyl5ux+cTz6EDIy+ykTvddYwwPbr5goWBR+57hqiSr0CGsH26/oztbvqcJ376c8twqIOq3P1v7vVlWvGpOQ9/mrUGRfyHuh27g6wt7S8Rf++/vlsXx/PgcIQ/cCeK8qNmfb13zkMTn9PHXF3PfWJcWhMYd3qjsv94E1I3s6Dv/vKYdD+wpdbeuKIL4cGSjir64sBhnNf++Zfmykw2sLIq773K3vZ44efs+4Wc2zmsfGm3sKQ1INLp33j99WP21dT1+rAJyPv7uVv1HHmbd883NVuhS7trsJmD53upGHmvhuq++bSE/EWSF71vWePr39a1E2mmOSyQg4hsJn3xr+sB/+lfNI/KC6WDUF+5q3nsuFgVU9M+lvX198JL4cGO/hxupnqwBEmtVUmZjl6rTvsyfHDPZli9MVZXEPar6M8a9/44e92Hv5Q/6Csmwt7OUgob1hdUE95zcr9StyQ7uXQQEmN+24Kk9oqdfRoUjQ36eOH2HQxp7fHdNcGMv703gv917/5nz+IIKiD9jBqP/OaFuyux/KCl1jdNe/p7fV4tjI/I+vJ3DV+Ul5ljx9NikkxegJzDtEZc2HdB/rPf7uqR+orlHdwDvRoH1+Lp8TM5dAQh4/ONpjjX99K9T3aKpOUV9njm2eIN/a6xZRwtzgke7HZclHHPb5sQLuOlw11lrfzMFy46eeanfvmbAP2+UF8nveg1fqNL8cTfGqrTNK/0bPH754ICIs5MCc1y51tGAnR9+LWvHvRzzj49E+WUXN5GQYRysvUNpSXqW0oL1PbUF6mtqG8TG1DeYWy32g0pu4GwckrdzP7T2ZmJ/Qd1T+UVyRnGxefaIGX8vKebfzap+4O+lvM8FBekWxrd5W9F5/kZ17l739O4BvyIpRXIi8Wl+IvT175U7WAWNLrBXU7q2fik1f+YsbsOttoNC48muQ3Wq9QXomkptuTGTUJ7194ZHxWt1reaNfZxrSZnCf5ndYqlFciJx/tzqcnM0tG5v/Tjppp926860jPuqlJmhkRyiuR9Mz7SnzK4cicfwj9Nbv0CQmzlGCKhfJKJJ5OX3yqa+qLxam78cwby8sVg10or0giL8M1brhG0HuOMjPv0RRPmlmF8ookd543MvVkJiOveRANLh7KK5Tt9Cts+g+1Y+ovF5dS8ppTZXS3eCgvU9tQXqa2obxMbUN5mdqG8jK1DeVlahvKy9Q2lJepbZJy43UAAAAOSURBVCgvU9tQXqa2+X9LsL2k7gc9NgAAAABJRU5ErkJggg==)
Ce qui confirme le fait que TF1 et France 2 sont similaires, et qu’Arte ne diffuse que très peu de politique par rapport à eux. On notera que Canal+ est la chaîne qui diffuse ce sujet le moins.
Si nous nous intéressons maintenant à une vision plus locale de la médiatisation de ces élections, sur TF1 par exemple,
INA_Politics <- data.frame(
day = ActusTV$MOIS[117:162],
value = ActusTV$`TF1Politique France`[117:162]
)
p <- ggplot(INA_Politics, aes(x = day, y = value)) +
geom_line(color = "cornflowerblue") +
xlab("Date") +
ylab("Durée (heures)") +
ggtitle("Politique française surTF1")
p
![](data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAArwAAAGwCAMAAAB8TkaXAAABJlBMVEUAAAAAADoAAGYAOjoAOmYAOpAAZrYzMzM6AAA6ADo6AGY6OgA6OmY6ZmY6ZpA6ZrY6kLY6kNtNTU1NTW5NTY5NbqtNjshkle1mAABmADpmAGZmOgBmOmZmkJBmkNtmtpBmtttmtv9uTU1uTW5uTY5ubo5ubqtuq+SOTU2OTW6OTY6Obk2ObquOyP+QOgCQZgCQZjqQZmaQZraQkLaQkNuQttuQ27aQ2/+rbk2rbm6rbo6rjk2ryKur5OSr5P+2ZgC2Zjq2kDq2tpC2ttu229u22/+2/7a2/9u2///Ijk3I///bkDrbkGbbtmbbtpDb27bb29vb/7bb/9vb///kq27k///r6+v/tmb/yI7/25D/27b/29v/5Kv//7b//8j//9v//+T////A3JJzAAAACXBIWXMAAA7DAAAOwwHHb6hkAAAawUlEQVR4nO2dC3/cxnXFl7JEsXEal2tLYKw2NWVVlNSQ6csV07RkmkatRNZpY76d5QPf/0sE79e8BwPgXuw5P1sL3MGeucD8dzgz2McihiCmWkydAAT5CvBCbAV4IbYCvBBbAV6IrQAvxFaAF2IrwAuxVXh4TxeZHn/XDN4fPDlL/49v/vpjtmNl9dvFYtPuyLoWl1Qz3e4sCj36WCafbqY63nS2g8bTYPAuFruNYAXv6SN7eK8SEyd6QsN76lY9NLIGgDdv+O8XTZAqrIpSK121+B9S0vTuf+v42oFG1mDwxsfp448vkgHEh6rn/eEg6dW2c1S+31o8/p+DzQKc+4OUk/Twn34ojI7THjA54nTx6EP8/eeLxcYvMqPffZ5t5Q7vs4268Cy+/4dk55u461bF6/ruC285vLc7G3+7A3gpa1h4r7bSv8Eb7yXwZn+gH79owXtTHp4b5PB+tpX04aflSOT+oBqTXJUHNwrTWsrytlsVb8KbeccKeP/p7BbwktaAw4aUjsU3KVv5eLc15k36te/iHw8Wmy2Y0p7xD1slMVc5rNtpadpB3mxllptn2WA0Ofp9Ust2q/DJ2c3WF2fFTsutEa/rS71T1fC25muAl7aGm7AlaN3k5BxvvBfgvdlKuWnDlMfq3i+Ht9j7/9/941aGbLqfUlUc3S5MjT/7m9/HmXfLrYo34S1rArwsNRi8P816w900ciWBN5+M3bfGvFc19pmuqj/yxRBg0UZ9t6ixXZiONhY/+yC4lfEmvOWcUjGfBLy0NdyYNw4I7+3O4i//+b/+uCOFt1v4hxdZ39l1K+OAdzYaGF7DsCGj47geCOy2nGp48xLpIEMsTPR/v1rsdt3KeF0f4GWuQeGVTdiqpYdkOpXOvtK/57/It5LYd3Eyi2uPeXN4k1najy8Ko2p6l4yqd9LXQbPwavFXZ/H9f6avl5ZbFW/WB3hZa1B4haWybIUsXyrLF7o+3yyWvNJFs3LcUE7ErhoLW3lJE97i6N1OYbFX1rCoFxRa8XqRLi8EvAw1LLzxTfsmxVl8+2Kx+UPem75YPP59dmvif7cWP/sh20oP/+yb8smNCVt2s+O74+aINbtJkd2NaBdmNyO+OBPc6nhZH+BlrmnfVZZD6K2bn9jfa4bmJ9bwXi0eg941Fmt4hfUJaK3EGd5k5vWF+1sgodkIn6SA2ArwQmwFeCG2ArwQWwFeiK0AL8RWweG9vLxM/w+jcE4kk8Lp+TkB3lk5kUwK8NKzouhEMinAS8+KohPJpAAvPSuKTiSTArz0rCg6kUwK8NKzouhEMinAS8+KohPJpAAvPSuKTiSTArz0rCg6kUwK8NKzouhEMinAS8+KohPJpAAvPSuKTiSTArz0rCg6kUwK8NKzouhEMinAS8+KohPJpAAvPSuKTs5WUTAntQAvPSuKToAX8LJ1AryAl60T4AW8bJ0AL+Bl6wR4AS9bJ8ALeNk6uVpFanopnh7gnbMT4AW8bJ0AL+Bl6wR4AS9bJ8ALeNk6AV7Ay9YJ8AJetk6AF/CydQK8gJetE+Dt6O7N8tlFHK9eLr86aQaKB1kA8E7kBHjbejjcj8+fx3dvj+LzjM0iUDzIAoB3KifA2+l4353Eq1cnq9cX6WayVQTKeDcAeCd0codXSS/F03OGN6P27VHd8xaB4kEWeJpI6QcRUpT9x11qeK+f5UxWI9oiUMYlgVRDvuJoWFF0crSKLtej5119exRfZzM2c88LeKdyArxtFUPZul8VhrgY85JxArxtPRzupYsIdc9bBIoHWQDwTuUEeLtdbz7YvV4uvzzKutbWsq4QALwTOgHeIBoyaRpWFJ0AL+Bl6wR4AS9bJ8ALeNk6AV7Ay9YJ8AJetk4e8KropXh6gHfOToAX8LJ1AryAl62Tm1XU+Lefk1aAl54VRSfAC3jZOgFewMvWCfACXrZOgBfwsnUCvICXrRPgBbxsnQAv4GXrBHjpwav+2Q9nMWiT0awAL+Al5OQDr+LqUjw9wDtnJ8ALeNk6AV7Ay9YJ8AJetk5OVlHn0d9JL8AbSgzaZCwrwAt4KTkBXsDL1gnwAl62ToCXILzh6GXQJmNZAV7AS8kJ8JKDN4oB7wBWgBfwUnLygldOL8XTA7xzdgK8gJetE+AFvGydAC/gZesEeAEvWyfAS07RHH6mkZwiyRZPoeedhZOLVSTZ8nMyiF/PGzJpwDuEFeAFvKScAC/gZesEeAEvWyfAC3jZOgFewMvWyQ9eKb0UTw/wztkJ8AJetk6AF/CydQK8BOEN9xFMBm0ykhXgBbyknAAv4GXr5GAVKbbdnUwCvKG8GLTJOFaAdxR4o0vAG94K8AJeWk6AF/CydQK8gJetE+AFvGydPOGVXV6Kpwd45+wEeAEvWyfAC3jZOgFewMvWCfACXrZOgBfwsnUCvICXrRPgBbzknZSXw9oq0uy5ORkFeAN5cWgTCwHebBfwcnQCvNkuE3iD0cugTSwEeLNdwMvRKTS8EkMGFwrwsnQCvNku4GXopP5RRcALeFu1h3JSCvD6OQFec+2hnJTyyEmVlfVlAryAN4gAr58T4DXXHspJKcDr58QA3uhyWnhVNQNeS00J792b5bOLOH44XH551AwUD7IA4HVSSHhtr9N6wPtwuB+fP4/jT/vxdcZmESjjkgDgddME8HYPmym8d+9O4tWrk/QhUbFVPwgBwOsswOvnZIZ39foivnt7tHr9m2LYUAWyB1ngaSKln7Oixr8TKCL4+5DKnwS1/q3Q7mEET9JeanjTsUKK5sv9jNIqUDzIAqnCveKm7XnVnRzFntf6a7jXredVdrRCAPC6yT2n4PCKgVnAW45of1miKQxxZz3mVYMCeC016WrDXrnakA8bikAZlwQAr5sAr5+TGd7GKu5XedfaWtYVAoDXWSHhtbxQ6wKvn8IlDXi7ArzFLuA11k4RXkVSgJckvKHoBbyVhT4AeENocngVVQNeS40L7+ki0zbgBbwBNCK8tzsltaeLjfeAV1k14LXUePDefv2xJrC1A3j7OakVLCfrr2cRD5oFvKEULmnA21FU/SOWWK7LAF7AG0gU4BVCXOG93dlNRr6PvIcMgNdNgNfPSQrv8WZ8+ujj6Sbg1ZECeC01KrxJx3t/sBlf9ep6wyUNeDsCvOWuHN7bnW0q8EaXU8IbNf7t56QR4PVzksF7f7B9tfE+HTwAXsDbX+OOeW+2Fpvx8ZMzwAt4A2iNl8oAb1fqnCLbKwV4AW8gAV4/Jzm8p4vF7imGDXWtssoBr6VGXud98sd8tQzwEoRXkxLgzZfKdrFUVtauqJwevPYr4oAX8AbS6PDKe+0+Sek07rDhNB02pPcpKMEbiF7AqzqiE+QKb3zV+4MUgNdBgeE1X6lZwxtAwZImAa+scsBrqZFvD+8C3kbtisoBr6XGnrAB3kbtisoBr6XGnrD1uj8BeB0FeP2cZPDe7uQffae1VAZ4CwHealcCbxAFSxrwdgR4q13Aa6q8veHrpJOTkyYlwIthQ6fy7pafk06h4TVeqhnDWyD8c/+vywG8TgoEb3WlAG981WvNIVjSgLctwFvvauDFsGGm8CqK22He8Pb7EFuwpAFvW4C33pXAW0zYenxFZEB4oyrp+cLrdGaAt96VwEtKkWRrbrU7eUfChhgwGCp/PpOpyK7zUul5xerR81pq5J6X0AcwAa/qYA28BsdZw0vpA5iAV3WwE7yRckcVZgovqc+wrQW8DqemmUJq4Y06B2qtLy8Bb4h8a3jD0EsQXuvfXG2n4QJvpD8VWZgpvKQ+gAl4OwdLthoBNbzaZT9JmCu8lD6ASQZeofqp4ZUSCnhDKFTSgLdzsHSz2tXAq5nqycKAt78Ab+dg6Wa1K4c3akdV1bXiXOG92aLzft5J4dUuMFGGt1PWoXbO8PZc4QW8jhoP3s7wQePNFl5SH30HvJ2DpZvVrhTeznNmDS+pLx0BvJ2DpZvVrgnezoqv0pstvD1vT8wV3m79AeG1PzXNDBLwVp++xIRNqJErvN2zmC+8oRQq6fnDa/1T7d0c/ODVvJMC8AJeRw0Cr+lOnNGcJby3XzcGC60dwNvDSVvJyPBambOENx307uZbp30+xhYqacCrzMESXr+lDJ7wJjrOJ2x4VxknePM9wBtCgZJuNsnU8HZ2J4dXtgN4AW+rdsUuE3hdrhrgBbxusv61ayEFwAt4TbUrdgGvpQBvvdNPvOHVzCA78FaFgBfwirs84HW7Zo2j2cJL50tHJoVXqG+QVXzA6+skhZfQl47MH97oEvB6OsngpfS9DYBXk5EFvI6XDPACXhcBXm8nGbyUvnQE8GoyArwSeAl96ci6wGt5bmp4o25SXvA2jmcLbwAFSpoWvEMshA4FbxZxvmKAF/C6VQJ4/Zzk8GKdV1Ef4PXQePDe/gvWeduVqyITwNs9KBI22/C6XzDm8O5sY6msVbkqAngtNeKw4fbr/wa8yvrCryUBXm8nEd64u85792b57CLdeDjcbwaquBgAvE51DAWvz/WqnsMV3tY6b4rs+fN063y53wjUcSEAeN3qALx+TnJ4m7p7dxKvXp3E8erv/n4/3SoCxYMQALxOGg5ep99pES2Zwtv+or3V64v47u1R/PDr/8iHDUWgjEsCTxMpXwxuipQ7I0hSX/AU1D9oqTtY3Jfl6pMsx5/BVH/F6fWznMnzvWLMWwTKuCSQKtArbm16XquTc+x5ffMRnPpp7Alb4/5E3a8+2Pa84eDtNEkAeh2SktYWejoOeP2d5D1v81sii6Hs+TLVXh2oh7gDjnkBrzajSNjqnRR3eNt6ONxrrCrUgWa8EwC8bpVQgjegU6kJ4W2v86Zda2tZVwgAXie5wCscAngNwwZPhUka8GoTAryKnvf25/5fETljeEMPCgGvv5Ma3viq13siwyQ9e3ijyskH3joCeDvwYtigjQaG1+LkAG9nVw3vMXpebRTwWmqKCVuPr0UHvE51kIJXdrujn6ZcKgO88jDgtRTgbe72EeC1rIUpvNm7ectfVQG8qjDgtdSI8N4fZKsMtzsUPj0MePUJRd2SNYe3fEvZ/QGBr3sCvPp8AG8L3vqd6P2+uCFM0hThDdq6BOEtzDjCW78Tfd1vUigrGwhe49kBXsDrWLeyIDgngNfRCfCa6lYWAF5LAd7mbh8BXrekAmhMeBel6MEbgN55wVvGAG9QhUmaJLwBWxfw9nGiDa+wpAp45bGg8LaWQAII8LYD/gK8ZgFewGtdB+D1cwK8xspVJWPDKy0GvIBXV7mqKPzcSH92GnjrIsALeA11AV4XAd52wF+A1yzAC3itq6AGb+YHeHsK8JryAbyAV1e5qgzwWgrwtgP+ArwWArzM4dVWBXgdBHjbAX/NDN48CngBr7RuZWF4eM11KqKAF/BK61aWjgyvomwQeAOdXiHA2w74C/DaCPACXss6+sLbKAK8dOHtNKEHy4DXRoAX8FpWAXj9nAaDN4jE3xKNDOVD1h28asFDZ6ooiwLlYp8IPTHted273kA9b1I85543yOmV4tfzBknaAG/kMW7gCq+qCPACXnXdyuLh/7DYpAN4icJbNQrg1RYAXpbwutMLeK0EePvmShney2hMePXDCcALeBWVq8ppwNu5CICXCbydTsdOgNdOAU6vFODthsptV3ptkzL6jgmvYf0X8AJeed3KAwYfFdkl015yAbyA18bX440VCgMTvNqaAC/gVdbd4whbA8Dr58QeXleGaMMrNdVXNBC8/U+vEuDthqrNyeCN+zYv4O3pBHhNdWucerYv4O3pBHhNdeuc+jWwJbzG+9TDwNv7D0vtFMoI8LrWrXMCvFZOoYy4w9toqUiI2CgovP3otYPXeKdvKHiDDRwArxAjAW+vBga8PZ34wituWCkwvH1a2Ape850+wAt4VXWbnLybuH5iL3jbH+QLCkogegGvEBPHD1YKDq93E0vhFdwcb5YAXsDrAq9vG1vBa+ENeEeF1/aiAN5p4Q1EL+AVYvbwerWuA7yebWwDr40z4KUIr3ZGE0kPNFdneSUtUjTc1HWoogVv1JyATQxvGHrnBa/lNQkGr8d03A1er0aWw5uVRAXCVraAd8bwei2ETgpvUR7ZfZsVeXhDrRcD3mHg9WkgE7xeCt3LhQAP8HaDkfxIqQ3g9XYKAF402Ft8poHXdTDXE95mOeB1cgK8khOySVUHr8OK0ijwerQyC3gD0At4u0F7eDuzdjLwuudkI8DLDl6dnyW87ne2Ok6uLcQE3t70RsO9P20ieB1X3/vCa/4T3V2VAryAV3NKZgFedwFeyvAWUWvWuocrbgg4TQHlTo4txAXevuQBXiEaFt7OuNguP8Broyhzknq4G7vDe/dm+ewijlcvl8v9ZqB4kAUGh1d4utKvO8yQJSWxBLyzgPfhcD8+fx7fvT2KV98e1YHiQRawgNcmc2bwOjYGG3j70auG1+MXRZzhvXt3Eq9enVynWH7aT7aKQPEgBPjBK5sDAt6g8Mo8xoB39foi63ZTjrOHIlDHhcDTREq/Qha/sSg/JJIWqewi0wF1SSQLusjtOYx+ZLJHqtKLW4UCXQM1vNfPSiYfDvcagTouBFKJrxPhFWmSS8+r8ou6G2JSUfdQu+w0Tlbi0/P26XqjS03P62zs3/PevdlrBjQ9rw28FomPA69whF1yfeFtHruW8Cra0TanbNcIbzmUXb3cbwXqIa7XmLcXvPLXsdZDBW9k2lRKPXq2ESd4/emNKif5LGVoeNPBwvnzmt0yUDzIAhThLbcAr4fTYPA6Ovuu854vU6WrDe1lXSEwEbzGpUQ5vIqxAuAdGl7ZEo9TTpfT3WGzyXsEeFXLY57wOrQFK3i96V1beBXT8ZDwdp4jjDG0ArxGRQ0nxbV2cl5beFtXUv6cEeFtHUgfXk96Ae+lAK/8maZZnAiv4k+ZRW5dJ6cnCofxhddwump43S61PKe1hlcxAbbJrZuU0xOFo9jCa7rDO1947V62QtIzgLd7EAN4VaMy7fm2pxl9JsfynNYI3sbU13i8N7w2zxQO4QqvavrReY4EXtW2W04zglcS1sGrnfQNCa94BGd4dSdsB68DvesEr2yCOzS8PvNyDvCquwb1CbfhVQ4VWMJrNdoXk1Z+/ZwJ3mxfciUlTxgQXkn5TOEtC8RLLutVPHKaE7yapa96XzZ7EJ8xHLyyYhbwqq+uqTMBvI04bXitJuB2Th6aAl7TxQS8jbhxkKXyr+E1dBZWV9MHXnkZS3jNi11deNV9tS3MlOC17qT84JWO0qTvEuk+pRe85hmMtZO7BoRXc3X1EwgBXv3kRPOd2oDXYnWnH7zGQaC9k7NGg9d0qZ3gbY4oIoWdJCeO8NoaTgav4vm2HUofDQmvprMNBW+kv/6A18KgL7z6xnRyctRY8Jrmxs1I96am+uKY5svrA6/8Ghm+OCsQvJJhncZzBvDqArbwNi6R3eRgWnhtQbSG1zQHNn/rW2SsQpqULhGjIxd41csFkpAbvJ1p2mzhtTVUwGsAMxS8phGMg5OLaMOrubpWL/Z1h9fEZTB4Tak4ODloWHjLE7HAT956uqUEjZkip7nB21x0kRaPB6+2n3JzsteE8Cr/1swVXvOqlSxpK0PFBbbqL8PAWw7xjG7c4FWdkOJXk33glR/FBt5miUuTGJZbrPrLQPDaevGB1/Talv7di1sH2LELeGUaFV7LtmIGr81YT9V6gNfKkQS8AZ3sNDW8sntkXvBKjyMGr/pcfOHVTyrGhtdKjOD1Wa8BvPbSTyqsplmAtwe8wsvf/haTYKPPCfDKng941U4W16bzpsb5wqtcSfKGVz8jtoHX7gIDXrXU8NqLA7wqfAHvtFbTO4nNQBBeOb794FXyZ7M6C3hJODGBVwaMP7zaUSvgZePEBl4RGcA7rRUBJ6EdyMJbQxPlUidtdgK8c3DiBG+JrRgfF15M2Kg4dRtiLHgnVdTvpxUZ/TjlvGXZEDR6XpWcndR9J3peRk5T9by9ku5qZHjtRNGJZFI9nDrtuB7wjmFF0YlkUoCXnhVFJ5JJAV56VhSdSCbVx6lNL+CdsxPJpAAvPSuKTiST6uWke38a4J2VE8mkBnMCvLNyIpkU4KVnRdGJZFKAl54VRSeSSQFeelYUnUgmBXjpWVF0IpkU4KVnRdGJZFKAl54VRSeSSQFeelYUnUgmBXjpWVF0IpkU4KVnRdGJZFKAl54VRSeSSQFeelYUnUgmBXjpWVF0IpkU4KVnRdGJZFKAl54VRSeSSfGDN6ieTp2ATEjKUoPnBHidhaQsBXjpCUlZCvDSE5Ky1JrDC0EaAV6IrQAvxFaAF2IrwAuxFTl4Vy+Xy/04vnuzfHaR7b86iePz5XL51QmxpB4Ol18eTZeTNKn0QmVRQjmlwWEajxq8d2+P4tW3Rw+H+/H582T/OjvvT9M1hzap67yJCCWVbkyXlDSnNHg+SE7U4L1Oz/nT/t27k+xV++nLf0/+ffj1lD2cIql0j1xScQ4QqZxWry8GuljU4E2VXP7shLNWSC9C8ldoyr+F8qRWr38z7bBBllSirMujlNP69LxxOpbcy/70NTj59mjq3leS1Mv9rFMhldS0Ha8ip2oEHFr04L17sxfHQn8y8bhXklS9RyipSUe8ipzSrud6kBkbOXjTDi2Oy1ETEXhlSd39cmJ45Vfq0950Gclzqvvh0KIGb3722R+ffPBWnv7Dv003P5Imlb6aphw2yJOadnQlzWl9et5yoVJY551ybiRPKtmbcu1ZkdSkAxl5TtdDtR41eCHIWoAXYivAC7EV4IXYCvBCbAV4IbYCvKPr/mCRarMZ+/HDVNlwFuAdXfcH29m/T86q0M1fvJ8uH74CvKMrhze+3dmtQoDXS4B3dBXwxqfJwOFmKxlAbKf/bmfDiUcfJ06OlQDv6CrhvXpylvW+p48+pj3v/UEC82ljLAGZBHhHVwXvo49/SlFNyE3hvUp73eZYAjIJ8I6uRs+b/JMMGzYyeE+zNYjF9sTZcRLgHV0lvMebSUe78b7seTFicBbgHV2N1Ya888173uRh6sy4CfCOrsY6bwrszdbG+xTkKgDZCvCOruIOW9b9Hicj3n9NyD1ebGZxsOsiwAuxFeCF2ArwQmwFeCG2ArwQWwFeiK0AL8RWgBdiK8ALsRXghdjqz7kbrPEL15xiAAAAAElFTkSuQmCC)
Nous pouvons apercevoir une forte augmentation de la médiatisation de la politique en 2015, notamment à cause de l’anticipation de l’élection présidentielle, des élections départementales et régionales. Nous assistons également à la montée du Front National après les attentats terrostistes de Charlie Hebdo, du Bataclan puis du Stade de France. Le F.N. effectue d’ailleurs cette année-là les meilleurs scores électoraux de son histoire, et s’ensuit la succession de Marine Le Pen à son père, exclu du parti après des propos antisémites.
##Travail sur les variables explicatives
Nous nous sommes intéressés aux liens pouvant exister entre les données et souhaitons notamment répondre aux questions: Quand une chaine parle d’un sujet, est ce que les autres chaines vont aussi en parler ? Certains sujets sont ils traités de manière différentes (en terme de temps d’antenne) entre les différentes chaînes ? Les données étant mensuelles, on ne peut pas regarder des variations fines mais bien des variations importantes où des chaînes vont collectivement beaucoup parler d’un sujet.
ActusTVSelect=select(ActusTV, ends_with("Faits divers"))
ActusTVnum<- data.matrix(ActusTVSelect)
for (i in 1:dim(ActusTVnum)[2]) {
for (j in 1: dim(ActusTVnum)[1]){
ActusTVnum[j,i] <- as.numeric(ActusTVSelect[j,i])
}
}
mcor=cor(ActusTVnum)
corrplot(mcor, tl.col="black")
![](data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAArwAAAGwCAMAAAB8TkaXAAAC5VBMVEUAAAAAADoAAGYAOjoAOpAAZmYAZrYFMGEGMmQHNWgJOGwKOnAMPXMNQHcOQnsQRX8RSIITS4YUTYoVUI4XU5EYVZUaWJkbW50cXqEeYKQfY6ghZqwiaK0kaq4mba8ob7ApcbErc7MtdrQueLUwerYyfLczf7g1gbk3g7s5hbw6AAA6ADo6AGY6OpA6ZmY6iL06kNs8ir4+jL8/jsBBkcJDk8NHlsRLmMVPm8dTnchXoMpbostfpcxjp85mAABmADpmAGZmOpBmZgBmZjpmZmZmkJBmtrZmtv9nAB9nqs9qAR9rrNBuAiBvr9JyAyBzsdN2BCF3tNR5BiJ7ttZ9ByJ/udeBCCODu9iFCSOHvtqICiSLwNuMDCWPw92QDSWQOgCQOjqQOmaQZgCQkGaQ2/+Sxd6UDiaWx9+XDyaZyOCbECecyuCfEiify+GizeKjEyilz+OnFCmp0OSqFSms0uWuFiqv0+ayGCuy1eezGyy1Hy611+i2ZgC2Zma2kDq225C2/7a2/9u2//+3IzC42Om5JjK7KjO82uq9LjW+MTe+vr6/2+rANTjCODrC3evEPDzF3+zGQD3HQz/I4O3JR0HLS0PL4u7NTkTPUkbP5O/QVUjR5fDSWUnUXUvU5vHWYE3W6PHXZFDY6fLZZ1Laa1XbkDrbtrbb2//b6vPb///cbljdclrd7PTfdV3f7fTgeGDifGLi7vXjf2Xk7/blg2jmhmrm8ffoim3pjXDp8vfrkXLr8/jslHXt9fnumHjvm3rv9vrxn33yooDy9/r0pYP0qIb0+fv1q4n1rY31sJD2s5T2tpf2+vz3uJv3u574vqL4wKX5w6n5xqz5+/36ybD6y7P6zrf70br70737/f381sH82cT928j93cr938394dD94tP95Nb95tn96Nv96t797OH9/v7+7eT+7+f+8en+8+z+9e/+9vL++PX++vf+/Pr+/v3/tmb/trb/25D//7b//9v///+Yw7a1AAAACXBIWXMAAA7DAAAOwwHHb6hkAAAgAElEQVR4nO2dd5zlyFGAdfYyQ84sMEsOy+yeMY9wHHGNSUfOGZbB+Mg5p4dtTDZpYEhLTs8wsMQj55xzzjnnx8zob16rS1JnVUlqvdJ79f1+t7ce1+j6jb7tbbWqq4pSmIbLO4+U62Lzz+OeOXr0nlJsewB7g9JxuVFxhZYXH72niLyTsTy4vHPt/PLOQYbo/UTknYzLO8UDj16dIG2kRe8nIq8wW0Teqbg6WWSL3lNE3qlQj2C5ovcUkXcyaLteskfWjcg7FZsnMA1yq4wSvaeIvMJsEXmF2SLyTsdmKXDtfIndRaBF7yUi72SsH3h0pd6Z4XykRe8nIu9UqJ3bjY7IbAVa9J4i8k6F2rlVOuKzyvDRpZqhV8VmnTFwkPNC5J2Kei5dogyjRauwi9sH5XK/UiFE3snQq9hVgXt1Rore0+xfkXc6qhcPDzyaIXpPs39F3p1gP7N/Rd6dYD+zf0XeqaBNi/s2ifZC5J2MJWXFS4ve0+xfkXdK1ipPDD2l4qP3NPtX5J2YqxPKjgA2es/2yACRd0ryzbx7mf0r8k7F1QltFUtaIe8nIu9UyG7D6Ii8u8FeZv+KvENgk8xFyv5lM+qhiLxDQCdzbXwhPFTRoktq9u/OpKCJvANgk8xFyv5lM+rBiLwDYJPMRcr+ZTPqwYi8Q0AnczWrAOSygRKtIGX/7kwKmsg7BFIy17pQj1Nr5OYtLZqY/bsjKWgi71TUtqyQx4Ao0XuKyDsAUjJXnTyDP4CJjyZBTEFjvLEm8g6AlMxVO4M/gImPJq1fiSlojDfWRN4hkObFdfU4tUKveSnRpOxf0qg5b6yJvAMgJnNV4ei/fmnRhBw0arlKvhtrIu8OQcsVRsJ4Y03k3RVoucJ4GG+sibyDYJLMRcz+ZTLqwYi8Q+BSypH2lzpp1JzPdoq8A5hnKUfaqDmf7RR5B0As5cgE4qgZfziRdwC0Uo60V1X4aGr2L3XUfM92irxDoCVzkV5VZXyxRStXyRiRdxCEZC7aq6qsL7Zo5Sr5IvJOBe1VFSGanv1Lg+/Gmsg7GbRXVbRoYvYvBS7bgQFE3gFQSzFQXlWRoknZv7RRc94OFHmHQCv8mA9a9i9p1Jy3A0XegeCTuZ6kfUE+sJGiadm/JSURgtjZZVJE3uHgkrlqHZEPbKRoYvZvBboAJd+NNZF3IMg5bNnuCCCefGjRCmL2LyUFje/Gmsg7AFIyVz2X5ogmsTsFKEXeAbDM0O5knqMOIfIKSTirLvJOQuZCeznhsh0YQOTtCyvD0PQada4TRkMReQUMWc52DkXknYx6xiOckydE5yxrIzPvrkFO5lpeO18dlBe3cbv95GhslWviqDlvrIm8Q6Akc6nJca0yXNDHLijRlOxfUgqa7DbsKMRkrkfKiyc8s/onRzQ6V3h3ClCKvAMgJXOpDBf13gynIy2alP2bsQDlxIi8A6Alc6lpcbnATni0aEr2L2HUzLcDRd4hEEs5HijJsBLQoin0SEHjicg7CGopx1zDIGX/chn1YETeXYCY/Yu/buaznQMReSeBVjSJWrucnP1LIePZzqGIvJNQ6YiuWUeLLjNn//LdWBN5JyGzvBnhvLEm8k7CfOUln+2cEJF3EnLKm3kzlvHGmsg7BHQyF6uZl5iCxndjTeQdAiGZi5G8jDur0RB5B4BP5srdOJuS/cu5sxoNkXcAfHqUUbJ/+Yx6KCLvELj0KKNl/3IZ9WBE3iEQkrk2T0i6YhJ+wlujjzBQs3/ZdlajIfJOg9pq0nMdSt5lUSwuXvUc+6KYmP27K4i8A8Anc+mtg6sTZKFb9UZgWc26GbJ/ySloOc92DkLkHQA+maueQdWDFWa3YRN98aC6OHZLgJD9S0xBY7yxJvL2hpLM1WzaLg9Q8lbz9LeXGfJhqClonDfWRN4BEJK5amVx02MjeI5WEMRylYw31kTeiairM+NKz0AqwRpT0jlzg1XGG2si7+zJngnBdmNN5O0Lm5O1JHnZjHoMRN7poHXjQ0fnnXmJG2uTIvJOBq0bHz56GnnlgW3XoCRz0brxEaLpJ97wo857tnMoIu8QqMlc+G58hGiyvKQClBnPdg5G5B0AKZmL1o2PEE3N/qWloHFG5B0ALZmL1o0vX+8+2qg5I/IOgJjMRevGl613H2HUzDfWRN4h0Eo5cmGeow4g8g4iXylHPPQTbxxGPQYi73Soh681esuJFp0PWmeXSRF5J0NvHGAzXGjRGaF1dpkUkbcv1GQuWtEvYokw9PRITkHjvLEm8vaF+m6gDsW/YcNH46fHHq/j+G6sibx9IWug92wvbuO+gxSNnx7Jo+Z8tlPk7Qs9H+biNmXnlhKNnx7po2a8sSby9oVbHVLc9Nhj1Hw31kTevnCSFz89shr1UETevvRYPVI2TGnR6OlR5BXKPo2zSX/z0qLRUMtVMtzdbRF5p4J2ij3HmXc6zOdpkXcqsnazIi4ySKMQeQXa6XHiWXPaIoPJ2c7BiLyTgaog0i+atsjgcrZzMCJvX+inbyhPd9Roguk5z3ZOi8jbG1zhpkkgLTJynu2cFpG3P4xqIFEWGRnPdk6MyDsA2iqWltVNiqYtMvKd7ZwYkXcyaFndOXPAs53tnBiRdypoWd1ccsDVHpzKb2Opusg7FdSOPaQccFITQULpvMpd1V+A5Ytikbcv1NtJy+om5oCT6k7hS+dVe8G6G8W2/woIIfL2hX6SgpTVTYomLDJIpfPUZ4SPKCVOdwn6Higtq5sSTVpkUErnqVl3JTPvzsFpA5+0yKAdv3zcM6v4NccnNpG3L31PD+eIpjURJC3W13qJweZ1jInI2xeqvFlTIkmLDI7L116IvH0hLxtozuQzjHPdRxoib184ZZXlos5x3/pAwoi8O4DOEMKWM2m+6yndOl7e4figViPyzh/VodL8N4oVci7dTL4sNlRCiLx9IT1SZX1aa3Ib0Qcq1qTEnCXHJYNC5O0LXV700x0t2ghEbpXhXq8ZbKZphqkNIm9v2MhrDASxRbGsNm3JJ+svbjOcfUXevjCSt515sfV5afKqTQeG7oq8vSFtleWUF9K+qt91LxvW5JlXfQfHRYPI2x82M2+bCYk8d7GkrHmXTF8NK0TevvCRt+67skIbqf7WQO02rFguF2pE3r4Q5aXVtyO+2NJvwkgz5BpzaXnDtqOwPBhD4tP56UhD5BVmi8grzBaRV5gtIq8wLhP2vBJ5hVFRp96m+m+JvMKYrIonyszLjWcJLurHUhhUP6dnn8uygR3P4hLNayDFIdB6JPKyg5czHKJF3tkQvK/VbUNH0649SnB+eZ8TEHkZ497XQ5uOaMV1BerapIFsLVrL+1yAyMsY+74e+iSiQdyG9LU1R4rugdCGPWq0yDsbrPsacNe217bgukfi2uBtS2ogNccbuofdSQ95nxsQeRlj3Negura+lgW+u469tjNHLtGBVBxbJIaNoIe8zwNsxSORF0d7X6PuGvYaFoTUdfQ1nfHUdfV1BDs+Tto7XN6HNZHg4nkBkZcxzX1NuNva21oQc9e013Am6K5lryWYq66n70B5HzYJBYu8c6C+r0l3G3sbC+LuGvY20RF1LXtNwULu2vYOkvdhFz+4eD5A5GUM3NcOd2t7awtS7rb2IuRt7TUEC7tr2TtEXs9d214t7/MDIi9jppA34W5rbytYzF3T3gHyBty17NXyvgAg8jJG39dOd8FesCDtbmMvRCfdbextBIu7a9gbkve0Iv4hNUF3TXtF3tlQ3SqEu9pebUGXu7W9k8p72hD5kJqIu4a9Wt4XBERexuSXt8Pd2t5asJS7rb2evKenCXvb6Ki7rb1a3hcCRF7GqFuFc/cQohHugr1VdLe7R21wl7uNva68p6cpe0Xe3QQt72EueY9GkPf0NGlvE51wt7FXy/vCgMiLw2jXULdzrMp/6Jfq1pcgfvP7dahCyPqBR7GlQ3ZCXtdd194e8r4IIPLiqZo521UR4eRfuFBi2FFCZzyRNyzviwIiLx5f3rr2Fht5Me5eb649hby+u469dXTS3dpekbcvnrzrYrF25V3q1cNG3IvbRXHtXP3aLCdWRfHAU6tlgy4MqkRe6dKfl0966uYPghWtbhXW3UOCvNfh2ih3j+rgbndre7PL+2KAyIsnsGwoXXmrps8bJdWsW3WWVpKuwcflJnhdVPLqRlCb71PBqh9U1VXHiqbIe5hL3iOO8tafQ+TFg5C3am6uFKzlNRs26Nl2qR/YVDH8yzsLXS18E1X9xmnvIPKG5X1xQOTFU8tr7iyAvNaX1G9qec1aLjoWdhsqsx94VK+AN1pXC2Sn8kueZUN5Ha499rKh3IK8VydNDd/NkmuK5oMzlze1bFBt8p5uzLy6VLK2emXKqxYYm29b15ts+unOiC6zrXnra1PlZfPA9hJAoX+Kur51/ddZbnZX3mplYC4bKpZ6RrBm3s3/eoaefHVMuzWxbOaPvdoqI8j7kkBRLdPg/Jr6V7Vqy8zuylv9z3XhyAu/0WveFch7eedNq2WvHWP9bq/kJezztvIaxl6dbKYCQivZvuyuvHrSLRYg70LPrPX0qnYWYLdBfVPVz0F9rX6Is6N3RN4Mr4frsW2WWMZ0u1lyTeDuDstb7eQ+Wru4LPSitrGx3ectmy2xle4bUn/N7JiTJTFHP69lSMwpBybm4OW9AVgzr5oqZM3Lhx7yYuxtrk2VN53OO11K5EsBlryy5uVFjnxemHhx+bylk8+bNxm9h7zywMYWrLylIW+HvbW7o5+kKEc4BtTpLsj70oC1Vab6H8qygQ/6viLdbSzALBpw8paevPHDw6McwOxyF+R9GaCoUlWVsMuFvKRgBtxX1KIBJ28z8TbRGHdNwbrdHSAv8vTwywLyepgxOHlLR96Eva27bXT3osEWrNPdIfLi6jaIvDOgvq8odw0LEO52y1tGKub49pZjlntKugvyvhwg8jKmua8Yd00LIupeD107VmcvWqvMKxI5cqG9uLq1vC8PiLyMae8rwl3bgvS060SH1E1ViSyNOffYKxI5VN6ys0rkKwAiL2OM+xpTN1af17XXnna96CNL4NKadr1gIORtPDoKKVrknQ3WfU1Pu250qfUt4Z/Osv7tfGs/qoUvTRj2uNFa3lcERF7G2Pe1mmgNc61p14vWBL2NRoe8jQbHyS7vKwEiL2Pc+9ouFUDfZDTt2uMFi7xCGbmvIW/j0bRrjxKcX95XBkRexvByhkO0lvcmIPIyhpczHKK1vK8CiLyM2XaLdYaoH4vIOwd4TXgcorW89TsSkZcxvJzhEK3lvQWIvIwZwYJx9iaYyftqgMjLmGGvHdzXcd3XJg1kK9Ei72wIvfA10hWS0aG3yalrK6ojuZiB0IY9YrSW99UBkZcxyVQbT9+uTIhUj/jyhk1yIIDaaUUMu4se8r4GYNcqU6WyFqT/dC9EXhwdSY7xPu7hHLTDeA7aDZfEQErtbUty2J0Eo6vnsViwKW97AFMVz4DKGlkReXF0pZdfj6SXR90N94j31XX1dQS7eTNp70B5b5mEgovXBKyj71Mce6/+65P8V+ZP98GeYB/3hLuhHvFhdy17LcFcdT19B8l7y8UPLl4LsMo9gcPZEXlxNPc17m6gj3vSXb9HfERdy15TsJC7tr1D5PXcte3V8j4EWBVz1teeZrZjyobIi6O+ryl3vUoMHe66B+UT8rb2GoKF3bXs7S9vQF1b35S8xYLSrKY3Ii+OKeRNuNva2woWc9e0t7e8EXcNe7W8rw04M+95VeY0NyIvDrivaXedPu6d7to94pPuNvY2gsXdNezNLm99tNirVSby8kHf1y53rbqPCHfNsnzTyXtPEf+Qiqi7rb1a3tcBnK2yhduQJgsiL4788na4W9tbC5Zyt7U3IO+9mtiHLJPuNvZ68hq1ytRLCnlgY0N1q7rdNWqd49xtqvl2u3ujHUiXu429nrz3TIIfUoGX93UBeT3c4re/7qDq3bMIfudojbMzyHuIl/fGGPLeu5eyt45Oulvbq+V9PUDkbQl3EI5zdVJ1Xz3I2ntY5BV5MVDlhe4+mzWXyJuQ955L4EOWJHlfHxB5W4wmrKqJddsD+83v6BWB6n1yAP9u8peUjPkaZ6Pcvd5E74e8bwCIvC2tvKqJtdEDWykG/1Q9Z6DXNXyXNfOO3TgbJ+91iMa6C/0yMe7eqAfS7W5try2v565jL0R3uXurDS7eEBB5Wwx5F1YP7AV0B160/2+zpajeSmZsnJ1F3kO8vDeYyHtL5E3TtL9uFqtND+yy+Zu+XrTC/1pX64h8jbNF3oC8bwmIvC3GzAsr3KYHdiUvZDqvjX2xtV775mucjZK36eO+3WVDOdWy4a0BkbfFltfqge3PvBUreG7L2DgbPfHml7ffA1sGed8WEHlbbHmtHtjql3bN224ePOJ85/iNs3FTbx2NXjXMerdB5PXxZ96mB3b1i9oYULsEda9rY8chX+NskdeX9+0BkbfFX/O2PbCrX8x93s2sudLLVWufd/TG2fOXd/w3bO8IiLyMQcpr9HHHqZsnMafMKG8p8s4NekpkXnnT6bzxlMiUu32yyt4ZEHkZg5PX6uOOXTXg8nlLJ5+3dzJ6VF2cvKUt77sCIi9j4L7i3EXLa/WIx6x4UfKWGU9SNO6CvO8OiLyMqe8rZtFQRyPdRclbevLGDw9PeQDTkNco9zRR6QaRFwdGXq+PO2rR0F4b464pWLe7o8tbuvK+J2CfYdOJT9kReXE09xXjLlJer0d896LB1rHT3f7yBu0t/boN7w1Yp4fLcv14mXn50N5XhLtNNMrdbnnLSMUc395yxHJPqWm3Di7uAlbdhvLqKU8Xeflg3NeIutdD0Rh3zWt3uuvqmJp2/Wj8h1Qkpt3Sk9esVVauFrLmZYR1X9PTrhWNcNe6dkjdVJXI0phzb3pFIofJq/WtpLUe1Yzg4gMAa+a9fPK5yMsI+74mp107OqZuvD6vJXBpTbteMBDyNh4dJRh9KyBuE1x8EGDJu3xEdhs44d5XcBbTxz097frXbudb+1EtPBDasEeM1vJ+CGA+sF3eoZUt6I3IiyN0X4PeBqL79IgPeRsNjjOhvPZWmcy8jBhmQbtUAH37X5uZvB8G2OWeRF5WjGBByFv6tZnJ+xGAvB5mDC9nOESLvLOBlzMcorW8HwmIvIzZdot1hqgfS/HRgMjLGF4THodoLe/HAiIvY3g5wyFa5J0NUzszztZEfnk/HhB5GTOhM+7buK0NBBFcfCIg8jImeF+PFOho3Euz0MvkzktHyS7vJwMiL2Pc+3pk0xEdyyz3o8NpPIlL04bdI/p4QzRY5J0Dzn09cklGx89FONHhFLTDeAoaoHpQYobdgRt9bBEKLj4NEHkZY91XT11XXys6fazHjI66G2kRr3jIJD1s2od03XXt1fJ+FiDyMsa8r0F3LXvT6eWuvbhDQ4FLl467vr4D5HXVdfUVeWdDe18j6lr2ttERdS17ITrprt8ivsJ117W3v7whdy17tbyfC4i8jMHIexSIjsvrHgjucNdrEV+G1HX17S1v2F3TXi3vFwAiL2Oa+5pwt7W3iU646zZyp8sbdteyt6+8MXcNe7W8XwyIvIyp72vS3cbeOjrprl3BqdNdu0W8oqe8ZxWpD5lwt7VX5J0NueVFuGu1iC/j7pr2+vKeNcQ/JEHeU0DkZQzc1w53a3shusNds5E7Xd64u4a9nrxnZwl76+iUu429Wt76WnatMtWAUbq+s0Hf1253j4zobnebkrs4d5tivmXa3bi8Z2cpeyE67W5tr5b3KwHrAOal2Z4mI0zlJXd910X8g985Xtf3bnmPSPLeoMl7iJb3IXvYDWdnSXsHyWvUKltfO9/Mw3t79J3aOLtqrFb9Yc/ZOHvu8rruuvb2kLeuVG2Xe4r+xMdlR+SteltVTYRF3knl/VrALrS3YUWdfnrAXV5K13dX3rG7vnOSt8Pdh6xhA767jr0jyrva4/q8vbq+r+xlw+hd31HuHjXRGHehqSXW3UOkvA8NkbfLXbBXy/sNgCPvaoLHtTnIi+36vtZTcMau7xh5j0jy3qDJe8hP3m8C7OLSk8y7fOXt0fV9s2zYiJux67vI68v7LYC1VVb3Nc8NV3npXd9L7XLGru/zWTYMWvN2qhuRt61VttzvKpH0ru8K9eWMXd/3RF7SA9t3APJ6uIXa9R12DNS+RMau74x2G7hsld0HRN4Watf36huuThZ5u76LvJ683wOIvC3Uru/Npm7Wru9zlzfD62GRdwawS8zpl1WWdBcnb2nJ+/2AyMuYOclb5kyJLO2UyMcAkZcxuHzekpTPWw7K540fpJgyGf2HAZGXMQxOUpSOvFs5BlSKvPMDJW9JkreknWGzW8QruifeoLzdHzJxeNg9gPljgMjLmOa+YtxtozHuQjRq0WDrGFQ359H30jv6/hOAyMuY9r52LxrM6O5FA1Jer0V8RXLa9aLxHzJSMMcvOiLyzoBueUtSxZxAI3eUu66OifVuIBr9IcuAvWWo3NNPASIvY8z72umuFd3pbhONcdfXsV0v5C20VwYL7f0sIPIyxrqvIXUpVSJjjdwR7oZ1DIobjY7iRhtz7rFbJBLk/QVA5GWMc1+PLIFLa9r1o9GN3GPqdtXnxQ67T3TA2zZY5J0D7n1t51v7US0c3c639qOaH52edgOXpg17xGgt7y8DIi9jgvc15G08OuStH92nRXyc7PL+JiDyMmZCZ9qlAui7rYEggos/AGqPjJpP+RF5cUztTMjbrQwkHezJ2x5kmwCRFwcvZzhEa3n/DACPzCPE+RF5cfByhkO0lvefAfDIKZuTGZEXx7ZbrDNE/VhaeYvKJJGXI7wmPA7RWt7/BWTmZQwvZ1y28Xin5f0fQORlDFt53Tca0w6k+G9AHtgYw1Te0Au5KQfiyitbZRwhvfYPR9/cgI9GDSScCtH30n3k/S+g9ghqPk2DyIsjlnB1HEq48qJvWnRFKzB5YuE0nsOJ0ni0vP8JyOthxiRTXcPpgi03bybtTeWXJwYSdTfRZjtND3n/AxB5GZM+ZODqa0W76nr6dpzsiQwk4W60zTblQ6KCRd45YN7XyOHESHTIXdtey5nkSXYjOOlupM025UPW3K2IBRf/Doi8jDHua9hdvyO6JuyuZa8RHTnN7gd3uBs6a0z6kJq7BsHg4t8AkZcx7X2Nuet1RK+IuWva20aH3Q2VEZlE3rt3E/aKvLOhua9xd92O6Iq4u4a9PeTtdNdvs035kBV3Pfzg4l8BkZcxk8gbc9drhY1w161sRvqQCt9d214t778AIi9j6vuactcpQlem3W3traPj7rpFS/nI+0+AyMsYuK9pd+2O6F3uNvZCdMpdW16cu1ZBVANdkzTxIStC7lr2iryzYdvyWrXOUfIeRuStK+rGP6Qi7K5pr5b3HwGRN0nVWird0FbV48/a9X0H5H3ssbi9PeT9B0DkTbHW/S2TbUEreXM2zp6/vI89lrC3h7x/D4i8CaDzWtXkMsqs5e1w1+ys1l/ex5Dyxtw17BV50azAyf8zOv+0PeDb/u55u753uWt1yul0t7YXI6/ZkBXr7mGHvJ69PeT9O0DkjaM7swNeD3izv3vOru/zkvdwCnn/FhB549QtL6vfez3gzf7uObu+i7yevH8DiLxxTHkVVg946ws5u75je0oj5S0J8pZMlw2WvEatJ7Xoyt45eybyWssGtwe89YWcXd+ZPLCNJa/3U+4h718DlUftAbZLsxF5NmYib/PAtlmFhnvAe8uGDF3fZavM2yr7K0B5ZBwdXletoHNPvXOR19gq83rAW1/I2vV9/vKO/ZLClNcp2oB9/9OfucirX1JcnVQbAk4PeOsLWbu+74C8I78e/ktAlXty5F2lX4eOwGzkVSLC62GvB7z5haxd35E9pXHylo68+KwynLqTJOb8BeDPvKv8R+DnI+92waRElqSUyJKQElmOKW/3h6zocBfk/XNg8yf9wJJ3lf1xTeTFstVkdK8VNnbVMKG8pV3raYJ5V+TFgpDX7curwEy8hjOdiwa8vF6bbcqHrEi7C/L+KeBslV08OEWxPZEXR3tfEe4a0Qh3O+UNtMJGujtIXtQBzD8BKo+g1tNyAa+KZLeBB8Z97XbXjO5214wOqsv56PsfA/J6mDHmfe1014rudNd2Jjntllh5w222KR+yJmxuKfLOCOu+BtSllHsqxyj3hHJ3BHnTwcUfASIvY5z7mpp2/ejUtOtHI1thY9zNL+8fAiIvY9z7asy5x16RSC/amHNvekUig84ExbWDEe6KvEIZua8hb+PRIW/j0YiBxNSdsj7v7wMiL2MyWtBb3u222dby/h4g8jKGp7zbbLOt5f1dQORlDFN5t9hmW+SdDWzlrQh5O8lAit8BRF7G8JZ3awMpfhsQeRnDyxkO0Vre3wJEXsZsu0s1Q9SPReSdA7wmPA7RWt7fAERexvByhkO0lvfXAZGXMbycGRY9zt6EyDsbdkRe93Xc0IEUvwaIvIzZCXlDb5OHDaT4VUDkZcwuyBvO4xk0kOJXALdWWdkcxcyIyItj/vKGc9AOe+egBeRtD2CWuohsZkReHLOXN+pu3x7xWt5fAtyj7+X68TLzcmHu8ibc7dkjXsv7i4Bb7unqKU8Xebkwc3mT7vbrEa/l/XnALfe0Wsialw3zlrfD3V4H5ZPyXj75XORlg8gbvHTxc4BTq2z5iOw28CF0X08rsNGka59VjHXpTnf79IjX8v4MYD+wVRU9pWIOF/z7etqAid5wT4G69lkD8tJRqmiEuz3K8vny2ltlMvOywbuvp6cJewMW3KvpvvbZWcJeZvL+NODUKitFXka49/X0NGWvZ8E9k47os7OUvSHB0uWice5Gq/neV0QuXRY/CcjrYTzLwmhtZTXFzts4u+b0NGmva8G9eyl77eizs6S9AcE6CvWj5I01AbhfE7x0Wfw4IPKiueqZMRYAAAdkSURBVHjwTdqXj7Z/eXsPA667rr0D5HXdde31BetqkTJE3vv3o/aKvD1ZVQ3WAP7y3nNJRJPl7WxONUDe+/fj9mp5fxQQebFcnRzoroKqxXWh+6xA0+u8jbMB313H3v7y+u469rqCdbcFzCrvjwAiL5Y1NMzWLa6rWbVuep23cTZAlNdz17F3PHlDDVmx7gb6Zd6/n7BXy/tDgMiLZVkpuyjrX6CHdtU3MGvjbGAX5Q212RZ5x6eaYau5s+nE1jS9zts4GxB564EUPwiIvEhWzW5YK2/zpbyNszW7KG/PZcMPACIvDugAf3nnwJ15FXkbZ2vYyuv9rLLL+32AyIvDaB/cyGv4lrVxNiBbZSJvP2o9N0tfUG/RNr3O3Dgb4CRvzpcU3fJ+LyDyorhoXk8sq7/tdVPsuul15sbZNWl3d+f1cOcbtu8GRF7GDEvMocjLKzEn6q7IOx8GpkSm3M2dEjlI3q6ssu8CRF7GDE5Gj6obiE64yy2f9zsBkZcxofsaUzdiQUTdYHRM3Vzy9ugRr+X9NkDkZUwPZ/JE97k00t3B8hrlntQrnkX8m8dB5MUxa3kznh7+VsA9w7a8dn7xIDrhtCciL46dlrdXj3gt7zcDTrmnuvZIXkReHPOWN0ePeC3vNwJO0ZEJTl+WIi+WmcuboUe8I69dq2x97Wn5yzaIvEjmLu/4PeK1vF8PODPvulhQDln1ROTFMXt5R+8Rr+X9OsAp97S+dl5enUjFHB7MX96xe8Q78pbWA5v6l8jLhV2Qd9we8VrerwG8rbKFe5AqAyIvjp2Qd9Qe8Vrerwbcck/qJYU8sDFhR+StCHnbcyDFVwHyepgxuyTviAMReecAL2c4RGt5vwIQeRmz7RbrDFE/luLLAZGXMbwmPA7RWt4vA0RexvByhkO0yDsbeDkzZXRsb0LL+6WAyMuYvZTXfR3nBxdfAoi8jNlDeUNvk91gkXcOTC3v8YbtDiScx+MEF18EiLyMGcGZWwpE9LFFhoFgosM5aKa+Wt4vBERexoQseFiDib5lko4+Pk7aO428UXedLtvF5wMiL2M8Cx426Yi+5RKPdtX19J1E3oS7dpdtkXcOOBY87JKK9tx17DWiQ+7a9oZ0vFuBGHYHdXTSXeuocfF5gMjLGNsCz13HXjM6oK6jbxsddtey19PxrkHHsJEfssNds1Fx8TmAyMsYy4KAu7a9RnTEXdPeJjrmrmmvq+Pduyl7s8v72YDIyxjTgqC7lr395I27a9hr63jXIz5s7IfsdNcobCbyzgHDgoi7pr1tdNRdw97+8vruOvb2kBfhblvMt/hMQORlTGtB1F3D3iY64W5rL0Sn3G3tZSbvpwJurbKL20X2k+8iL5L88qbdbew1dQy5a9sblDdWcbeKxrlbd18pPgVwDmDW7e3yMl95N3/MdRnCtarqr/6oV40lcnd9T7jb2ltHJ91t7O0rb9hdy96AvPFa53h5D4PyOkff89crm7W8uv1E1ZJiXTXFPMjfOHvu8ia6TPSR95MAp9yTqtmwDt6JMZmzvM9R/aAu3+iNr51fnahZeGW2b7UQeYFUf58+8n4C4JR7aqeWnMxZ3oNl1Sz42vubtWAzd31PutvYO4m8MXdNe7clr2odJmveOBt5q7+YlgvVevVxz7ijS3Fn7vpOkrfL3VtGdJe7tb3D5E32tFTRWHcPQd6PA5xaZbLmTbNxDn5Eyju1R1NZmLnr+5jy3pqvvIe1vB8DyAMbiY2q8FgAk6YWLnPXd5HXlvejAGerTD2DyLIhjppnVweqMJaSt/pBqfk0c9f3rS0bSlbylkF5jVpl8pIiiZL34gmf8X5Vu2E9k6rHtsxd37PJO80D2+jyfjggr4dJKHmvTt7sCdXuGLQLNrfK8nR9J8m7B1tlHwqIvCT041kBz2irqhT3oixzd33HuLtH8n4wIPKSqOSt9rIqX9eFu1WWp+v7zOUd+w2byDsDMshbUuQtR0vMibvbJzHnAwGRlzFbToksx0yJjKjbS973BURexowvb+nKO8tkdJF3Box+kqJ1FyFvOeExIOTEC/K+DyDyMsa0oNNdM7pz0WBEI9z1dEyp20tebI94Le97ASIvYywLutxFyFuG5I2VbWB89P09AJGXMbYFHe5a0WF1w3UbwgVzpi46gpp4Rd754FiQdteJTk67TnRA3enLPWHcBXnfDRB5GeNZkFDXi05Nu150atoNDYQ2bFw0wl2Q910AkZcxIQsi5oaiG2ntR7VgtDHnHntFIqeRF9MjXsv7ToDIy5gRnLkVEjcWHfJ2rIFgomPquvV5Rd4ZMJEzjAaSnHbr4OIdAJGXMfsnb1ePeC3v2wEiL2P2UN6OHvFxeeEcW35EXhx7KW9FwNs2uHgbwPDIOf2XEZEXx/7Kmwwu3gpoPVoVT5SZlxe8nOEQreV9C6D16NnnsmxgxrZbrDNE/VgKg+ZnJfIKs0XkFebHSleZFXmF2SLyCrNF5BVmi8grCF2IvMJsEXmF2SLyCrNF5BVmi8grzBaRV5gt/w9H/ZaS0BlsPAAAAABJRU5ErkJggg==)
Sur cette matrice de corrélation, on peut voir que TF1, France2, France 3, M6 et Canal+ parlent de faits divers à peu près en même temps. Arte se distingue et en parle à des moments différents.
ActusTVSelect=select(ActusTV, ends_with("Catastrophes"))
ActusTVnum<- data.matrix(ActusTVSelect)
for (i in 1:dim(ActusTVnum)[2]) {
for (j in 1: dim(ActusTVnum)[1]){
ActusTVnum[j,i] <- as.numeric(ActusTVSelect[j,i])
}
}
mcor=cor(ActusTVnum)
corrplot(mcor, tl.col="black")
![](data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAArwAAAGwCAMAAAB8TkaXAAAC5VBMVEUAAAAAADoAAGYAOjoAOpAAZmYAZrYFMGEGMmQHNWgJOGwKOnAMPXMNQHcOQnsQRX8RSIITS4YUTYoVUI4XU5EYVZUaWJkbW50cXqEeYKQfY6ghZqwiaK0kaq4mba8ob7ApcbErc7MtdrQueLUwerYyfLczf7g1gbk3g7s5hbw6AAA6ADo6AGY6OpA6ZmY6iL06kNs8ir4+jL8/jsBBkcJDk8NHlsRLmMVPm8dTnchXoMpbostfpcxjp85mAABmADpmAGZmOpBmZgBmZjpmkJBmtrZmtv9nqs9qAR9rrNBuAiBvr9JyAyBzsdN2BCF3tNR5BiJ7ttZ9ByJ/udeBCCODu9iFCSOHvtqICiSLwNuMDCWPw92QDSWQOgCQOjqQOmaQZgCQkGaQtpCQ2/+Sxd6UDiaWx9+XDyaZyOCbECecyuCfEiify+GizeKjEyilz+OnFCmp0OSqFSms0uWuFiqv0+ayGCuy1eezGyy1Hy611+i2ZgC2Zma2kDq225C2/7a2/9u2//+3IzC42Om5JjK7KjO82uq9LjW+MTe+vr6/2+rANTjCODrC3evEPDzF3+zGQD3HQz/I4O3JR0HLS0PL4u7NTkTPUkbP5O/QVUjR5fDSWUnUXUvU5vHWYE3W6PHXZFDY6fLZZ1Laa1XbkDrbtrbb2//b6vPb/7bb///cbljdclrd7PTfdV3f7fTgeGDifGLi7vXjf2Xk7/blg2jmhmrm8ffoim3pjXDp8vfrkXLr8/jslHXt9fnumHjvm3rv9vrxn33yooDy9/r0pYP0qIb0+fv1q4n1rY31sJD2s5T2tpf2+vz3uJv3u574vqL4wKX5w6n5xqz5+/36ybD6y7P6zrf70br70737/f381sH82cT928j93cr938394dD94tP95Nb95tn96Nv96t797OH9/v7+7eT+7+f+8en+8+z+9e/+9vL++PX++vf+/Pr+/v3/tmb/trb/25D//7b//9v///8Lnpq3AAAACXBIWXMAAA7DAAAOwwHHb6hkAAAgAElEQVR4nO2dd5wdyVaYexdZQ3h4h6QFCwwSUXqEIdj7hGU9osg5LiAesGRsbDDgcM3Da+KSc85cgsg5Z7CxyTkbG0ww0b6Wpv6mu/pUd1V1hXP6VtWtunO+30+7mtFRq2fqU6m6+tQ5nWDK8vDOXbHr+h+PPp0w9ELSHfoGLhyDkZvexi1OXmTohYTlLc7m8sM7l+4/vHM5aehFhOUtzsM73SNPnd/DCEkIvYiwvEyzsLxMs7C85ekXA5fub84Sh15AWN7i7B55ajs8hSGUJIReRFje0pzfOxO9kZj9L0LohYTlLc2weTsYiXxJgQy9kLC8pVHT6ab/kS70QsLyFmdcyG67u0lDLyIsb3ke3um67pGnEodeQFhepllY3mNh2FDbdt1FWh6zvMU5v9dJEFsIhNDhqe7Bzctic4ESIVje4mzwG1+E0IuY+8vylobwvozyau0i5v6yvKUZLEsfeiFzf1ne0hDSc0mZvBcw95flLc6Dm+j5lBB6EWF5iyJfOnSoLQRC6EWF5T0aLl7uL8t7LFzA3F+WtzxyQYB7E4YPvYi5vyxvcXYy0WaLSbchhF7E3F+WtzTn98YdBFQ+Lzr0Qub+srylefjccR7FnKTAh17I3F+WNwmElC41nW7xMy8iVBDThI8iA43lTQIlpWsnJ0fcSQp8KIkjyUBjeVNASemq4D3FsWSgsbwpqCGli5D7W8PtpoDlTUIFKV2E3N8abjcFLG8SSCldD26in6zwoaRXa0eSgcbyFmfXDZohH9jQoaTc3yOB5S3N8DZhALVVhg6l5f4SqHlXjeVNAz6lS02RyHJPyFBi7i/+dmveVWN5k0BI6cox81L31PC3W/WuGsubAlJKV541LwXC7Va9q8bypoCW0pVlt4EC5XZr3lVjeVNQRUoXPfcXc7s176qxvEkgpHSphSwCQigp9/dYMtBY3jTgU7oy1W2g5P4eS/VJlrc4hAd3Qigp95dCxec6Wd7STNtamEd9/PYXLfcXT83nOlneJFDKOWaCkvuLv92qz3WyvEmglHPMcwyI9J4Cf7tVn+tkeVNAKucIRmLeEOBDSRBut4pNQB8sbwrw2wKbeX6MCUQIJULZxah5V43lTQFlE19Np2lDBeVtHLX6ZK27aixvEioo50jJg6jgdlPA8u4NNaWLkCFLOlGfKQOtYlje4hAyZAmhpNxfAhVsAnpheUtDyJClJNNSTl1QoJzrLA3LmwZ8ShchQ5aUTEvK/UXfbp2v1gCWNwmUlC5ChiwpmZaQ+4u/3arPdbK8KSCldBEyZDMl05IKVVaZyTvC8qYgW0oXHkruL+V2a95VY3lTkCuli8Ca3N/Y7da+q8byJoGS0qWUIGTboB7YCHrlqj5ZGJY3BbSUrkv3t5dx/xwTQim5v7XPqFhY3tIMm0+7IUM2vsQghOaD0P6lNCxvaYbF6YNXf1r+SBea7ZmRsglYGpY3DZSUrjNpGsJIQigx9xd9u7RznYVheZNAeb016LU5Q60F0KHE3F/87VawCeiH5U0BLbFgc3lYSKJswIdScn9J5dIOvgnoh+VNQa6UrkxQbrfmXTWWNwWUmTdXH7Ycub+V76qxvEmglDDPdACT1k0rS/XJ0rC8acA+vmc7gEkrpJun+mRpWN7SZDqAma2QbsWes7wpIJVzzAQh95dyuzWvMFjeFJBStjMl5pDShNG3m+t0URJY3iRQ9sjyJOaQwN9u1ZuALG8KaCldB0/MIdwuz7yMRqbEHNISgwCveY8dytuETIk5pNxfyssP3m04ckhvE3Ik5tCWGLmqT5aG5d0fajnHPIk56CUG6XZr2AT0wvKmgFbOMQtrcn8RcN0GpgCEJQaFKvfIAJY3CfiUrvE1woObqC7F6NABwmoEf7uUTcDisLxJQKd0Da9w9f+nCaVScyt3AixvCvApXdNZsHgFO0KooDZfwReq5GNAxw46pUt7eI8tTgmh8hYI21+UQpU176qxvEnApnRpD++xuYwQSt6tw95uvp4uSWB5k4BN6dJWALG5jBAqwym7dfgMtAo2Af2wvGWZn5GilRAIoRcUlrcsU+5BPAmBEDqQKTGHcK6zOCxvEvDmjFlavQ/xRSQhVNByfwmi17yrxvImgWDO2F4H5QIhlJb7i79d2rnOwrC8KaignCOpKB8lHz7Tuc4UsLwpIGWN54GUmEO4XVJPl8KwvCkgmNM//IynEpBz2Q6bCU5IzKGJnqWnSxJY3iSgzRkK3Y7TWFzeTdedPXiN+9i0REJiTqYMtNKwvGlAmjO+8z2/Nyw4Y8HD7u5mLO2cPjMHL3rFsLxFUZPo8LiPeT384NmDvId81M+0fZwEljcF6NyrKdtmcxn3evj8GwSyji4h95eSKpardEQKWN4U4HOvVATiH+3pYoiUSFruL6VQ5eE3Af2wvPtDyr1SFRDO78VFH7cZdoiaCZTcX9LtVrAJ6IflTcGhc69W5v4ir4wuHVEalvcYIOX+0qh5V43lTQLpmbwPvnR/g3u0woUSc39Jt1vxrhrLmwTKM/nukae2wwtXhL3oUGLub81bCARY3hRQnsmHVeQW85KCEkrL/aUk5vABzGOHltJ1V1qDObqLDyXl/lIKVfIBzGOH8kyuplPEv++EUFLuL/p2+QDmRYDyTD4uZFEVbwmhJPC3e+hNwCAsbxooz+TyWR+X50gIJVHxFgIBlpcJwok5TF4yNlmteVeN5U0AtZzjsIGAPhKMDcVDuV1OzDlyiOUcx70D1KkwQige0u1yYs6RQyzniO9sRmqChl6ckm6XE3OOG2JK19TZjNAEDdn1HbU4Jd4uJ+YcNdSUrnHbFrXkJISiF6fU2614V43l3RtqShelsxk+FL04Jd9uvbC8+1NFOUf84rSK200Cy7s/xHKOmUAvTim3S9wELAzLmwBaOccxhQb1NoEQSlic4m83Y0+XFLC8KaCkdMm6dUgIoRTQt0vbBCwOy1saggeHVoa4q1Yclrc0hIaopN6ppCUG+c/nkxSMUM9AqUOJSwzcwc7ad9VY3uJgiojQQ0lLDOzBzsp31VjevSHmIxK6+VIa/1KWGOiDnXVsAnphefcHUbmpxE3glxj4g520TcDSsLwJqKJwOGGJQToDStgELA3LmwKCOKSDNStCUbsNuQ52FoblLQ7hYE22Mzi5DnaWheUtDamP1KHP4Az7b0NmW52es7yloZSroZzBoSwxsDWcpLtDZwHS65JisLx7QxxYwsEa0hkcwhIDW8NJbgSPe738evg4kfJqaQAxCAdrCKH4JQa+htPwlcEXxq+HjxOqvJSDNfhQUq0/bA2nYdbd8sx7xJDlzQK11h+Kh3cefVoG76p8YmN594YoL0Fz0t8I0hKDkF3R1fuWguXdG6K8uVIiKauRKlewdFjevaEuGwjmZJKM9DauYljevakjqywHKr+9Vs9Z3uNg1THf8+dFazxU+aCmYHmPgjXHfLeY6bSffKvMhpSwvHtDeazK9bRGPua7wyfmbKpcMgywvHtDlhf3cEd5DqS2b71Da5HSz9E1pjawvPtTgbykY74buW9LO1b/4GaNsy/LuzdVyIs/5gu3S5B32HSo0V2Wd38oW2WZ5CUd893RZt4hvMpFA8ubgApmXuox3w16zbup9dXwAMu7NzXISz7mO/xzEd9t2Na5XFCwvHtDkxe9xCC+uKMf891Fr8tv2I6eOo/IoPiPFRpJgOVlmoXlZZqF5WWaheVlklKy2yDLy6RkOPVW7A9jeZmEbLvX5Jm3bp5hevpvRKchvzNff5+XDZXzTJbQBi/bnQCzRixv5bRnWabLsrzt4RhjOYS40GcNIC9LuIMUsWR5XxBgeZvBHOMTk1DoKO5E8LKS04HoHVDuNlXoKO8LASxvMxhjfGLjD33WAn/s6O1M4A6Aaz3Ruw3jCr064IntXhhgeZtBG+OFupa+ug5Ld017DXVObXx3MHDNwH+3hC9MclXHEcvytsc8xk53dXvnUJe6pr6aOgt1LX1Ny65dC9m7Wt6rNovY7kWAw2jE8q5AjbFHXV3fSQefu5q9szpOd3V7dctsdW19HfLeGvF+YZKFu6a9Ul71NbC8zQBjHHB3slfp4Hd3tlfFetTV7dUsc7lr2GvLe0vH+YUNONQ19ZXyvijA8jYDXd6Qu5O9cXlPrTsQPnd1ey15b93y2zuHetzV7GV522Qc46C7yt4V8gbcneydLPO5q9lryHtryeILEwF3Z3ulvP8QYHmbQY5xxF2wd9Qh7K6yd4wNuqvsVZb53Z3t1eV1uKvbS5b3MYDlbQaqvDF3wd788jrd1exVoQF3J3ulvOquWN5mGMYt6u5oL1neiLtgL1gWcneyly5v0F1lL8vbJs/g3D0ZQxHujvYOsXF3T1VozF1l7yyvx93ZXrK8LwawvDi0cuGqo5g8eq5e7chiA2bNo53rbLrzk/AnRM6y4+Q9ySLv6Xp5ve5O9o6hEXfBXinviwMsLx7ZUtSsy6XOn4ylYzZ6NRinjAFDWV60vC8BsLx4lvKq8i9Qq+v8nuE1yzuQQd6XBFhePAt5+/l2LEyraiv//+GDjVxSDF3L+89uYH0xfNjdlZ/8pue+76D8bqw69+DZ73dT/uThnTe5OcZuoR7d+HumP54mL8bdEvIG3FX2srwFcCwbxqrKY18RQDYf7dcPciZVH8ipedfdHT45dnDoP+h/NvSc7n8yftDHbeHH0KNE/R514WeQ7p7g5X2WvCzK3VMBlsXcBXup8sbdvapiu5cCWF48Xnn1qrOyw+7gnfRUfaAqh4/ynqlCjLtHnhpb6fRTt/x0HzterP8NdrVxpLwnWeQ9Pbi8V2d5rwAsLx4lr7bZsJRXfrLr7k5rWPhgNHGU965aJff/HX/SWyw/3f9nbLgrLTbtZXkhtnscYHnx4JYNQ6+m58PMO30wbqXdteXtfzpeVJd32omD36NIv2wQOZYNIv+yQZO3/x6pv+L9AqxI/7Yjk3d6YNt140yqlg3TB5LNaKg18y7kNUZA233LsOYdL0uTN9MDG0XelwY6+VABzQWG71+0NUYKjk1ebatMfmIHk+z0gaT/zCSvtebdDGveu1PIjPZRm1tlWHkpuw0vA3TyoQLeEw3/k88YuTk2eceXFOf3YF/h4Z3+w2EhPH0gp1M5vZ6Bj/NuQ/9LSvZx+hhi+xlX/R71R7Upb4593n8EdLqx5/f6yQLfiXM9Ryfv+PpY/kK/zH3kqeFf+03/8fSB6v3Yf/KbxslU7fPehO3dSV65zztO2Z2+imN5hS1v12nTbb/8LeFuo/JmAddIZyB5Yo7IkZgjMskrNHnV54yZd/hHjde8ZckmLyUlkiRvOJ13mRIZc5eeVfaygCEvr3nLQ5IXkYuOz+cV+HxeYeTzZkpGx0y8o7wvB/ADWzPIMcaseJUOKHfTnqQQe8gbPAVknKSY5dW2yob9G1421ApGXqHLSzmAiZl4ZyHj7uryJj/D9o+BTj4oD8JuzvglRdWMY4xxFyOvwJ8eVu5qQkbdNeTd+/SwMOV9eYBfDzcDjHF80TDrgHB3io0uGgwhY+6a8u5Zt0FYdRteAWB5myEur7Dl9ZcqW5Z7is67ppAOdYPlnvzu6qFude2KOeqPZHmbQY2xX91lrTK3vcJdaC/mriVkYNpdxEqc5tqhoWlXsLytMo9xeNoVpg7BadeMdanrrxIptDn3WroSp4FpF2K76wDL2wzaGAenXWHpEJp27dhTQ2ChT7t2KODw1hvrwQ6dpNW3GbTY7hUBlrcZjDE+MQQW+rRrh476CvgRKes/z7fGo5rzsvi7pYdedYirYrtXAljeZjDHeJ5v9W0GZ6jE5a0v1uGtL9TLnvKGYlne9nCMscNbXyjlsglCs8r7ygDL2wztWZbpst2rACxvM7RnWabLdq8KsLzNcOiuv3UgWN4WaW+KzHTZ7tUAlrcZ2rMs02W7GwDL2wzLMaZsfxF2JmTJfOxlfeSU97UAlrcZzDG2XpuFQil9ih8zCF+WcLfk0KGmiC+W5W2PSMKCL5TSp/ixBYHLjqR/Pfy4gSO2e23ArJgzFBg6E/lheVegjbEzVcwdSulTvHTXtNeTmHMtZWLO4zbL2O51AOMY0FCSAIoT5IXlXUE8SXcZSulT7FLX1DeUEonoPfyEJPCFCYe7lr5S3tcFjAOYRQ5fDrC8K0Acj7BDKX2Kfe5q9gaT0a+Fk9Gf0PB8YcLtrmGvlPf1gMXR9yKwvCuAMfa7u+wnHHDXPjLkd3e2N3IMKNB7+AkL1xfmU9fQ15RXr5izu/Sxek3NfLC8KxjHOOTuop8wXt6Qu5O9s5Bud729h213TXvJ8v4TwJh5d6okXG5Y3hXQ5Q26a/Yppsnrc9fde3iprmmvCvW7O9sr5f2ngCnvpfuy2F52WN4VyDEOu2v2E464qxcoCbur7FWW+d11VsxxyqvZC6Ehdyd7pbzqEouKOSxvrQzjFnPX6CeMlzfmLti7Tl63u5q9e8hrbJWdCbuNRxZY3hVQ5Y26O/cppskbcnfZe9jn7mzvGBp2V9kr5X0OYFbMGV5S8ANbpTxDq7mLcRcqSsbdHe0dLQu7u6jPi5Q35i7YK+VV5R/49fCM0VQYg+x4cjb/NHvv4cTynhSQ1+/uZC9Z3tcHWN6ZDbGwtizjv+2GJVeh3sMsL8vrgSrvWFp3KKtZqvcwyyvl/WcAyzszyftw7A4MfYMf3nnTO3NT4Mtibg4sGTbGC/Uexri7Ql6Mu2vlDbmr7CXLextgeWdmeWV34LmJsNYUWHY+gObA8LsefbpU72GUvNAYEOfuCVrexwRYFnPX7ICJlTfu7mivlPefAyzvjCbvmdFEWG8KrJq1qi3FHXStUuTsPZxc3hOWl06l8qrNhmn5OTcRHhqtQveIqTnwGHG5XO9hlneU980AlndGm3lh6Tk3EZ66BI/t0dSO2rjLUKr3MErdPMsGgZZXZJJXzPK+BcDyzpjyGk2ElzOvZAvPbYV6D2Mn3hxrXrisqOGB7a0AlnfGlNdoIjw2BT6bf1WyVfNiqd7DBHmPeavsbQCWd2Y580ITYa0p8LBCUM2B5x2HUr2HWV6W18NyzSv7BptNgdU+bz+nbsfFqdSrTO9hllfK+3YAy3tgSB0wEermScwRaHkXvYej7uLkFZq87wCwvAeG1r4VN/FS5U2YErnsPYyUN5bOq6dEvhPA8h6YtPIKSj6vQOfzirqS0Vne5pBjjHKXfJIidoQNfQzI2Xs44i5GXmHI+y6AWTGn1Ol3lncF4xgjFg1IeY0+xYhFgyZk3N2ovIsvLHh42DyA+W6AeQxIppns8w1GwvKuIC6v3U8Y4y5CXoE9+u7tPRx0dw6NLhpA3icB4wCmELsX4Jm3VmCMEe5OOsQXDVMswl1dyJi7prz7FR0Rfnm1o+/i/HnPZ3lrRY1x3F2MvIs+xXF3DSEd6mYq9zSvGSC2e0/AqJgjtme85q2WaYw96roK7fnVXfYp9qiLLLSH6D3sNNcKDa4ZILZ7f8CYeR++4X2Wt1q0MQ5Ou2ZoeNo1Y4PTrlgIqc251+wikS55EV+YWJTndZU4/UDAkHdzl3cb6kUf49C0a4UGp10rNjTtCreQDm+9sR6sUG2pa027YiHv/MAm388XKdzA8q7AHGNwFtNPmNKnGJx9zNmYgiDkHvJKHN5Osd0HA/ZWGc+81bIcY5e3rtB5vtW3GbyXdXnrCfWzp7yh2O5DAbNiDstbMXvq4PA2xWUTxJLl/RcAvx5uhvYsy3TZ7l8CLG8ztGdZpsuyvO1x6K6/ddB/I7p/BbC8zdDeFJnpst1HACxvM+ynA2ULIcGzXVZ5/w3A8jaDY4xPB+Kh1quHUKw7ecd/B5S7pYRe6fHFsrztYY7xqUkg1PHS1xu7fBvnvwPK3VJCrxg4YruPBljeZjDG+NTGG+pMt3HHuvMgPHcAXB+I3W0YI/SKzTK2+7cAy9sM2hgv1LX0nUO9iY6OWF8GmusOJNd1/HdL+MKW7lr6Snn/A8DyNsM8xk53dXvDaY6mvZjc38UdDFy38dztBFTVDXxhTncNe1neNlFj7FFXtzeWYK7bizoyZF5WsnDXtNeW97aO+wvzqGvoK+X9eIDlbYa4vKdWaMhd+1QlUV6Huqa+lry3b/vtJcv7SQDL2wwwxgF3J3vp8gbdNTu9Dnjc1ew15L29ZPmFBdyd7ZXyfirA8jbDOMZBd5W9Y2jYXaMna8RdvcSDhCavw13dXggNuTvZy/K2CVXemLt6DSeivF53Z3s1eZ3uavaS5f0MgOVtBjnGEXfBXqq8UXfnTq8DAXcne8nyht1V9kp5PwtgeZthGLe4u6cqNO7uVLcU466qyTdAk9fj7myvDI25C/ZKeT8XMMs9PbjJvYerBSXvaSZ5TzR5g+4qeyd5ve5O9pLl/QLAOMMmK9EbLREyUae85N7DYyFp+bMyvYdZXkterdzTrv/un9+7sKeHqe1bZefW8S97od7DLK+U94sBs2IO5nuYguOQF7oBXjYaqmi/elB5Me6WkDfgrrKXLO+XAmatMjF3ZcpK5fJSeg9LeQv1Hka5eyrw8o7N1XDunighY+5eV3crQcobd3e0V8r7FYAt7/YClzhd1XtYtQiar5Kv9zBG3tNM8p5g5b1+MHm3JR7XGpAX23t4B5Nmmd7DLO8o71cBZn3eMvNutfKu6D0s17mleg+nXjaIlpYN4oqK7b4GMLbKVHfd7FQqL733sJDeleo9nHzNO162Bnkx9qrY7hsBo9zT5mIX2qP3Hh4YPl2o93CLW2WZ5T0ALcgb7z0M/+L3caV6Dzcob4593m8FWN4Zau9h+RvAwjK9h1leKe+3AyzvDLX3sJh2cUv1Hk6bmCNWJuZglrzJ5R2f10Z5vwtgeQ8MrQMmQV5CSiRR3ixZZRF7wV2Wtypo8kZz0Qn5vIKQzyuw+bxidT5vzN45tvsegOU9MER50x0DEnscA4q7m1heNfGO8n4/wPI2A0JeYchLOICJmng1IWOLBkNe5Bm2gL2Tu6O8PwSwvM0AY4xwFyOvIJweFtjTw2Kv08Mhe/XY7kcAlrcZ1BhHFw1zKMJdFRtfNBhCutXNU7dBsLzNE5N3mnc1HeLuIuRddHqVhKZdO1bgKuZ4SpVdsWK7HwNY3maYxzjmrhbqUddRaM+vLqpWmUhSq8xtrxXb/STA8jaDNsYudd1VIik9WcPTrlgKOUlrPKq5Y3FfmFiU572yjO1+BmB5m8EY41NDYKFPu3ZoaNo1Y4PTrn1Z4LpDXF+sBytUW+pa065geVvFHON5vjUe1VyhhJ6slE6vlLslhzq8nWK7/wqwvM3gGGOHt75Ql7eO2Hm+1bcZ/Jf1sqe8odjuFwGWtxky6mDh8DbFZROEjvL+BqA00srmFIDlXUE5eSu/7EJeo/V7dljeFbRnWabLdr8HgEb6KcwCsLwrOHTj1DrovxHdnwNdJ0WyKo/khuVdQXtTZKbLdv8PAI1Y3vppz7JMl2V526NOyxLsTJDl/b8Ay9sM1cnrTj3b+7LR2O7vAH5gawbHGF/rQYaSYlF3sHyXnOSy8djubwHeKmsGc4yvGQRDSbEDmHwFdxZP8LI+XKE3enyx3d8ASiMom1MIlncFxhhfuxYyMuR5OBbbT9iXP+m7LPoLG72dcMUu5C0Ly7sCbYxtHW0ldR0osdh+wh51dX0d8j5nJPSFCcvdhb5S3r8GWN5mmMfY5aNhZMRzXyy2n3DAXXefYjGZ6/LXCLXdteyV8v4VwPI2wzTGbh91I2Oeu2N9pyoXoSvkfc5z/PZqoUt1LX2lvH8JsLzNoMbY56NmZNRzV6zH3eVx9qC7yz7FYqGupe8c6nZXt5flbRMYY7+Ps5Fxz5exaHkj7i76FDvd1e0ly/t/AJa3GTLL63XX7idMltfprmbvFOpzV7NXyvsXAMvbDOMYh3ycjER4bscG3DWL50XdNfsUC7y8fndne6W8fwawvM0gxzjsozIS47kZi5YX465eUdLr7mwvhIbcZXlX4OjKajMW8y3UvjWbvEF39YLRCHlPDHm97k72YuS9ocV2fwqwvCEcXVkXjD0ACrVvZXn7H93/BljeAK6urAumxikl2reyvP2P7k8AljeAoyur1sx1+sTdYu1bG5Q34K6ydwyNuHtjjmV5EXi6skKHVa1Na7H2rVEfwUiU53pszN2ptxrO3ZPk8t7Q5f1jgOX14+nKCl1WtTatxdq3Hkre6zR5TzLL+78AltePvyvrw6mhz0JeM1Ckbd/K8kp5/yfA8vrxd2WV69z5E8Xat8aXsQR5RUvLBmPN+0dAN47SlIn+4GaJ/q1tyOvtyjo1c1WfKNa+NdcDW8PyzmeAZM/R4LZmEhqR19eVVTqmf6JY+9Yj3m0gbJX9D2DQSDt9uZMNSbNPvY3I6+7KOs+88ydKtW9tT94c+7x/CAwVc6xz79Hd8v1pRV5HV1Z9zTt/olT7Vpa3/9H9ATBoZMm7Db/LT0Ez8uaH2EQwoiNBXoGXV9DkFevkxWeV+eXdFjhFzPJOUDtgYnxEpf6uTIkky4vOKgul85ry/j4w9DE35N3mf1xjeTWo8uZKRkdMvMh8XrE2n9d/kOKGEdv9LmA9sBWZd1neVUTlFQR5l7Fxd7OfpMAeA/odwNoqG3cds8PyriBm5OzjrAMlNrZoQMq76FO89xk2EZQXyuVszmQSVIG3FCzvCiJGaj5qOhBioxOvCsW4a8iLPj3sslcsj77/NsCvh5shbKTuo64DIdatbtG6DY6COTcWsd1vASxvM4SMFIRyT4HY0LQrUPK6+xQLfMUcTLmn3wRY3mYwxjgwldqhlNjAtKuH+tXdv1bZpK+zUiTL2yZuI8efBENJsZO0xqPaIjQ87S4vG8IV6hJXxXa/DrC8zeAYY4eLvlBK7HWHuHZocNr13IIHQugo768BLG8zZNRhVWiyPsVkeX8VYHmboTZ5k/UpJsv7KwDL2wzVyStxeJIlkHsAAAnsSURBVJvisqFYlrc96pT3AJftfhlgeZuhPcsyXbb7JYDlbYZDd/2tg/4b0f0CwPI2Q3tTZKbLsrzt0Z5lmS7b/TzA8jZDe5bZeHYmyPL+d4DlbYam5XWnnq27bPffAJa3GVqWd/kueY/LmvJqFXNEkf7ZLO8K2pXXncWz+rLdzwHWMaDhAz49XCf7WfaEJPllMbG+/Mm1l+3+C2AfwBS7F+CZt06WY3xrJB76hEb8srdHMHfgzdGN5/6e+A5dBJHy/ixg1204f97zWd46scb4lk4w9AmL4GVv64TvIHQ6gnJkaL28Vrmn7RmveSvFHONbtwL2GqG2u5a95mVv3w7Ya1kWOpe2p7xPjix/Qcr704A18z58w/ssb6XoY3xriSd0qa5lr37Z20t8oZETwSo26K6j06vkyRnXN6H7KcCqmLO5y7sNtaKNscNdw96YvE+4Yx3uGvbqlkVqMUBsxN1Fs8yBJ02W34TuJwDzgU3WOuS6DXUyj7HTXd3eOdTtrm7vHOt0V7dXs8zp7rKSyAp5n7RZfBO6HweWW2U881bKGnl97mr25pQ36q5ZDXVg4a5p71LeuWKOYHmrZRpjj7uavavk9bir2Ttb5nHXKkCGcffElNfhrmGvlPdHAX49jGfTaU1/rCbCpXoPi4C7s70q1O/ubK+K9bo72ztZ5nXXrFuKkPdkjbw/DLC8aB48+43nl4+WasV6D4vjltfprm6vlPcHAZYXzXZsSjViqlau97BgeVleOuf3Lo/91h4+933lnkwvquoSXK73cNDdyV4IDbk72QuxAXcne5VlAXeNWv1keT3uavZKeX8AYHmx7KAt8Ng7eOx8Al2Cy/UeFi3Ji3P3hC7v9wEsL5aNVPZMqP9AE+Gh11q53sPi6OQ9WSHv9wIsLxJo9tcLNfWc0roEl+o9LFhelpfOdmoJPMurPlWu97A4OnnXLBu+G2B5cYCfwyrVmnkHyvUeZnl7e74TYHlxKKW2Wg/MeXOrXO9hkryUrbIM8mbbbfgOgOXFsYG5tXcNLDsTU5fggr2HBe/zsrxE5lZ/m0c/Tsq3Ufu86kmsTO9hwfKK7tsAlvfAkDtgUuSlJOYcRt5ViTnfArC8B4YuL2eVfTPA8h6YFfK2k4yOcpeez/t1AMvbDKvkpRwDSi9vppMUhrxaxZxhY9x8XZQDlncF2hhH3I3K67lsxF3Dsoi7OHkXDeIHQu6O8n4tYB8D2ly6X6B5Nsu7An2Mw+6aOoTdNWLD7pqXDburYhHu2vLGTw9/NWBVzFHlGzLD8q7AHOOAunZo0F0rNqDuwrKAunNsdNHgkDdWt+ErAatuQ4kDbILlXYU1xgF3Fzr41V3EBtxdXDbgLkZeZ4P4CKa8ZsWc3aWPLXDyneVdw3KM3eY6QymF9tzmui/rNleP9au7ulbZlwPWzLtTrzLzwvKugDDGVB3yXjY47a64bPdlgFUxZ3fpvji/x0VHaqRZeWN9isnyfglgPbAN/2N566RdeSN9iveS19gqOxP28ZMMsLwraFneYJ9isrxfBNgVc4aXFPzAViVNyytZervqst0XAvx6uBnalzfRZbvPB1jeZjh049Q6ECxvi7Q3RWa6bPd5AMvbDO1Zlumy3ecALG8ztGfZHqGeZ7tR3s8GWN5m2FOHx3uQsVd69ryDPe7Wmbyjx3afCbC8zeDQ4epAPPRxg2DsFYP4HVDuFhe6fBtnx7K87WHpcFUnFPq4jT/2ik3wDiQ3ehB3GyL8JtnUV8r76QDL2wyGDldtvKELdy19tdiFu5a+lpA3dIJ3i/7CfBloRmz3aQDL2wy6Dgt3TXu1UJe7hr1zrMtdw15TyBsW/rvFfmEedXV9pbyfArC8zTDr4FDX1HcKdatr6Kti3eoa+hpC2u5a9q6QN+CukfvL8rbHpIPHXc3e/PIu1bX0dcjrO9tDlveTAZa3GdQYe92d7VWhfndneyHW7+5s7yyk213d3oW8/lOVEBp0Vz/v1n0iwPI2A13ekLuTvWNsyN3J3j3kjdViQJZ4GOX9BIDlbQbQIeDuZG9ueX3uavaa8kar4LC8x804xkF3lb1jaNhdZa+MDbur7FVC+t2d7TXkjdcfQ3Z6HeX9z4BdMefBzS7/+UuWdw1UeWPugr1DbMxdsBeEDLnrlNfhrl22FOOuqmvW/XvAOgYkixvzMSAv/V/zsRjWThbjHTqlXVa/UKR9a8RdsPeA8t7Q7xZII+/UZLv7d4DjAGaBqjktyzsaKmtL72R3q8HeYu1bW5TX6a5Vqn+1vJqxw8nhnTmB5KBhef+B/EY9fIM3unR/7Csx/ENVrn0ry9vb8zGAVTFnnlqy0rC8lzeyE8ql99ErEpZr31qBvBF3b2h3K/G4O9tLlvejAGvmHRp+8JrXTy+v/Idpc7YZGv983J1u7KRSqn1r3N2rKjTu7mjvMxh3R3sx8t5YJS/OXaii3n0kYFXM4TVvmF5T+BZthm4pjz4txS3XvjUq79Ujllc1X+n+NcAPbCRk63f5WDDIK5/PrN7DA/nat7K8wpJX2yobJgReNvgZ5tnt5aE8yyCv/Eb1mpVr35p02SDw8oor6rJ51ry0ZcOHA3bFHH5JEWTQ9MGr/6f3fkpsoNmlGOwr1r6VIG9TD2w0eT8M4NfDJAZ5z++9Sb+4Ug1X5XK2XPtW1Kqhrq0yjLy03YYPAVheEnKBsBneqg39XLeyIKy0sFT71gblTb/Py/KuQsorp9LNuN+leieVat/K8vb2fBDA8h4YYhNB1JIXJ6/Ayzs+r63OKgu7S0/M+QCA5T0w1A6YmIkXlRIp8CmR4C5CXlFE3vcCWN4Dk1ReYchbPhl9djd9Pu/ccJDlbQ/QAeEuRl6Bl1dNvJqQsUVD3pMU7wGwvM2gdIguGuZQhLsqFuFuVF7hlXf/M2xat8zu3QGWtxmi8oqFvEWPvovw0XefulMoxt1R3ncFWN5mmHSIuhuVV+DlFdiiI/q0a8eOuNWdQ+OLBpa3VWYd3Oq6KuZ4SpXhyz3NawZhC+lf7y5jUV8YYuId5X1ngOVtBl2H0LRrhQbXDGZscM0glkLO64U0hfb86pq1yt4RYHmbwdAhMO3aoXZ53kCJUxGYdheXHXGJ64v1oIWGp12I7d4eYHmbwdJhklbfZnCHaktda9pdxGpLXWvaXV6WcrfY0OC0C7Hd2wIsbzM4dLjqENcT2kxZ/2CnV5a3UVbr0Nhl5/lW32bQYru3BnSN4ChQAVjeFVRnWc7LOrydYru3BDSN7DNTGWF5V1CnZQe4bPfmwKzRtntNnnlrpj3LMl3WIe/X3+dlQ9UcuutvHfTfiE5j+u6wvEyzsLxMe2zHQp0sL9MsLC/TLCwv0ywsL8NEYXmZZmF5mWZheZlmYXmZZmF5mWZheZlm+XupbzQxLTNFmQAAAABJRU5ErkJggg==)
Cette différence entre les différents journaux est plus faible sur d’autres sujets comme celui des catastrophes.
sample1 = sample.split(ActusTV$ArteCatastrophes, SplitRatio = .7)
train1 = subset(ActusTV, sample1 == TRUE)
test1 = subset(ActusTV, sample1 == FALSE)
dim(train1)
[1] 113 85
[1] 49 85
rf_classifier <- randomForest(
ArteCatastrophes ~ .,
data=data.frame(train1),
importance = TRUE
)
rf_classifier
Call:
randomForest(formula = ArteCatastrophes ~ ., data = data.frame(train1), importance = TRUE)
Type of random forest: regression
Number of trees: 500
No. of variables tried at each split: 28
Mean of squared residuals: 514614
% Var explained: 34.1
prediction = predict(rf_classifier, newdata=data.frame(test1))
On voit ici que si on cherchait à determiner le temps d’antenne des catastrophes sur Arte, on aurait seulement une explication d’autour de 25% due aux autres chaines.
sample1 = sample.split(ActusTV$France2Catastrophes, SplitRatio = .7)
train1 = subset(ActusTV, sample1 == TRUE)
test1 = subset(ActusTV, sample1 == FALSE)
dim(train1)
[1] 113 85
[1] 49 85
rf_classifier <- randomForest(
France2Catastrophes ~ .,
data=data.frame(train1),
importance = TRUE
)
rf_classifier
Call:
randomForest(formula = France2Catastrophes ~ ., data = data.frame(train1), importance = TRUE)
Type of random forest: regression
Number of trees: 500
No. of variables tried at each split: 28
Mean of squared residuals: 1652458
% Var explained: 82.36
prediction = predict(rf_classifier, newdata=data.frame(test1))
Si on cherche à expliquer des variables liées à France2, on voit à l’inverse qu’on peut plus facilement l’expliquer à partir des autres variables.
Dataset IPSOS
Le second dataset que nous étudions est le dataset IPSOS, qui indique si sur un échantillon de 1000 personnes, la population est plutôt favorable ou non à un candidat (plus d’informations peuvent être trouvées ici https://www.ipsos.com/fr-fr/barometre-politique). Pour ce jeu de données, nous avons manuellement récupéré la popularité de 3 personnes politiques importantes: Nicolas Sarkozy, Marine Le Pen et Jean-Luc Melenchon. Nous les avons choisis car étant présents dans le champ politique depuis longtemps, IPSOS dispose de nombreuses données les concernant.
IPSOS <- read_delim("IPSOS.csv", col_names = TRUE, delim = ';', col_types = cols(MOIS = col_character(), THEMATIQUES = col_character()))
The following named parsers don't match the column names: MOIS, THEMATIQUES
IPSOS$Date = dmy(IPSOS$Date)
IPSOS <- IPSOS %>% na.omit()
Date Nicolas Sarkozy Marine Le Pen Jean-Luc-Melenchon
Min. :2014-09-01 Min. :23.00 Min. :20.00 Min. :23.00
1st Qu.:2015-09-16 1st Qu.:28.00 1st Qu.:24.00 1st Qu.:28.00
Median :2016-11-01 Median :30.00 Median :25.00 Median :30.00
Mean :2016-10-14 Mean :30.47 Mean :26.15 Mean :31.26
3rd Qu.:2017-11-16 3rd Qu.:32.50 3rd Qu.:27.00 3rd Qu.:33.00
Max. :2018-12-01 Max. :40.00 Max. :34.00 Max. :56.00
Plot Data IPSOS
colors <- c("Nicolas Sarkozy" = "cornflowerblue", "Marine Le Pen" = "brown2", "Jean-Luc Melenchon" = "darkolivegreen3")
p <- ggplot(IPSOS, aes(x = Date)) +
geom_line(aes(y = `Nicolas Sarkozy`, color = "Nicolas Sarkozy")) +
geom_line(aes(y = `Marine Le Pen`, color = "Marine Le Pen")) +
geom_line(aes(y = `Jean-Luc-Melenchon`, color = "Jean-Luc Melenchon")) +
labs(x = "Date",
y = "Popularité (%)",
color = "Candidat") +
ggtitle("Sondages présidentiels 2017 (IPSOS)") +
theme(legend.position = "bottom") +
scale_color_manual(values = colors)
p
![](data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAArwAAAGwCAMAAAB8TkaXAAABcVBMVEUAAAAAADoAAGYAOjoAOmYAOpAAZpAAZrYzMzM6AAA6ADo6AGY6OgA6OmY6OpA6ZmY6ZpA6ZrY6kJA6kLY6kNtNTU1NTW5NTY5NbqtNjshkle1mAABmADpmAGZmOgBmOjpmOmZmOpBmZgBmZjpmZmZmZrZmkJBmkLZmkNtmtpBmtttmtv9uTU1uTW5uTY5ubo5ubqtuq8huq+SOTU2OTW6OTY6Obk2ObquOyP+QOgCQOjqQOmaQZgCQZjqQZmaQZpCQZraQkGaQkLaQkNuQtpCQtraQttuQ27aQ2/+izVqrbk2rbm6rbo6rjk2ryKur5OSr5P+2ZgC2Zjq2kDq2kGa2tma2tpC2ttu225C229u22/+2/7a2/9u2///Ijk3I///bkDrbkGbbtmbbtpDb25Db27bb29vb2//b/7bb/9vb///kq27k///r6+vuOzvy8vL/tmb/yI7/25D/27b/29v/5Kv//7b//8j//9v//+T///+lxeEqAAAACXBIWXMAAA7DAAAOwwHHb6hkAAAgAElEQVR4nO2di2Mdx1nFr50ERXFLm1ZKnVWSEigUqjYEJwEpbSmFknqdAr4plNTUsUgoFNl3I6tYlvavZ2ef8/jmtc+Zq3PaWHtnZ89+d/Z3Z7+dfa1yCIpUq6UDgKC+ArxQtAK8ULQCvFC0ArxQtAK8ULQCvFC0ArxQtPKG9/Jfv7JavfDdU2Od453+EdU6W+2Jli+dWszP/+ghV01cqNMXRfgvPmBTv39rtfrqg7p4zUzPd1elbtwVFrl4427pdFLNffGj0ptvB92HtfAdoJHlC+/lcbUFVSqESoPhvTzekz5b4T256QDvWUvnxQGbKpYpl10Z4C0Q5OFdrQ6ldmA/gxLrB7k45/yVuzk0mXzhPVu99KDYWsdsA2o1Rs/rb35Sg8hXleG9PL7xUX75S4bqyeqbp8UU+41cfrJadaZSn5+fNT+KegWfMy75dihw/Tr78OMSWKGF1hM2BOQL70nVK10csK3CehzW2xSb9ldfWd34czbn893Vi78u+fq82Hu2ZTe+e9wsUe6qL39czPxebXpxsHdWLHa3JPNkdfOBWq/isDNvKrSrLju8vaoaN/NUXNP5bglrUV7VLP+9OLjxFwctZRcHIvHlj4WHN18Xf/l2OGloLyeEFkLXO6X8e96uWzrbrfexzZ7yMK92rS++tZM3O9nDdmqn2S93S9Td98XB13ab8hd2i/5Lrdftt0tzucLqkIOXm8kg5ddUifFYwVWCePF3pxcdvGspaTjfPSTg5drh8rjp8kvuhY570n3QtZf3Adsnqxtf+8f/YVMFFt9jZJaA7JyWeWPRiX3Edpk7bJM+YFteLGNd4BdF2fnuq6flzFJF+rlzWu7MC6e9nKrH6KGMulW3OS8/k/0O+DVVOilYrvpgsZ9kkqrW2YiYNuwI7cCDz2p0c5oSaBr5D5X99se71X643sxFT1X1PWwjVkjUc/77V3+7W2zoqis6391pgbn58Hz3hT/7dWtZ76mLDV05EfUqDlWjbtUtvPxM9olfU6nPq50ADa/c8ebrNr1oDtiqGm07yPB2czp/aAr1Gue9/OLbBZDl/rRIHm7cbfJHBiorK3eW9aH7Tr39qrnt1l+zv+wwh6ne/CeNE1GPzejMuwrdqlt4pZnCmvLy6KwcCKDh5Uisqx/L8LbDa3U7KPC2c1jrGI9soUHqeZKi6tNM8BapwNf+/t9/d6CBN//irW6gygBvU68/vMKa8joxKQ8S2Z8atxZABTYeXjUFqNIUIecVlgO8U8oT3nbzrNkuvUsbGoKq/qxKINhWY3X4tEHYkr/9Ub1lK1cGQeVE1Ovygc6ciYBXnsmviSXg3xMWrGq08Co5Kg0v3w7iaIMwB/BOKt+ed13ugS8/3y0P09oDtoagkg12EMVgPWVjVtJx1kdsCPTmw7PVN0/zy1/WCWHRS3+zOWCrnJR69QFbbd5V4OFtxxf4meKauJR2zdb5Sc1dAy9xWmNN9rxcO0jjvPwc5LyTyhfe6rxUtUc/44ekaoLOmtEs7kRTN1RW79H3mrk1KRcHL+xWu/Z2ZyvXK2e05nyFDt5mqEyYKa6pOYfGBsj4M2wNvErKW+OnwMu3Q37Bn2ET5mC0YUr1u7bhRnUAdN6dpGgIYhnmi79hU+UZjI/KjcdOUlSnAdgSL7D9dnnq4NW6lyuQKX4IX3/Q9XxKvTZ9rczbCtyqC4R2/rdKO/iZwpqaAQMWVXOKpY6g/FsfxvFSx3mVdiCubajnYJx3Ss12VVl9gKSZF/AmHsQfzrBNqRngPd/9g6L/WxuOXIKGlw2n9F4W1zZMqRngFbNOSmHDO+DCRnS8k2qOtEHIOikFDu/FG30RxPW8kwp3UkDRCvBC0QrwQtEK8ELRCvBC0QrwQtHKE95NpebvIMEEJv1cAC9MIjEBvDCJ1gTwwiRaE8ALk2hNAC9MojUBvDCJ1gTwwiRaE8ALk2hNAC9MojUBvDCJ1gTwwiRaE8ALk2hNAC9MojUBvFtjko5h4qBwTADv1pgAXsAbrQngBbzRmgBewButCeAFvNGaAF7AG6tJCngBb6wmqUPXG9HX6efSE15oYaXF/6Ba6HnjMkHPu0HaEKsJ4N0A3lhNAO8G8MZqAng3gDdWE8C7AbyxmgDeDeCN1QTwbgBvpCapy/nheL5OTxfAG6UJ4C0LAG+MJoC3LAC8MZoA3rIA8MZokm4c6I3n6/R0AbxRmgDesgDwxmgCeMsCwBujCeAtCwBvjCaAtywAvDGaAN6yAPBGaJK2/ywdyYwmgHc7TABvVQB4IzQBvFUB4I3QBPBWBYA3QhPAWxUA3ghNAG9VAHgjNEm5f5eNZEYTwLsdJoC3KgC8EZoA3qoA8EZoAnirAsAboQngrQoAb3wmqfBnyUjmNAG8W2ECeOsCwBufCeCtCwBvfCaAty4AvPGZAN66APDGZwJ46wI7vI/39/e/9Sh//t7+7SeANwQTwFsX2OH97Ij9e3XvKH/8OuANwQTw1gVWeK8+vs/+PP/gUf7snUeANwCTVPq7XCRzmvSBt0gX9veP8mfvPsmfv884frmQvp+Gplcq/b3u0sP77Af3We/79HYDL9OYvyiYeJqkysRSkcxq0nu04bOjrucFvAubAN6mwBVe5LzBmADepsAKL8sXrn7x6OreHYw2hGECeJsCe8/7eH//tfs5xnmDMQG8TYFb2iBrzKBg4mkCeJsCwBudCeBtCgBvdCaAtykAvNGZAN6mAPBGZwJ4mwLAG5tJSkwtE8m8JoB3C0xScnKJSOY1AbxbYAJ42wLAG5sJ4G0LAG9sJoC3LQC8sZkA3rYA8MZmAnjbAsAbmwngbQsAb2wmgLctALyxmQDetgDwxmYCeNsCwBuZSaqZnj+SmU0Ab/wmgLcrALyRmQDergDwRmaSaj/MHcnMJoA3fhPA2xUA3shMAG9XAHgjMwG8XQHgjcwE8HYFgDcyE8DbFQDeyEwAb1cAeOMySQ2f5o1kbhPAG70J4OUKAG9cJoCXKwC8cZkAXq4A8MZlAni5AsAbl0lq/DhnJHObjAYvtJRS48frKfS8kZig5+UKAG9cJoCXKwC8cZkAXq4A8MZlAni5AsAblYkMK+AFvNGYAF6+APBGZQJ4+QIK3pNVqT3AG5wJ4OULFHgvDhpqT1Y37gLesEwAL18gw3vx5sOOUeED4A3ABPDyBVTaYNeYQcHEwwTw8gWANyoTBVYDvRF8nWEuGniLxFef8ALe5UwAL19Aw7s+zPPzW5qEF/AuZwJ4+QIZ3vIY7fIY8AZpoqIKeMWhspdOkTYEagJ4hQIibTjf3dFjC3iXNAG8QgEBb56fmc6uAd7lTACvUEDCy86uHQLe8EwAr1CgwHu+u1rdLA7V1sh5wzMBvEKBDO/FGwWzZyzpvfwhRhtCMwG8QoEeXqQN4ZkAXqFAmzYA3gBNAK9QoMDrpDGDgom7CeAVCgBvRCYUqXp6g/86Q10UeHE9b8AmgFcsUHrei4NmiBd3UoRmAnjFAiptWOMetjBNAK9YQMFr15hBwcTZBPCKBYA3IhPAKxYA3ohMAK9YAHjjMSE5BbyANwYTwCsVAN5oTGhMAa8E78lqdXjy0mnz8ereUZ4/f2//9hPAu6AJ4JULZHgv/iHP1y/97uDw8ri9tOzx/lEJ8OPXAe9yJhpKAS8H78HexcFh8f/8rLm27Nlf/vVR/vyDR/mzdx4B3sVMAK9SoKQNF2/+hwjv1cf/UvS6z959kj9//37x+eVCxoQ4Mc4dWv26SvveH7wQSHzEKUsbii64+vT4DksZnt5u4GUy/qISvx9U4lmfVDgdxFQm2h5WOyPorzOGCwlvfsZd2lB0uVdCzwt4lzDRZweAVz9U9nif6Y5PzutFY5L70k4pnDYGvBOZuMHLEl7W/bY3A7Ge9+reHefRBl94R6A3nDaexsRwwwTgtcLrM87rDe9wesNpY8A7kYkLvPULKQoZbiE2BwV4xzYxPUMa8BI9r0nmoHxQTCqTofSG08aAdyKTma5t6AHvUHrDaeP+JhyFuXaOcbGxIgnSxOkM2yF7vimT4ekNlqA8SGzgHUhvOG08AN605RDwurhM0vMC3l5KOxBzeYZ5sbEjCdLEDd7yueizwzuM3nDaeFjaUHe+gNfFhYJ38AGbB4cJZzKE3nDauLdJDWGJb07MsC04XiRhmjimDdylvHPCO4TecNp4KLzlBOB1caF73vkO2ABvq47BNM3JcuuCI0USpslcB2zuGArwDqDXr3k06wkF3nLgoZPPgqNEEqZJcPAmG8DbiGfQywTw8miyR/QOShv6wtufXk946fUA3pBNXIfK9i6PD41jDragwoY30axn0Q0lIAh4XVwoeBm26738zDDmYAuqL7y96QW840USqIk7vCc73CWR2wcvvR7AG7KJY867Lsk1jfZag3KDMFFNetILeMeLJFATR3iLpDdfD3v3cMjwJrrVAN6QTWYbKqPg0BXl1moOc33hJY0Ab8gmscObaO80jh5ekUDA6+KiwNucGx42zkuSqpQlpImeXu3+/nrDq6M3HO4i63lVOIjxKU94tdCZI6F9KCPAG7LJsvAqZTS8Gj4TLXOWSDT2gNdJ4Zi4jvMOTxtGhzcxzQS8I0YSqolPz1u+QXsReM1HezS9/vASRoA3ZBOvtGHI6WENqAlVxQFe/lgP8FqWHRpJqCZ+8I6aNvjAKy+cGObVhe7NkygTrWbaUA7v9AG8Li4GeNeDel4SwF7wJuRS0gLaIQqDt7IM4A3ZxOuAbdDpYU3vSfWhlAlHGJU8q0W5M72Lw0veGjEIXg294XA3f89rkkNQZH+ZEBVM8FI9Kg2v14VsGqOZ4KVYA7w9XGaGly81was/kaCF15Vew7Ef4A3ZxBXe8kmRpoc3OAQ1HF5NIquD141equ9vFC28NL3hcDcnvCdsnKF9J8Ui8BquwSGHkHNyhmXhReBNKdTkEsDr4kLBqzxcup8Sclqdot9mk5Cl9KxEO8eysEP90ZXmxFce/Eafa/1KIE94XX5RdB+XKBPW5xKYjJuCXDPLvLBUfa6eV/3KQ3teshHD6TTnTBvO2CjZ0LRBt4OWE4g096VXJjThIrHRSycztebYUGn7j1I6JBLA2/a81kt6XYKaDF5qCDnXzHNYtFPE8FL0hsNddENlujGpieG10At4PRWOSQjwSkO4aWEyMG8Q4TWfKg4DXvkbKw0AeF1caHhPuDdg9oZXdy5rbHgTJRIDvVS+3GqGDZUKf6TSQZGojRgOd3PCO8o4r/5EbMIX9YGX+DHk+vnGGYDXonBMRhvndQqKgZE1E1K5AO+wrpeAV0tvH3h1wfW6lmtOeL37BErXGN5sk2VGeKungA+BNyEj0dCrFvMlGnjp6FLNDGObpMoE8clmYvNuPvsfCROKDd7x0oay382oRLPreEuTAfTS8Gro7QEveSnCRnOyQWfCLyROEJ9sJjbv5mOPfExVdPCOdMC2SUp4N9kS8JL0EmUO8BquHvc9xp8SXsWzxy5NVXzwWuUWVNb8zcTyhM8aBsKbaCOxkEqU+cNLpA6mNkmJKfmD1cTBfdO7VxgnkklM5oW36XGTDuNNUyLB69vILvBacgSiTAev8WDI5/xCSk5OAW/fhh0nkklMnOBdG5/Y4A5vm+u2ow6t2vMIvds4kSbISMxjC2oZZUKfEdNhqIvEvNRYo1zSLyrXmHspLnjZfZcnNnodgupGGco/YurAdbwTwms+JaEWauFVj+SFD8KnEOBNeZNh9EYFb/nuVusLXB2CkuAVO18FXtcmbqol0l9NJInhk1raE96N+OYp/UuodMBOC+8weieE1+OWb9pFgbcc5GVPlx4Ib3d2IuFLRPWAt67nCC91YlpfhTBJpb/UJ1G8ieFcxBTwSqdAcqm4l6aCt7xTxo/e2eCtSBXgVenlOwjnnlekdwR4u+LR4TUtpj/koyNxkbibyKXyXpoC3qS9x8uL3rngzbjY3OB1a+Bu3Crh/jVFkmimqWIDvJaekpMeXh3J48ErDo3kYnk/jQ5vYn92l2so08DbYCrCq9DbC966oiu82suDiBrjw2tYbCp4OzdDAuOuceFVbqv1odcF3hGejM7Dm6jFjfrBW/3jDK8yMKGvoZqQwwPmSCUT7ZjavPD2pnc8eBPyhnAPeu3wuklnV6mF1AyvdFzh0rxcUif26sHCq1+O7NS1kTiKH+HQ7wM8NBK8+icZuNM7D7xCZHxwIr3+8PKHT+IPQxMJ10nb4SWuEqP2+pY4lUh0y00Dr96kH72jwOtzc4t+ZsjwOrSuL7wpnx8bWikph2rVAMjjrbHhpfymOMbvR+8IkSTmB9AGDK8YGk+vMqLjDi+bcIC3zQClA0e1YkW5cgEslaXaotTmHovD24ve4ZEkNhPDhhFmbQu8Fb2cNxWJNDSha6OC3HrWRPByh5mU+Xzw9qF3cCSJ3cS4SzSEEhK81rYVM1AbvDwy0pEjX4tLi+WrtymWrdvf/DMi7GeEtwe9AyOpsl2bidvB3NLwcvQSY+k+8G5SC7wiGgnZQql4tnkyeMUhLDpCu4mvdD+jwSbuanZpjvXMxXPDq0Q1G7zyTlk94OUvnGngpQ/RuAL7xg8bXm96B0XStPmWwNvRS8Bra1mpXzQdiSrjUBK88iVfzd5tInjJmzUXgdeX3gGRdE3egxOiMBx4uzZ0htd0OJVrZ7X08rOVFbWpGbGkIQTCW9Mm1JL0gZzBxE8ekXibaJTw8jKh6F0aXkUGeLNMd5u5vIhakOtmkAjKN9U5w6uR54YSVjA7vOZGHhaJZve/LfA29KrwZuV/hoZ1htd82FWWkPTmYnXnbSwcDYYPr1fn6xWJbtTAxURdVi4JGN76NnlDw2oPecRI5I5FZT5zgtej4924XWWhBKJdzcTwenS+gFdQyY3cabY7cn3qoM0axUhM/TNXINPbwms8eUAraf/Z+LWJduxtanjdv91s8CoLK2Z94H26v/+tR3n+/L3920+mgjcTZtMNS5YqZzrsR1lp08eLSgbC6zymKUW2ELyuna9PJDp2l4P32TuP8sev51f3jtifaeDNpNlGTsnC3FCJhld9lkRjYhjCIpUIfz3hpdcyA7yOX3A+eOXFR+l5K4Cff/Co5Hg4vHLfmkvH/iW9zsNUqRCJA/Vpl6AIkuH17XibiXjgdep8F4NXNesJb9HlPnv3Sf78/fvFh5cLGWvzol6xlInFGTHf421Pqb2OUJy265NWnPD1kyRtxys1KyYWtFZVA/N6B5XSVEPFrT0ZbJb4vlFLrp1oP5hlgvfZ91+7nz+93cDL5PqLop8DypdlmWoiJxYb6rM4IzdVEYZ9xfSaU9LlHmzcljt3rO1R6uWEaa9OU3fKTmOSeT3qwCUS67f0+DqJdgvQJgoaiWZa5+ICb86o7XpeD3jJsaCU44dlDKPBa67RTMv5dasO3kTenbvfCZBMCW+WqI+LNcgL3kSz1/eC1+vrEJUTclLr4gZv/tlRr5y3zh4FeLgzBFWyS5hQ9JrHf3NjksqfeNDCu6kv+E8SIhc1MCOlalPCWz6GyBlfp0i4s+fzwkuNtIwOb50vXN274z3a0I33SyP/wmAVZaIOOVjOG5sfpMzBqx4ctiq5q9hQt4Lzq5B9duzaQyYdvGXArvi6cVdHkGzo0N3hTbxG/ugTNIkyYXJx6Hkf7+8XOW+Pcd5UmW62VXkmuAGHNFHoNR4Yp+pNEHQkqTzGIDxALW8bjepCHF9Cn/vRSxfTbZIITyKyypG7tLN06e608oJXM6IzOryUtEEp8bWfhGO3jBseGwVey6BPe+JBOS0s0NvxSfqR+CrwevW9vvA29Lqswwfe2s9hfEorH3i1Q+naOCiX6eA1nqblkdHuIomuW7sytwRG6XjJZ1caVkc0qgqvD70e8FYHa8LDiMxy5S7l7BRb3sS4zsQwPi5HkioT0iqCg1cn3bCQcI2Ozc3x0JF4VCVX4rC1lVYlt7YzvYmmDyXhrWq60+vcaaZu8OqCbeY6w5sSU50NGQbhMiG87ieotCaZ8Vs6mvDLU+zy9I4GrzO9PodJErz2dbjv8bmbUogdCT9Hv9KkTc1skRj7JMNaZoPXnV2DSTYLvF2hy9aW21XTVbnRW3czTplmO8Tr3PX2gld/BbihT9x0Ha8dXksyqPs9zwevB7tuucdQeKuhW5LdDoce8Gq5c6LXKdOspcBrXYU7vELzira5XKwddHGDVxwcDBFeH3YtQxaZm+Fs8DpfPuJAL7ez1vZ3rbqTa670esCbaOklvg652sS0l8y180h6Nd8rPnjpc8V+JpVDutHBazpdosgVXgd6E800fco86SbdVuEObyK0MAVvIlVXHZzgNQ5BtVaLwuvFrvVMR6a9PN3ZpDTSdrybhge3rW3ZjnKS6Ggkdr5GeF3p7QvvRo1ETpaU9SbGTDbXzSA3rO5LzXbA5iEbvJbbMk0m/JXCho53U8/yh5do59w4V2ckfVYiEV4/7giv20FjU1NDr+b4Uzl77gIvsRW3G97qtI0BO51JVp7F4/E1mXjAa0n/eBNPtroSM7xu9CbOJ6qrevyhlPS8EIJdkbpk4wAv2QMNGZaKBF4jeIQJd/qZu/7SZJDZI2nkDq+RXk94E+GTwxoS5xPVTbWUSHxzch0KvOarqHKqkK5qUITwVuMEysu39SZZJtblbkw2ibyymFaiTNCRmDtGU5kcSSbVd6A3cT9R3dVSO1/SRLmIwQFeDaXXAl4Lvo1JRtWqymyddzYBvKaO0VToAa9uFYnziWq+jpI7UN23ch44kRGUPud6SLcc3q5BDfiVJiS57ZLjwas/ubBRvo6+YzQV2+C1d72J+4lqsYqUOxDwqmcj7PDqGR1wHUFU8Bo631xOFiSZ59Z1poDXQqmmWE7hlQWsXW8Dr+dwMxP/6FfqqK8HvAZCtxxe/vvpzpE5oGmPxKFKrYT7V5LydYz5gWaGCq+8gIZe/sKH3LIqfSyGl3+T14TZxm9NgKrzMk58eZzw8tJcWjNKJCHAW82xwyv8XpOuLOvutciluaYVapWbHv1WTysdr1TLeLW1sqx+76oUAF4uEk963eClz6aarUUTNWtoiwW7TKydS7MN69NLPtaiulSqYxX6Z8BbixpNGCsSP3jprU5EolYcBV6u802aanWx1H0b+bTCKxzDecObbixbR1pavw22AF76Tp6RIvGi1xle04lgurZgkukX4ehVzyVyJoYVWpKKykSb3bLPRNbQVqxfcGdag7i0bURJKIgPXuX7hQ+vXNWahSrw6pZokE3Em/gzuU0sObZetUmq62NT3eFYytUHvK2ou9fHisSH3t7w2o//neFtE12+QrJRUynL8IZWrYlyVq0t18PbzHGH1+VEVFcQIbziN/S5mtEeiQe8mq1OR5JoP5C1eRND1lDNr4YYuBpVBiwNW+scXOHdUC9n3si3Rggz2jnmrWMfCdW4RAnvRknvxovEd7iMNCGUka/JcfG2wavUSPhi2tNW2on/On6X1nDlrvCqjc+bbwm86qViC8BrMFHUDcA6mnRMdeO2FiXyhPzgY9LDB97e6g2v8MPYOni9bj9zimQovVQkGfevm4kErwO7baW2rpIFUS4hwWtmd2vgbb5n+3VDhtfxmkzRRNz3O8Ern/fL+XVrbKzGM8JrThq2CF65MxsxkoH0KpHwCbqr9wB4u6rE11F8QoC3YdTS8W4RvNJVjsHCS7xww80k4eu7wSud98uJCGSjgOC1sbtl8HJfd8xIhtErRkKeDnQy6QOvOPjcRmKgNxx4rexuE7ybLHx49bd1OJgkG292NfCSV6A5Gi8GrzoCNxa8QWj0d+PQxg6ryTRyqK03Tbp1Jy5RG2tyKxLezO5s7CZdQ1jaMCVa2ePFQhH2vNOZ8J2A0wgtX8EzEtq8NEmES8v9ZUlg+piYpW2o3HInS6rOJU59bFPaMKGJfA7Egq/5en+bKPMJ4PU7S6IzMcjgX41BagHOVFKp03aA18mEuzJWKiE1DF7KXBz36MeucdCuv4lGTvd2kx1wRjwQiTzlDHjdTMomzqT0QSdxTp9IFPNp4O3T+Tp+HbOxeBBLDB4abjUyhAJ4SRNxELku022g4fAq5tV+Vjnh6ycqEm96nb6O7UehJDCZtG8DvGOaGB5eopSOE4lgPhm83p2vw9exWxIm4pPknG42BryOJrpDC3tZ/0ikYWv2scJ2THidOl+vAXQHP9qEg95wj6fBBfD6mRDHG+NF0m1NAd6e7GojsfWUGX/6x/Z1nM+5GMXf4al9yAPgHWgyKbzCFZ7dFTljw+swduIMr/PZbosMzy/RuwBeTxPlMG7cSLLWZEp4Df1l5nW5nvt1Rhapj5BycAG8viaZ8ePgSCp4uvuYk0ngtSf13D5A7+F+hadN9c3JxgeXAd7hJpn2wziRZJs54LVdNOQAr/u4hSO8lmfuAd7hJlPDW9613vk6vSOblPVYy1jQJTCui/ePZGN4/oPBBfD6m2Tk5IiRZNks8Eqdr9wVZ0YTv/tJ7VWo51HaXABvDxN15zp2JIbLx93ldH6BfppoF0P/wWK/SBwe0wt4RzHJpL/LRTKlSWYwGR3ePi6At4/J9YC3PnTUzZkzEtoF8PYykQZDF4xkUpMM8PrGFINJ1v6zdCRTmujg9b02DfCGZZLpNmGcX0cjzSPnAa82pihMrge8m4wymeaiYH8XwNvXRDfQGenX0QjwesYUicm1gJf6lpPdS+TrAnhhYjaxXwQ6UySAFybeJtaLQGeKBPDCxNsE8PrEBJOwTIhb1ZeIBPDCpIeJ5SLQmSIBvDDpY2K+CHSmSAAvTHqZGC8CnSkSwAuTXibKrW0LRAJ4YdLPxHQR6EyRAF6Y9DQxXAQ6UySAFyZ9TfQXgc4USS94n31/f/8oz5+/t3/7CeC9viba6+hmiqQPvM/fv58/+8H9q3tH+ePXAe/1NYkR3qeM2M+Onn/wKH/2ziPAe31N+vHZLk0AAAgwSURBVL0XYLRI+ua8Re/77N0nZSec5y8XMtaGtlSTvX5poIzwXt27kz+93cDLNOYvCiYw6efiAu/z9+4Uh23vAl6YLGnSc7ThiBGMnBcmi5r0gbdit0wdMNoAk+VM+sD7eJ/pCOO8MFnWBGfYYBKtCeCFSbQmgBcm0ZoAXphEawJ4YRKtCeCFSbQmgBcm0ZoAXphEazIavGMqnEvUEImqcCLRhwJ4c0RCKZxIAK9RiERVOJEECS8EDRPghaIV4IWiFeCFohXghaLVvPDKzzEp7y9iV71/65Ft0Tkiubq3/9p925JzRNLcCLB8JKxw9o3jGsqs8MrPMXlaBvPZ3BvJFMnT7q6RJSNhE0FEwgofzx2JJpT3jqRQZoVXeo7JZ6/9c/Hv1cezd3aaSNinMCLJc+6O7UUjKW8en71d9KEIrTJ7zis8x4RFVuwa5t9DkpE8e/efFkgbqEgKdTe9LhrJMj0vGcry8IrPMSlj+sH9RXpfIpLvH5UttHwkS3S8mkiE+28XDaVMG15bEF7pOSbtAyHmz3uJSNSf9lKRLJDxaiJhXcvTBY7YqEYpDtj+6uPl4JWfY7IcvFQkz/9mCXjpNvnszsxhaCIRn/a1aCh5XdJpVniV55g0zXP1i5l/22Qk7Cc0e9pAR7JEHkVGskzPS4ZSpt/CkcCs8CrPMWnGeWc/TKIjKT7Nvp00kSyQ8tKRPF1g6+hDEZMpnGGDohXghaIV4IWiFeCFohXghaIV4IWiFeCFohXgnVqXxyumHb7s9w8WCma7BHin1uXxXvnvS6dt0fkrd5eLZ4sEeKdWBW9+cXDYFgHecQR4p1YNb35SJA7nu0UCscf+3SvTiZsPFw4ubgHeqdXAe/bSadn7ntx8yHrey+MC5hMul4C8BXinVgvvzYf/x1AtyGXwnrFel88lIG8B3qnF9bzFP0XacKOE96Qcg1jtLRxd1AK8U6uBd71TdLQ37jY9LzKG4QK8U4sbbag636rnLf4sHVn0ArxTixvnZcCe7964y0BuC6DeArxTqz7DVna/6yLj/XlB7nq1U5aD3UECvFC0ArxQtAK8ULQCvFC0ArxQtAK8ULQCvFC0ArxQtAK8ULQCvFC0ArxQtAK8ULQCvFC0ArxQtAK8ULQCvFC0ArxQtAK8ULQCvFC0ArxQtAK8ULQCvFC0ArxQtAK8ULTaPni/pLV0WIvEFWpbjCTAu81xhdoWIwnwbnNcobbFSAK82xxXqG0xkgDvNscValuMJMC7zXGF2hYjCfBuc1yhtsVIChHek5XhybVn1ct06sm2uHunZKgbDPCOrvDgrd4VebLSvCeHI5ab5F7LZ91g57f0bz/TzDvfZW9fXbfr01UzOFviktegs1PKyle76d7LYmmL893DylJ2Jb/IxYH84rjLD5d9OHZ48K6rN43oXjiyDLyvfP00v/j2rQnhldbgHGBZcPEGTZEVXtaCRNTUF6leIidsFcArSXjNafnCyGLD/qyYOCx/+zd+WqUN9aTwTslKTvAWi5fbrfQ9/8MfreqOvt5q7E9drcxfzm/9yd38/Dvtgp1Fs2xZ8/zWHzcfuFlOcXVrqGP66ls3Py26xM7+5kMuQKng8viQXKkN3lv/ttP2vNV37b5fFQd7+Ra3IvYr6QL8zYd32X6yWmbN3g6+Zq0522uOgoOX60PbF0buFr/34u/FwV5RVsLbTPLvlKz15ZepKhne9R57nWq5KYpNt7tXvahHhpcxUc4otvJh/p8/axfsLOplq5r/VRutyz+cbRVXpoiHt15DG9MhH1q1si5AqYB9fSGedp1fJop4eB+uD2t46+9ah97GcfHmw3pFzau/uQCLnreoX3/dsiM+Kybne7VcePB2e6z2hZEsNSv+lmlCRWozyb9TspZLz8s2ANsshYo/TT+by/C2sZzf+vTVyx9+2i54zk91NesPzLmYzdna42rXIMbUOLbx1oZcQZnzHuZiPG5twZzfPq1WUy3EhV594hOSs/Y4ul7R5Ydf2WuXKbZH0aG8ffrJfKlEePDyb0TvXhjJyk+qTvAhNylUqeQE70E9oLFmO8V6gxfTOxK8zR7w/NZvfvK7P+0WFKa6mhxxRS/kCW+9BjGmBt4m3hZeuSAX43FrC1bxZK+Gt/0GdehVHOzHwY38lO3cBnh5/I23T5tlynzh8sOfvz3fyxGDg7fJeYvfMv/CSA28QpVKTvDWve7BIUdIPa/5I/a8Dz/56V63oDA1Us/brEGIiXNs65WRywW5GI9bW1TY/Yzsees4WLUqDTkrk4f1IRdggSzrbatlqqO3k+/M+ELa4OBtDmiLnIB/YWSbNpx1acOZVKWScYOx3RuXlbIt/QpPGbdXLgJgeWCVU956eFb1at2CnMWtuuantZEwyymubg1iTOeCYxegWkCu1AHecsih/QYPW5c6DraSakVlr9L8JqsAC14ZstUyJyW1wo5zaoUHbzfO27wwsoH34mCnO2CrJvl3StYyb7A6b6uHEU5WqxffOuThLTPIHTbjG2/yow1N51SViFPtJ+5Dc8juAW+9BiEmwZ4PsCto1iDG47LOuuLJTXK0oYqjTh7qFUiNViYLZVJzs8psVnuXP7QN9o2o8OAtc6pqy9QvjGzgpYbK+HdKVrJssMW0RFzzr/P81QnNZYUI7zAB3gXXeTLrC2kB7zbHFWpbjCTAu81xhdoWIwnwbnNcobbFSAK82xxXqG0xkrYPXujaCPBC0QrwQtEK8ELRCvBC0QrwQtEK8ELRCvBC0QrwQtEK8ELRCvBC0QrwQtEK8ELRCvBC0QrwQtHq/wHwUn8H+jcEkAAAAABJRU5ErkJggg==)
Nous observons que les candidats favoris sont globalement Nicolas Sarkozy suivi de Jean-Luc Mélenchon, qui s’envole en début 2017 où il est très présent médiatiquement parlant. Nous observons également qu’une partie importante de la population est favorable à la candidate du Front National.
IPSOS_cumulative <- data.frame(
name=c("Sarkozy","Le Pen","Mélenchon") ,
value=colSums(IPSOS[-1,-1], na.rm = TRUE)/sum(!is.na(IPSOS$`Nicolas Sarkozy`))
)
ggplot(IPSOS_cumulative, aes(x=name, y=value)) +
geom_bar(stat = "identity", width=0.7, fill="steelblue") +
geom_text(aes(label=round(value, digits = 1)), vjust=1.6, color="white", size=3.5) +
scale_fill_brewer(palette="Blues") +
xlab("Candidat") +
ylab("Popularité (%)") +
ggtitle("% moyen des principaux candidats (IPSOS)")
![](data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAArwAAAGwCAMAAAB8TkaXAAAByFBMVEUAAAAAADoAAGYAOjoAOmYAOpAAZrYzMzM6AAA6ADo6AGY6OgA6Ojo6OmY6ZmY6ZpA6ZrY6kLY6kNtGgrRGgsFGgs5GmdtGrudNTU1NTW5NTY5Nbo5NbqtNjshmAABmADpmAGZmOgBmOjpmOmZmkJBmkLZmkNtmtrZmtttmtv9pgrRpw/JuTU1uTW5uTY5ubk1ubo5ubqtujqtujshuq6tuq+SJgrSJw/KJ1/+OTU2OTW6OTY6Obk2Obm6ObquOjk2Ojm6Ojo6OjsiOyP+QOgCQOmaQZgCQZjqQZmaQkGaQkLaQkNuQtpCQtraQttuQ27aQ2/+ombSo6/Ko6/+rbk2rbm6rbo6rjk2rjqurq46ryKur5Mir5P+2ZgC2Zjq2kDq2kGa2tpC2ttu229u22/+2/7a2/9u2///GrrTG/+fG//LG///Ijk3Ijm7IyI7I5KvI/+TI///bkDrbkGbbtmbbtpDb27bb29vb2//b/7bb/9vb///iw8Hiw87i69vi6//i/+fi//Li///kq27kq47k5Kvk/8jk///r6+v/tmb/yI7/187/25D/27b/29v/5Kv/69v//7b//8j//9v//+T//+f///L///82fUhsAAAACXBIWXMAAA7DAAAOwwHHb6hkAAAYWklEQVR4nO2djX8jx1nH5buzo7Y0SX25s3L4lIaX9ny+GI5iuMuVQGuXQCnBaZy2FKsv5CChcWktLoXWoUAN+OToUGS7mX+XmdnZl/GupH3Tzjz3/H6f5CytRtr57nw1enYkWy2BIETTct0BBCkbyIuQDeRFyAbyImQDeRGygbwI2UBehGwgL0I2ReU9e721cEtd6C8e1tWHs+2lAm0z9zthc4WoTsWPeqGLw99+N32P8Us7+g79ls6VN/Qdf/CZVuvy7wYPM+lKb7nevnNJUXl7i4eDhR05Ut212vpAT97+pQx5pYJJeVutNXW/4KJ+nCcvG60fCvuW4ad26u08kxSUd9xd1v/XOfEWkrex2J3KIe9AbgvkDW58pLwctBalqU+2jcjPqSuva2GTt4iehweAQErIqwbSmniH7eVH7YUviEG79Vw4w6jZZaAHRruuNn32oZ4hf/iZlmwb5lG7deUdbUbYRFUmpjQJ7i0f9sqO9qffuvSO1CP5II/CGxcP46Zys3xJVg2CuVP1uN9aVj1aTuz3YkvrQd+JZt64i6atnjSX7X4GeiflFT35s7+wE1DIG/vhzvWF5C2YesuloLxn28HMa00Vw/azbTmO35D/tOT2gfrZkmMTDIyqMobhpvDFMlRfv8ReeXlJpJqYFuOueuxg++V2a/EXWt7oQQbRnZS8YdPwlXstIe/Z9qV3x91wxgzvl2wZPWjUqbgK0F0M2wby2v2U/V/LkDd+tugOhEx6Tk4Uul6+9vifcjWvPVNI727JV0k5GsO2VuuWGmg5QGr41D3OttUM9UFb6dBaUj6YsRp3F95QL53qhrDJsP38ofwnaiHvcPZ93UIN91kgr3kQea8duedlI2/c9NJDoR8jllfaImduo1rifnHL8EGTnVKPGl8L22o/7X4Gytplg7rpe62FZ//63wKSSFB9XOJbwi1IwZRbbeipl+HW82abHkE9najBM+PZk3qoukHN07KuUJvkqAbTTzSOwQ1DrWzYZNi+/DvvRPvTD6sHN7hrIG/4IOZeYdkQNpX//usP/6LdsuQVvVb4nInvl2xpP2iofnwtbmvkTfZTPUeFsE7YgrrgZ6+3g+riorzxLSIqIpBCKbXOKydeOf0+6RoD9PgGY9NTo62nt4GpGwZa4nA4kzKJsCpWV+MmSrKWPrVRMUPej++qa17zIGZfobxhU1ODXJB32I4Mie6X1TLulNoWX4vbBpOr1c+4d6G8n30YHq6zD36rtZyWN7olOhBIsZSRVxW+aqLpmRWHifKqUerp+q6IvOIDtaRkxreUvLKAePbrf//zri3v4EKBGjx8uuUkeeO2pjJI9jMpb7oEiF8vgp3GSzVmNQ7ylkkZedWi0DR5o7JBjskX1fQcT3QX5A1ek4PXamv0fvbnZjSDgVYDny1vqmxQTYMH0x3pRWXKuHvl5VCf6H5xy4sPOu4my4a4i1HNa/czW95IU73ykFxtsG6BvOVSQl418U6RN3HCJpv+xoJeyJInPfKsJzYwPmG7pU+VEk0Grc/J4vn75iVeTnefC8/C0vLqE69hN9gUN5WCHaqlN9XH1heCHagZOTrDj+4Xt4wfNNkpfcJmriUeta9roWQ/kzVvYubt6bri7FFbnxAk13mTt6DmLZcS8qqJV0yueeOlMqEcNhOLzvLFmTe4Qa9DJZrE70mph73cDl6cs+Q191ozmsVNo3evoh0Es6u1VJZYIEs/aLRUlrgWPWo/XioLK4D+wk6GvPIJFZ+8jZPvsFm3YLWhVIrLa96f+Jd2YrXBklcMzZsUIjpL15su30qVDbpuvPKPwfmUaRIs/j9/GO5tSb338VBky6veQVi4FdW8pmnwNskb2gjZz+d+IZvqMiZe2TL3i1smHzTsVLAt6mL8qFLDpUOrnxnrvDr6EwwL5rQu/dkGcwvWeUtlzp8qq1zLJc7Ra2w6h1TyD++wlcp85X3yctWPQJCRN1heKRl8tqFU5imvKuuqftiPjrwVPtiIibdc5imvPKV5fnar6SEk7/ilsgri87zlgt+kQMgG8iJkA3kRsoG8CNlAXoRsIC9CNgXlfewq7vZcd0BSfceQ11FAUn3HkNdRQFJ9x5DXUUBSfceQ11FAUn3HkNdRQFJ9x5DXUUBSfceQ11FAUn3HkNdRQFJ9x5DXUUBSfceQ11FAUn3HkNdRQFJ9x5DXUUBSfceQ11FAUn3HkNdRQFJ9x5DXUUBSfceQt2iuehXXR+Mx5M3fX2d7juJaVzuuj8ZjyJu/v872HMW1rnZcH43HkDd/f53tOYprXe24PhqP/Zb3pNO5cSDE6f3O6jHkhbypeCzvaONAHN0U57tb6gfkhbwX47G8RuDTBwfaY8jrWlc7ro/GY+/llVPu6O6xOH11T155RmZq66c8rnW14/po+JBp8o7uvLgnTlZDeVVcPdcw816M66Px2PuZV1obz7yQt3RWhPjkzatXX3hL/PqPwg0yH0LecjvOJa/Y30LNG6a8aNf/682rK1Lbex+p/yKjjciQt/COZ8pr6oXz3U2sNuhUME3m2o/elP9dvf6fobHX3n+vyuO5I6k7xfufY+Y96nRkzYt13jDVhmj949tKXCVwtKHZIa+LpO4U73/OsuFiqhyySiEu7/VffRLMupG8L7xVaeKFvJC3SKoNkaxwLXnj+qGpIa+LpO4U7z/kLZxqQyStteRd/2h6+/qHvC6SulO8/5C3cKoN0cUTtntV1slKDXldJHWneP8hb+GUHx61KHb9l7eTS2VVS17IC3mLpML4rAv97sS19/UPNenGqw6NDXktJHNI8f5D3sJxPch2OJNA3sJxPch2HJFc/5UQ7+kf4TL1C29Ve58b8jaRKgNUf9yQqLcFVz5589r7H0bLJfc+vq3e/m6SBPIWToXxmUPckKzI+VaeayYW/SoX75C3iVQco5rjjkTOvgl5q77ZAnkbScUxqjnuSNY/vq2qh3WhF/tWPv5jIRr+iBHkLZxqQ153nJGsq9U+ecL278FK9Yo8W1v5BDXv1P4623OUSkNee1yRrIeimrLBVMGNkkDewqky5PXHEcl69Al6U+yqH5B3Rn+d7TlKhfGZQ9yQmEUxNeuGb3Tf+7Dx3wmBvIVTYXzmEDck97QF711dEfpNCvVGt3qTAids0/vrbM9RqgxQ/eFMAnkLx/Ug2+FMAnkLx/Ug2+FMAnkLx/Ug2+FMAnkLx/Ug2+FMAnkLx/Ug2+FMAnkLx/Ug2+FMAnkLx/Ug2+FMAnkLx/Ug2+FMAnkLx/Ug2+FMAnkLx/Ug2+FMAnkLx/Ug2+FMAnkLx/Ug2+FMAnkLx/Ug2+FMAnkLx/Ug2+FMAnkLx/Ug2+FMAnkLx/Ug2+FMAnkLx/Ug2+FMAnkLx/Ug2+FMAnkLx/Ug2+FMAnkLx/Ug2+FMAnkLx/Ug2+FMAnkLx/Ug2+FMAnkLx/Ug2+FMAnkLx/Ug2+FM0py8ro+NlRL99xOENQnkpQ3CmgTy0gZhTQJ5aYOwJoG8tEFYk5SUt0RcHxsrTw0ISARmXqogrEkgL20Q1iQU5I2/KjT8rtDExaYOVB0g8whnEgLymq8KvbryUbQpcbGpA1UDyFzCmYSAvOGXJN2Lv5b5XqVvaC51oGoAmUs4kxCQV0XOvi98M/qGusTFxg5UTSC1hzMJEXnVV4X+6D+E+eK6xMXGDlRNILWHMwkNedVX1qmv/rr2T8EX1sUXGztQ9YDUH84kJOS9+FWhFy42cqBqAZlDOJNQkDf+qlDImwpnEgLymq8KVd8Nev2Xty9cbOxA1QAyl3AmISBv+FWh60KoKVgtk5mLTR6oGkDmEs4kBOSdR0r0308Q1iSQlzYIaxLISxuENQnkpQ3CmgTy0gZhTQJ5aYOwJoG8tEFYk0Be2iCsSSAvbRDWJJCXNghrEshLG4Q1CeSlDcKaBPLSBmFNAnlpg7Amgby0QViTQF7aIKxJIC9tENYkkJc2CGsSyEsbhDUJ5KUNwpoE8tIGYU0CeWmDsCaBvLRBWJNAXtogrEkgL20Q1iSQlzYIaxLISxuENQnkpQ3CmgTy0gZhTQJ5aYOwJoG8tEFYk0Be2iCsSSAvbRDWJJCXNghrEshLG4Q1CeSlDcKaJIe8ozudzpYQp/c7q8eQ1zMQ1iSz5T19dU+MXtk7390SRzchr2cgrElmy3uijN3fOn1wIEYbB5DXLxDWJDnKhmD2Hd091pOwEM/ITG2dHdfHxkqJ/vsJAhIxQ97z3U1xshrKq0L9aV6i/36CsCbJI+/p/U152nYX8noIwpokh7yjO1vKYNS8PoKwJpktb+CuLh2w2uAdCGuSTHn7LZ1lfeWoo7KFdV4vQViTpOUdd4210uGFnQnTMfUjVaL/foKwJknJO/78u7Gj1hXI6yEIa5LMsmF2qB+pEv33E4Q1CeSlDcKaZIK8svCdXPBCXo/CmWSCvL01IYafnlDwQl6PwpkkJa8+Rzvbhrw0QFiTpGfecXfxEGUDFRDWJFllw7C9NFlbyOu673Y4k2TJK8QgfJ8C8noOwpokW1717toa5CUAwpokLe+w3WpdkqdqPdS8BEBYk6TkHb8knR2oovfsa1ht8B6ENckUeVE2EABhTTK5bIC8FEBYk6TlzRXqR6pE//0EYU0CeWmDsCZJyYvP85ICYU2SnnnH3XCJF79J4T8Ia5LMsqGX/B02yOszCGuSTHlnh/qRKtF/P0FYk0Be2iCsSSAvbRDWJJCXNghrEshLG4Q1CeSlDcKaJFvefqu11l88hLzeg7AmSck7/isheos/766dbU/5aBn1I1Wi/36CsCZJy9tdHnfX5H9iMOWzZdSPVIn++wnCmiRdNow//w+QlwwIa5K0vDJ9VTbIKRhlg/cgrEky5RWDGR9tgLzehDNJtrwzQ/1Ilei/nyCsSbLkVQWvmn5R8/oPwpoE8tIGYU2Sltd8IYUM1nn9B2FNMmXmnRbqR6pE//0EYU2SJW+OUD9SJfrvJwhrkpS8+u21oGxAzes/CGsSzLy0QViTZMmr/y465CUBwpokS16csNEBYU2SJa+Y+lFeyOtVOJNkz7w4YaMCwpokc+adHepHqkT//QRhTQJ5aYOwJsmUV/2JXpQNJEBYk2TJe7a9fLa9lmPNoVBcHxsrTw0ISER6qay3LAZT1hyoP81L9N9PENYkk+TtL+EjkRRAWJNkySt62txpq73Uj1SJ/vsJwpokU15Z9IoevnuYAghrkkx5Z4f6kSrRfz9BWJNAXtogrElS8obvDWOdlwQIaxLMvLRBWJNAXtogrEmy5MWnyuiAsCaZPPPqb9CGvJ6DsCaZLC/eHqYAwppkmrwoG/wHYU0yRd4eZl7/QViTZMlrTtjw9jABENYkU2beaaF+pEr0308Q1iSQlzYIa5JsefVfipz2ixTUj1SJ/vsJwpokU96+WmfAd1JQAGFNkiUv/rg0HRDWJJCXNghrksyyYaBWyVA2UABhTZI98878SC/1I1Wi/36CsCbJnHlnh/qRKtF/P0FYk0Be2iCsSbLl7eMbMImAsCbJlBfrvGRAWJNkyYulMjogrEkgL20Q1iQoG2iDsCbJlBcnbGRAWJNkyzsz1I9Uif77CcKaBPLSBmFNkiFvb+pfbIC8rvtuhzNJWl71e5f9WfZSP1Il+u8nCGuSlLz6u1tnfoEr9SNVov9+grAmScmrF3nVX5eGvBRAWJNAXtogrEkgL20Q1iSQlzYIa5IMefGX0QmBsCZJyZsv1I9Uif77CcKaBPLSBmFNAnlpg7Amgby0QViTQF7aIKxJIC9tENYkkJc2CGsSyEsbhDVJLnlHGwdCnN7vrB5DXs9AWJPkkfekc+NAnO9uiaObkNczENYkOeTdf/G7cuY9fXAQzMCQ16twJsldNozuHovTV/fktWdkprWeENfHxkqJ/vsJAhKRQ96T1VBeFepP8xL99xOENUlueeOZF/L6FM4kueVFzeslCGuS3PKe725itcE/ENYkueXFOq+XIKxJcsmbDvUjVaL/foKwJoG8tEFYk0Be2iCsSSAvbRDWJJCXNghrEshLG4Q1CeSlDcKaBPLSBmFNAnlpg7Amgby0QViTQF7aIKxJIC9tENYkkJc2CGsSyEsbhDUJ5KUNwpoE8tIGYU0CeWmDsCaBvLRBWJNAXtogrEkgL20Q1iSQlzYIaxLISxuENQnkpQ3CmgTy0gZhTQJ5aYOwJoG8tEFYk0Be2iCsSSAvbRDWJJCXNghrEshLG4Q1CeSlDcKaBPLSBmFNAnlpg7Amgby0QViTQF7aIKxJIC9tENYkkJc2CGsSyEsbhDUJ5KUNwpoE8tIGYU0CeWmDsCaBvLRBWJNAXtogrEkgL20Q1iSQlzYIaxLISxuENUlJeUvE9bGx8tSAgERg5qUKwpoE8tIGYU0CeWmDsCaBvLRBWJNAXtogrEkgL20Q1iSQlzYIaxLISxuENQnkpQ3CmgTy0gZhTQJ5aYOwJoG8tEFYk0Be2iCsSSAvbRDWJJCXNghrEshLG4Q1CeSlDcKaBPLSBmFNAnlpg7Amgby0QViTQF7aIKxJIC9tENYkkJc2CGsSyEsbhDUJ5KUNwpoE8tIGYU0CeWmDsCaBvLRBWJNAXtogrEkgL20Q1iSQlzYIaxLISxuENQnkpQ3CmgTy0gZhTQJ5aYOwJoG8tEFYk0Be2iCsSSAvbRDWJJCXNghrEshLG4Q1CeSlDcKaBPLSBmFNAnlpg7Amgby0QViTQF7aIKxJIC9tENYkkJc2CGsSyEsbhDUJ5KUNwpokv7yn9zurx5DXMxDWJLnlPd/dEkc3Ia9nIKxJcst7+uBAjDYOIK9fIKxJcss7unssTl/dk5eekZnVGkGay0x5T1ZDeVWqPN8rxd2e6w5Iqu84r7zxzAt5awlIqu84r7yVa96a+utsz3UHJNV3nFfe893NaqsNNfXX2Z7rDkiq7zivvJXXeWvqr7M91x2QVN9xbnmtuOouhtzDQN68/XW257oDkuo7hryOApLqO4a8jgKS6juGvI4Ckuo7hryOApLqO4a8jgKS6juGvI4Ckuo7hryOApLqO4a8jgKS6jsuJ6+zPD2fJAZJbYG8TQcktQXyNh2Q1BbI23RAUluoyIsgqUBehGwgL0I2kBchG8g734zubLnuwtMbH+WNf1k53HCnI7PppjfFM7qjfmF1/4ai2N/K4DHNsjf7mdP7nc4Nq7/nb+9NatxUaMirNsR/PML3jF75g2Nx+icRxVMg7+l9+SQ8in8RV0DeCQlHVT7bgye73qD+4l+wZXT3252Ox6/Go40/2xOjr8hOm/7Gl0zP5bUX90Ybfxpe8R4qmj7Ui+CWGP3+l2/89O29893V46D3+/KV8aZ8lVF/oqa5+CzvfvgXI/SG0St7Zsvozqb+K1S+ZrTxz1viv78rO236G18Keq6ehyer/2Mw9vUPv6GUpuqn9nfjQFXycuaVPTe91xPxibzYaG3nsbzqQKm/1xPWvFvhFnW7z6+5o42ffOn8Wz/ZOIj7a/c86Ly5ohDlzb5DnXTki4W+ZDjO3/69zeAPKumC7mhTnL52/ONGSwmf5ZXnCMEBS9QRHf166/c4jzZ++p3//aryMuqv3fPgxTVhspy2fIcSwWufKhBuBH3e/cPXjoXpva4Xzt/+u9cafenwWd4HF894zBbfx1n27cd/u2km1eC63XN6M++JLt/2t9SJW/yEU7Nt0Pvg7O3oK82uCHksb1ROxYNqykOvx1l39ySYZeP+Wj1XNa+sLQwGBSi92hA+xV7ZM/IqZYPeH2lr9dTcYLyUV5e4N4Nzcr0hHNRgi9/jLMzUZNYYTH/tnpvVBmshwm8oVfeowTjqdH7zy1tRsaALohtBVdTZPP9Ws/33UV6EaEZfanZ/kBepK0cvNvy2BeRFyAbyImQDeRGygbwI2UDe+aTfarUWdibcOLj07vBTO+HFaPOThw107GkK5J1HzrYXD5XAa9k3J4xNXAx9RvIG8s4jPeWutDf4kQrkrSeQdw4Zd+Mpd9iWBcSyNPMb8sKauq218JdB2WAumibq32WHnSYYyDuHJOZQ7XFfytqWs7D8Oe4uy21a3vBi1AQzb8FA3jlk+OmoFvg/VThILYftNf1TlwmBqeHFqAnkLRjIO4dYGg70uoPeJP/RZbCUO3HRaoIUCOSdQ8Kad/ySrA0WdqJpNVteqwlSIJB3HjHLDLImGKhLg3jm1bXCIC4bBheaIAUCeeeReJ13oGbVdizvuLsUn7AFF8MmyTUKJE8g73zSC99hkxcW/qa7FsqbtVRmmsifS667TSuQFyEbyIuQDeRFyAbyImQDeRGygbwI2UBehGwgL0I2kBchG8iLkM3/A+yTEfFNyeYgAAAAAElFTkSuQmCC)
Le candidat le plus populaire “globalement” sur la période est donc Jean-Luc Mélenchon.
On note que les popularités ne s’ajoutent pas pour faire 100% car on ne relève ici qu’une popularité globale sur la population, et pas un pourcentage de voix dans les sondages. Dans un climat politique où les candidats ne conviendraient pas à la population, on peut même imaginer un scénario hypothétoque où aucun candidat n’a plus de 10% de popularité par exemple.
Dataset Sondages
Nous créons un jeu de données Sondages en récoltant des résultats de sondages de différentes sources sur Wikipédia (plus d’informations sont disponibles ici https://en.wikipedia.org/wiki/Opinion_polling_for_the_2017_French_presidential_election).
pton = function(x) {
return(as.numeric(substr(x, 0,nchar(x)-1)))
}
FirstOfTheMonth <- function(d) {
return(paste("1",substring(d,nchar(d)-7)))
return(paste("1", substring(d, nchar(d)-7)))
}
meanMonth=function(l, m){
return(mean(l[l$`Fieldwork date` == m], na.rm = TRUE))
}
recupPoll = function(path, namePage){
page = read_html(namePage)
polls = html_table(html_nodes(page,xpath = path), header=TRUE, trim=TRUE, dec = ",")[[1]][-1,]
as.numeric(gsub("\\,","", polls$Samplesize))
polls$Abs. = pton(polls$Abs.)
polls$MacronEM = pton(polls$MacronEM)
polls$FillonLR = pton(polls$FillonLR)
polls$`MélenchonFI` = pton(polls$MélenchonFI)
polls$`Le PenFN` = pton(polls$`Le PenFN`)
for (i in 2:length(polls$`Fieldwork date`)) {
polls$`Fieldwork date`[i] = FirstOfTheMonth(polls$`Fieldwork date`[i])
}
polls$`Fieldwork date` = dmy(polls$`Fieldwork date`)
return(polls)
}
avg = function(pol) {
return(aggregate(cbind(MacronEM, `Le PenFN`, FillonLR, `MélenchonFI`, Abs.) ~ `Fieldwork date`, pol, FUN = mean, na.rm = TRUE, na.action = na.pass))
}
nameP2017 = "https://en.wikipedia.org/wiki/Opinion_polling_for_the_2017_French_presidential_election"
polls = recupPoll('/html/body/div[3]/div[3]/div[5]/div[1]/table[1]', nameP2017)
NAs introduits lors de la conversion automatique
polls = merge(polls, recupPoll('/html/body/div[3]/div[3]/div[5]/div[1]/table[2]', nameP2017), all=TRUE)
1 failed to parse.
polls = merge(polls, recupPoll('/html/body/div[3]/div[3]/div[5]/div[1]/table[4]', nameP2017), all=TRUE)
polls = merge(polls, recupPoll('/html/body/div[3]/div[3]/div[5]/div[1]/table[5]', nameP2017), all=TRUE)
1 failed to parse.
pollsMonth = avg(polls)
pollsMonth = rename(pollsMonth, fieldworkDate = `Fieldwork date`)
data <- merge(x = pollsMonth, y = ActusTV, by.x = "fieldworkDate", by.y = "MOIS")
data2 <- merge(x = IPSOS, y = ActusTV, by.x = "Date", by.y = "MOIS")
data <- data[order(as.Date(data$fieldworkDate, format = "%d/%m/%Y")),]
plotCor = function(data, categorie) {
corrplot(cor(ActusTVnum%>%select(contains(categorie))), type = "upper", order = "hclust", tl.col = "black", tl.srt = 45)
}
convert_minutes = function(date) {
return( hour(date) * 60 + minute(x) + second(x) / 60 )
}
rm(polls, nameP2017)
Plot Data Surveys
data_plot <- data %>% na.omit()
colors <- c("Emmanuel Macron" = "cornflowerblue", "Marine Le Pen" = "brown2", "Jean-François Fillon" = "darkolivegreen3")
p <- ggplot(data_plot, aes(x = fieldworkDate)) +
geom_line(aes(y = MacronEM, color = "Emmanuel Macron")) +
geom_line(aes(y = `Le PenFN`, color = "Marine Le Pen")) +
geom_line(aes(y = FillonLR, color = "Jean-François Fillon")) +
labs(x = "Date",
y = "%",
color = "Candidat") +
ggtitle("Sondages présidentiels 2017 (sources multiples)") +
theme(legend.position = "bottom") +
scale_color_manual(values = colors)
p
![](data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAArwAAAGwCAMAAAB8TkaXAAABblBMVEUAAAAAADoAAGYAOjoAOmYAOpAAZpAAZrYzMzM6AAA6ADo6AGY6OgA6OmY6OpA6ZmY6ZpA6ZrY6kJA6kLY6kNtNTU1NTW5NTY5Nbo5NbqtNjshkle1mAABmADpmAGZmOgBmOjpmOmZmZjpmZmZmZrZmkJBmkLZmkNtmtpBmtttmtv9uTU1uTW5uTY5ubo5ubqtuq+SOTU2OTW6OTY6Obk2OyP+QOgCQOjqQOmaQZgCQZjqQZmaQZpCQZraQkGaQkLaQtpCQtraQttuQ27aQ2/+izVqrbk2rbm6rbo6rjk2ryKur5Mir5P+2ZgC2Zjq2kDq2kGa2tma2tpC2ttu225C229u22/+2/9u2///Ijk3I5KvI/+TI///bkDrbkGbbtmbbtpDb25Db27bb29vb2//b/7bb/9vb///kq27k5Kvk/+Tk///r6+vuOzvy8vL/tmb/yI7/25D/27b/29v/5Kv//7b//8j//9v//+T///+wLuhuAAAACXBIWXMAAA7DAAAOwwHHb6hkAAAfoUlEQVR4nO2diX8kR3XHR2tvxNicQTIxI2xyQazFsRdYcSQB4mgMISuTEDDaZMU6JKAFz0YeIq22//vU0Uf1TB/VXcd7Nf37fezVqLu6fq+qv3pdXd3TPcsgKFHNqAOAoLECvFCyArxQsgK8ULICvFCyArxQsgK8ULICvFCyGgzv7b9+ejZ76WuXnWVO9sdHlOtqdlCv8u5lT+XrPz83itU3qvSRCP/lD+WnP745m33mw3zxmax0PZ8p7Z0WpW++crpZgU+pAO3iVkEeNC2drobCe3ui929z75aFnOG9PTnY+L0X3os7FhBclXTeHMlPYhu17awZ3sC4qACt4lZavxL0Tyk5DYX3anZXJKs/nsyOOwr5yLzDK7/IQTSLbkJwe7L3Xnb7M4nqxeyLl+KTpPP2g9msqtTI+VdbVfpVCW/D4iadBezXBDUU3gudlW6OZDfKA688BIvO/vmnZ3tfl2uezGcv/1Lx9UQcoMtle187KbZQh+rb74uVb+WV3hwdXInNThWZF7M7H26X0/uzqrwoUFqrQ8KBLmasvKw7recKVrFcl1T/3hzt/c1RicXNUUmO/jupKjDae6nXFvE+0eG3NVDYPpmLIEUrP39Z2/zu78q4zV4wW2FUhdRb0/DMWx1Ir+b5MbYYSxzLfCb08pv7+adqmcpt640t8vR9c/S5ebH8pbkYkmyX0zmqrHyzwOzYgNdYKSE1nbQkN/rPLzsTae/mHy5vKnjPqkHDen6cGaFemfUW9Kl4r4rBRksD13PZwL0fzVU3tMJb9UK9FWVVQQ9p6WnwCdsHs73P/eP/yE+iU9+SZCpA9i/VuFEksffkoELuF5GQxB6oL5MJ5COxbD3/wqVaqSSGn/uX6mAuajrImsrpvbtdUWVdjh3NlfLvwHTSuhAk6BxcP5JImUXVAd0IoWpvRV8e72n2RHxqa6AA8S1RQJRYz+ubG2NesxfMVphVnQUex6Sl4VNlv/n+XB/Fiv7cOxWgnmsANBL5mv/++d/Nxa7QyXo93y+BuXO+nr/0178sq8yP1GLP6JoaymkOtyuqrEsIzJXyN9NJ6Yk+CDTDayTe7EyGVVZgtreiz4i3MfCs3FS10hyxbMFb9YLZCrOqiz2MGyqNmue9/eirKomog+KVuTOvqqNbfuq+n3e4XluezZ/Jn5/PJ6pydC6KmhrKyRVV5VWByrqEYGNlzSlTZ2eayUZ4jfFDcd5UVNDUXv0pX9MYuJIy01WfdcBr9kJzVVedJ8pT08iLFDo3dMErDoKf++G///aoBd7sozeriaoOeIty4+GtOWX5gV6dJMof+XG4ZNakozjpzysYBm/N1g1eoyrAa2ogvOWp+JncmduHUZ3P9ABCdrMsYw4bal3/m+/lu0LXKg/BGzBU5aojaVW5VAO8mytNJzkAf6u2oS5RwmsOKo0ZK1lB1V5dSm5TxFsOG5obWId3Y/P6sKHoheaqAK+poZn3TB2/bp+o847tExjFhjyJkrBeytmejfOs9+Qk8Z3zq9kXxfjvZ/kITmTpL1anKllTufyELa+8KmDCW84vmCvrTsaQ9kx6fpBPnhTw1mdYz/RhoAyhaK/Y9utFIHm8p9n6yLSu227CW9u8iLveC81VYcxraii8+rqUPpo1TB3pA6eczTIuxVVTZfmx8KBYm5Nyc/TSXB8Yc3i2y6kVZeVmgQreYqqstrLuVFxDkxNk5hW2Al5zyJujUlVQttdspRHvcWsDN+Ctb35RTpXVeqGxKsw2mBp3b8OePn1Yb03aq/HZy7+Sn9SM/nuqt+VFCn0ZQG7xkjxuq4n3L+RZTuxWOX3/YZX5tsqVw1ddeVnAsL55c7b/O30YN1fWnPK/I8Vscckhj0D9LAcA+W/HtVDX5Ra/FuH+rhzz6ha+1Rh4VW0Fb33zIu7NXmioCvO8NUW7qyw/QWpZx3OfxGXFohdwha2mCPCu538i8t9Zx6kGV3jlzEI8M4tewL0NNUWAtz78axJbeKPehNjfC0i8dcUYNtSGf03iC2/g+3nrXr29gPt568I3KaBkBXihZAV4oWQFeKFkBXihZAV4oWQ1EN5VbMV3hD17c8AL+2TNAS/skzUHvLBP1hzwwj5Zc8AL+2TNAS/skzUHvLBP1hzwwj5Zc8AL+2TNAS/skzUHvLBP1hzwwj5Zc8AL+2TNJw3vcklqby++/JCaTxtea3wBL0fzKcOrwLXDF/ByNJ88vHb4Al6O5hOGt2K2H1/Ay9Ec8OrPPfgCXo7m04V3A9dufAEvR3PAWy3owBfwcjSfLLxNpLbjC3g5mgPe+tIWfAEvR/OpwtuaY5eN/AJejuaAt2Hd9krAy9F8ovD2zIxt4Qt4OZoD3pYC9RKAl6P5NOG1uZ+hhi/g5WgOeDtKVcUAL0fzScJrfRtviS/g5WgOeHuKLv3bDxdffkjNpwjvAHZXOb6Al6M54LUovwS8LM0nCO9Qdldtl93iiS8/pOaA19KeFF++/JCaTw/eURBKe0J8+fJDah4C3mda8RoxSKPhJcSXLz+k5gEz77OaQjZiiMbxV9gT4cuXH1LzgPDW5YgyE3iJ8OXLD6l5NHjrGoyyrx4ciZ5pT4AvX35IzUfC61d1lINaLb1U4qUWyJcYzTY0ZmVPjmOT5qZ95OzLN/mRmjOEty5fZ3xavuCNjC9ffkjN2cNbxLnyge9o4JoaHPGyG19+SM3TgXflAV+v8K7ipV++/JCapwSvGkO4VDIetdYGx8GXLz+k5mnBu3JLvwHgjYMvX35IzZOD1wFfB8o6GxweX778kJonCO9ofEPBGx5fvvyQmicJ77jBrwtgvQ0Oiy9ffkjNE4V3NSL9BoU3LL58+SE1Txfeofg6sWXV4HD48uWH1DxleIeNHsLDGw5fvvyQmqcN78o+/bphZd3gMPjy5YfUPHl4bfGNBG8YfPnyQ2q+A/BajR4ciRrUYP/48uWH1Hwn4F31p9+Y8Dq7udpPxXxX4O3B15WmoQ32nHz58kNqvjvwduIbG17PyZcvP6TmuwRv++DXmaQRDfaZfPnyQ2q+W/CuWtIvBbw+8eXLD6n5zsHbhK87RCMb7ItevvyQmu8gvNujBzJ4fSVfvvyQmu8kvKt6+vUA0PgGe8GXLz+k5rsKr4kvKbzk9jtsvrvwlviSpz735MuXH1LzXYY3H/ySw+uOL19+SM13G16hZ15OmZwbHO2+IP/ia77z8K6WPp5W4t5gp+TLlx9S852HVzLD4/HA4b7/GVZ8zScB78r5aTteGjw++fLlh9R81+GteHHC11ODx+LLlB+vz74far6aErxOowdvDXZ9MDuBnrVqs1wA8ynDu8nK2A721+BRyTdCf7cjam8eAF/Aa2pcB/ts8Ah8A/R3dxYda+4d3wnD24jJmA722+DB9Hq1HzpCHWbumV7Au6nhg1/PDR6afP3YjzyxGmjuN/lOF94ORAZ2sfcGD8PX0d5tOmCwuU98AW+jBnVxgAYPoXf8xXEPk1gjzP3RO1l4+/AYsFtDNHhA8h1zQ6i3uVeHG/oCm08Z3pXex6Hs+2VN76AvQfm+YjD2hr7w5jsMry0aNvs6UINtk6+VfajrXGPb7iUWwNuvvt0erMF2+Hbbh7w822vepdC38+0uvIMnU7sACNhgmzjb7MNS22NuIffYAK+92lgI2WCL5LtlHzjZdpsPUdCpDgt4r+8dHj7IsqeHh4dfepwMvOPvnm2iImyDe/Gt7GNSu2U+SgHvRe2H9/k3H2bX33iYPXqQVOZ1+97NJiChG9wTrbSPT61h7qJw96L2w/vJl8U/jx68+PHDlOD18M01k5XgDe5IvgTJtib3tjsE72HMK7Lv8/uHavSQZZ8S6izNQUs/1ahbAuNouR1yfkviDihsKzrhffH+u2rkUGXf0X9JYzXQ0ecDRofd0+og81sf9WTL9JsUQxTiRmobeJ/ffzf/VI57x0XiIEJ4peIct8XYoXmIkAK8i0X3+gA3UlvAe32vPFVLBd4gL4UIC7CmtiXwBOBdSHy7AfZ+I3U/vDm7n7z+cfbiJ4lMlQV7o0kIgGvJtvnEjT+8BbXd/A7vO0d45fyuPFUTP18rJxwGB+GqQY7+XyZl2nsDuHkaoQlf7vDWiO1KwH6/BWAxbGjSwBDcxQheKTeAeya/tsNnDu82q+0A+/wWwC7CG+ktfmMAtpuy3Uq+vOFtwbSNX3/fAgC8TvbWAA+80rCBL2t4Owa5LQnY17c/dxDeEG//7bLvgXLk9bFaKzjD2zND1piAPX2FBfB6sW/i0/Gyrpl8GcPbx64qsw2wbb9MDF6y165XpHq6GaHCly28fVcmzJIbZT18/wrwerX3fA9N0Rau8Fqjmxev82vTT9OCNwi7ZPTkyZcpvAPZVZuYAFv8mQPeiPbetaS17zIfwa7eruK3F99JwRuGXUp6ZPJlCe9YdtW2JcA99ALeePZBtFxyhNeFXV2B5tfha9s7Bm8gdmnhDdcsKzW23X6aoUs6AY9+virg9WkfShklvU1t94JuXpXQyGcO7Ba8wfYxNbyUubeh7R7Z1fUt2ugFvLHsgymjHDlst903u1LPnjWORKYDb7gdTA8vHb1bbQ/B7krju1U14I1kH07KnorezbYHYnelps02ryJPBt6Ae5cDvFT01tvuZ5qhRfrEzQQY8MaxD6jcnobeWttDoitVzDsU/E4F3pC7lge8NPSabQ/N7sqY9VUJGPBGsQ8pLlfYIrC7ql0xXkwE3qBZiQu8FKm3anscdmuX3ABvDPugquwJ6C3NY7G7MvCdBrxh9yobeAnozc2DTjNs61nNvFmA1499WJn20enV5nHRXRXJdxLwBt6ljOCNTq8yj87uSuMLeMPbB1bdPjK90pyC3ZXEdwrwht6frOCNTG9Gxu5qGpl3WvDGpTcjZHcK8AbfmczgjUpv5GmGugBvaPvg2raPR2/3Ra7Q2n14w+9JdvBGo7fn9oLQAryB7cOryT4OvQs+N1Y0rNwBeCPsRobwRqF30WYeS4A3rH0ENduHb/ei3TySdh3eGBmIJbzBW25xP3hoAd6g9jHUZh+06cUUGeB1VbtjlBMXpvCGbLzd18hCC/CGtI8iAvvqygTgdRVF7rGxj6P4f7rGVTXA6yrA26Iw7TevCANeV5GcsvTbR1LsiUL7536EVgh42WhJHQC9vHfBYuG7xsBKNPPGusLPOPN674TNm8h2LvPGir2Ks3kx4JXy2gvDnnUXWjsMb7QbA3nD67Mftm/eBbyuAryd8tYRDTeeA15Xkd1X1WEfT/32nrpi8POdQwvwBrKPJwt7H33R/IUfwOsqutuxW+0jysbevTdavqsGeF0FeHvl2h1t37NMDt6bo9ls75Q3vDG/QZsCvI4d0vod4eTgPTvOsvWr54C33T6mLO1deqT9++0JwXvzhkD29oQ/vJEfvEEqW/vxfdLxbIaE4BUjhruXKQwbAG+DRnZK53NFUoJXpNz5fju2XOCN/rwuStnbj+qW7kfipAVvll3NDgBvp31chbXveZxTavBm2cXsmDW8BI/5JNQA++Ed0/cospTgXc9nszviVO2M9ZgX8LZpaM/0PkYvIXhvviKYvZKD3tvv8p1tIHk6OJ0G2Q/rm/5HQCYJL+dhA+Dt0IDOsXl8aULwlsMGzvASvVSETAPtrbvH6sm7KcFrpVixV3HWfgO83bLsH7unRgNeV9Ucyd5FRqXB9jY9ZPvEc8DrKsA7TD1dtFjYP6wf8LrKdKR8hSmNRth3dNIAcEea+xPg9WtPoDH2zb00JOU6mHvTrsFL++ZzEo2y3+6n4eCONvclwOvVnkLj7OsdNY7c0eaetGPwUrCbJrxVV40YLDib+xHg9WlPorH2qq9cwHUx96LdgpeE3VThXS1dyXUx9yHA69GeRuPsJbgeugvwuqpwpGE3PXjLUa57hwFeVwHeAaqNFZx7DPC6KnckYjcheJ0mFlzN/QvwerOnkq19I7iufQZ4XaUdqdhNAt7WlOvYa4DXVYC3U92DBbduA7yuUo5k7PKGt3+U69RxgNdVgLdZludnLj0HeF0lHenYZQrvgIkFh74DvK4CvBsaOiU2vvMAr6syUna5wTtmLnd09wFeVwHeUmOvQoztP8DrqoyUXTbwOl0/G9mDgNdVgNf9xtyRXZg0vNf3Dg8fZNnz+4evf0wHLym79PD6uWVhVCemDO/zbz7Mrr/x8MX7D7KnXwa8JPJ2r82YXkwZ3k8ksY8ePP/W4+z67cdU8NKySwzvwp/9iH5MGd48+16/87FKwln2KaHO0gG0XMZ2ZKSFz8p2sSM74X3x/rvZJ68X8ErF+sNTWi6X1MdtSvuFX/vBuTftzPv8/rvitO0dGngluSvq4zal/cK3/VB6k4b3+t4DSTDFmDcndzVheBe09qzN++HV7KqhQ9zZhorc1XThXQSwH5h6U4b36aHUg9jzvMt6F08U3kUQ+2H0pgxvowKHvFxu9u804S2md33bD6IX8A7QNrmricJbXprwbj+EXsBrq0ZyV9OEt7qs5t9+AL2A10pt5K4mCa9xSTiAvT29gLdfHeSupgiveTtDkP62LQh4e9RN7mqC8NZuxQlib0sv4O1SL7mr6cFbv40sjP3SpuMBb4fsOnBq8G7cAhn0BLmPYcDbLEtyV1ODd/P23eD2XQwD3iZZk7uaGLxbt55HvJdkm2HAuyX7pKvjdHd0UVT77a9NRG59nWHAW9dAcleTgrfhKz80rc8Z5mtOAO9wcldTgrfp62qkrV9anNT59LFP+7HhHdsJk4G38auWLI7c/hluxLXZvHllTHgdmj4VeJu/JswC3lwuDC8tcO0031gZDV63P9qJwNvyFXdO8Oay5G8wrVbmxco48DofbqYBb9vjGRjCm2ubSldcB5jHgNfHQGkS8LY+WoQvvLk84jrAPDy8fpozBXjbH4vDHl4a88DwevtLnAC8HY904ssPqXlIeH0eQ3Yf3q7HkfHlh9Q8GLyeRz87D2/no/T48kNqHgZe/9djdh3e7sdA8uWH1DwEvCGuJO44vD2PMOXLD6l5mMzrX7sNb9/jd/nyQ2oOeBnY9z46mi8/pOaAl96+/7HnfPkhNQe85PYWj+znyw+pOeCltrd53QRffkjNAS+xvdWrUvjyQ2oOeGnt7V7zw5cfUnPAS2pv+YoqvvyQmgNeSnvb16vx5YfUHPAS2lu/GpAvP6TmgJfO3v61lnz5ITUHvLBP1hzwktkPeJ8wX35IzQEvlf2Qd2Hz5YfUHPAS2Q96jztffkjNAS+N/SB2GfNDag54SeyHscuYH1JzwEthP5BdxvyQmo+EF3LRgjqAHRMybzz7oXmXc/IjNQe80e2Hs8uYH1JzwBvbfgS7jPkhNQe8ke3HsMuYH1JzwBvXfhS7jPkhNQe8Ue3HscuYH1JzwBvTfiS7jPkhNQe8Ee3HssuYH1JzwBvPfjS7jPkhNQe80ezHs8uYH1JzwBvL3oFdxvyQmgPeSPYu7DLmh9Qc8Maxd2KXMT+k5oA3ir0bu4z5ITUHvDHsHdllzA+pOeCNYO/KLmN+SM0Bb3h7Z3YZ80NqDniD27uzy5gfUnPAG9reA7uM+SE1B7yB7X2wy5gfUnPAG9beC7uM+SE1B7xB7f2wy5gfUnPAG9LeE7uM+SE1B7wB7X2xy5gfUnPAG87eG7uM+SE1B7zB7P2xy5gfUnPAG8reI7uM+SE1B7yB7H2yy5gfUnPAG8beK7uM+SE1B7xB7P2yy5gfUnPAG8LeM7uM+SE1B7wB7H2zy5gfUnPA69/eO7uM+SE1B7ze7f2zy5gfUnPA69s+ALuM+SE1B7w+7RdChPZhxNc8BLwh9iB3eBeLUOBa2YcUX/NAmdf7nmQL7yIstn32EcTXPBC8Ul53KkN4Y1DbYR9NfM0Dwqvka/9ygjdKsm23jy2+5qHhlfKxp3nAG53auj2N+JrHgFfKda8Twxs/2dbElx9S81jwKjnsf7Ie1NTySPww31hpA+/124+z7Onh4eGXHjvBKzUygxH0oJlsAS9Hcxt4P1HQPnrgnHlLDQc4Zg82jBEAL0dzC3gfvfZTkXlf/PihP3ilhgEcpwdbR7aAl6O59bDh+X0xbFDJ91NCXaUHSI8nGShPttRhQKPUC+/1Nx4a2dfnH5dVCg725283jYDMy9HcGl6lctzrO8Zegjw7LkrZlQe8HM2ZwKvUxZIHx8ViKLJe7V3Elx9Sc2t4P3n94+zFT9ynynrk+YzJBVgP9r7Elx9Sc/vM+/Tw8LVywiFsxA2oDbkb3BOwI+1DiC8/pOZW8G4rfNQb6PU4hgDWFODlaM4WXqnuS1yhgTUFeDmas4ZXSbNZu60r/l0ygJejOX94pUiANQV4OZqnAe+06eHMD6k54IV9suaAF/bJmgNe2CdrDnhhn6w54IV9suaAF/bJmgNe2CdrDnhhn6w54IV9suaAF/bJmgNe2CdrDnhhn6z5SHijy9eX7dPUdFtv1XLAy1nTbT3gTV7Tbf1OwAtBrQK8ULICvFCyArxQsgK8ULJKAN7yiWmTUP15yFCXAC+UrJjC+/y+eqWA+PHav9yvXokxAcnMe31PPs/7+p1/Fj+u3/l4QtlYtVw3+ad/++2+/c4U3kfvysdTvnj/gfjx+0llXgHq828+lIeb63uyE/4gYRZ7cxLSLf9P1eTf33vQV5wnvM+/9Vg2RA8YpjVsyLOs6AH1XPq3Hz99NxP/TUei5arJFrudJ7zX+k0uOuNMEN5H8u1hObzX7/xhMqOGouWyycnCO+3M+/z+A0WthleM/qYyasjylqsmJwuvMea9fvs/pgZv/h6bHN7s6eFkRg3FG3xkk9OF15htePji/S9NiF85bHh6ePhn335QwCv35lSOPrrlZZN7ms0U3ulKnnBDdgK8vPT08PWpDHDdBXihZAV4oWQFeKFkBXihZAV4oWQFeEPr9mQmtW8u++OHVNHslABvaN2eHKh/716Wi9avnNLFs0MCvKGl4c1ujo7LRYDXjwBvaOXwZhdi4LCeiwHEgfz3QA0n7pwTB5e2AG9oFfBe3b1U2ffizrnMvLcnAuYLYywBDRbgDa0S3jvn/ydRFeRKeK9k1jXHEtBgAd7QMjKv+EcMG/YUvBdqDmJ2QBxd0gK8oVXAe7YvEu3eaZF5MWJwF+ANLWO2QSdfnXnFD+rIkhfgDS1jnlcCu57vnUqQywXQaAHe0MqvsKn0eyZGvP8kyD2b7avlYNdJgBdKVoAXSlaAF0pWgBdKVoAXSlaAF0pWgBdKVoAXSlaAF0pWgBdKVoAXSlaAF0pWgBdKVoAXSlaAF0pWgBdKVoAXSlaAF0pWgBdKVoAXSlaAF0pWgBdKVoAXSlaAF0pWuwPv/zYL0bCParQA7xSi4R3VaAHeKUTDO6rRArxTiIZ3VKMFeKcQDe+oRgvwTiEa3lGNFuCdQjS8oxotTvBezDqeWHulX6KTfywXV++S5LVjeEXDO6rR4gOvfkfkxazl/TgGscZH43V8PTtGvQJt1NOc16+eq+3lC1jPbN+c1ouJrrXFcW7zrpVaDfkmYpn+b0xUTU1sqmprmV28/sUH3jP9hpG2F404w9sBS7dyeF/5/GV281XbWtzgHR5rtYkDvJZN3IZXLrj5SvTHvLOBt/Z6U/WiSNGZPxIfjuW62d4P9LAh/1h7l6SWJby33/mB2OZKvYOy+qjqO87Wn/2e+iHKyv+F2Z3zAt5X/+I0W//lq+d5URXJ6fozb945z4vpbe2iyYz6695GrKry+kplasR1VbxFs9ikzLxNQfXBu9FE6f8LUVvlXfPaWHB7ctxsGk5s4DVyaPmiyLnIwhcSjgOxTMFbfDTfJZlL7ITFlhrgPdlXx0fxu/FRpg251+cH8pU9BbxnB/KlqwW8/3ac/fpHZVG5r67u/tdcxHGmN9LbltEst7UJr66/7m3EuhaV11dq08uzIsqbN87Va2Eb4G0KSkT1bEsmvPUmSn8jMB2t0ZX1BXJX5B1WNw0nPvBWx6LyRZGSDPFTDRM0qcVH812SufoyrxqXif3/ndNM/i92kPFRlhAk5NTmP+TyfKGM7xdfuP3uL3SUxtJz+YusoiDeKprMqL/uXca6X2W4WmCZYVgdqqtN9H+NQfVm3u0mbvVGtauMBapvjzOjw8aP0gaID7zmm9CrF0XK5WoYLHux+lgromU9bGiG90wegDd215H2yDH91d//9q/UZ130s5d5rfJ/Uc0IeI/yU0jTW3zer9JothFYaVoYzvNz0M3M2xhUL7wbTWzqjcpra0FmdNi04C3GvIIk80WRLfDWimg5wSvdq/1U7K43DIbEvx/84EBZl0VdM2+edWveRqx66LoZmJl5ZSl9gN6Ed1zm3W7iVm9UXlsLMqPDpgVvMc0gxgTmiyLLYcNVNWy42iii5QSv6u9Xin0tU7GIIyvHlnr7K5VU8qJy+CmOsypN1QbKFtHI+vNRZLHhKyZnxo/6Sm16Xm4nK2mGtzGofnhrTazDm9dodOXWgmbTcOIDbzXPW7wosoD35mi/OmHTH813Sebqg1eNy2bHLcOGi9ns5TePi24Xv/3pG+f5uX0Jb74jddF8tkFNEpUn/7aZ90ofb3X9G95ZDd6NlZuzDWd9sw0D4a01cQPePNqiK/eNBYVD1WETg1cNtHRv5C+KLOBtmioz3yWp1QNvZIWKZv11jlERiRO8buK1Y4JFc7HfXyZ+VDQCvElFc3viNPvPq4+cBXinEA3vqEYL8E4hGt5RjRbgnUI0vKMard2BF5qcAC+UrAAvlKwAL5SsAC+UrAAvlKwAL5SsAC+UrAAvlKwAL5SsAC+UrAAvlKwAL5SsAC+UrAAvlKz+H0grZM3Drxx4AAAAAElFTkSuQmCC)
Nous apercevons l’ascension puis déclin de François Fillon à cause du “Pénélopegate” qui relève de l’accusation envers le candidat de créer des emplois fictifs pour sa femme. Entre le 31 décembre 2016 et le 31 mars 2017, 290 sujets ont rendu compte de l’affaire Fillon, soit 53,7% de la totalité des sujets consacrés au candidat de la Droite et du Centre (source: INA). Il est également intéressants de noter que Jean-Luc Mélenchon et François Fillons sont les deux candidats les plus cités dans les Tweets, et qu’ils seront tous deux éliminés au premier tour.
data_cumulative <- data.frame(
name=c("Macron","Le Pen","Fillon") ,
value=colSums(data[2:4][-1,], na.rm = TRUE)/sum(!is.na(data$MacronEM))
)
ggplot(data_cumulative, aes(x=name, y=value)) +
geom_bar(stat = "identity", width = 0.7, fill = "steelblue") +
geom_text(aes(label=round(value, digits = 1)), vjust = 1.6, color = "white", size = 3.5) +
scale_fill_brewer(palette = "Blues") +
xlab("Candidat") +
ylab("% de l'opinion") +
ggtitle("Pourcentage moyen des principaux candidats (sources multiples)")
![](data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAArwAAAGwCAMAAAB8TkaXAAABrVBMVEUAAAAAADoAAGYAOjoAOmYAOpAAZpAAZrYzMzM6AAA6ADo6AGY6OgA6Ojo6OmY6ZmY6ZpA6ZrY6kLY6kNtGgrRGgsFGgs5GmdtGrudNTU1NTW5NTY5Nbo5NbqtNjshmAABmADpmAGZmOgBmOmZmkJBmkLZmkNtmtpBmtrZmtttmtv9pgrRprs5pw/JuTU1uTW5uTY5ubo5ubqtujqtujshuq+SJgrSJw/KJ1/+OTU2OTW6OTY6Obk2Obm6Ojm6Ojo6OjsiOyP+QOgCQOmaQZgCQZjqQZmaQkGaQkLaQtpCQttuQ27aQ2/+ombSo6/Ko6/+rbk2rbm6rbo6rjk2rjqurq46ryKur5P+2ZgC2kDq2tpC2ttu229u22/+2/9u2///GrrTG/+fG//LG///Ijk3Ijm7IyI7I5KvI/+TI///bkDrbkGbbtmbbtpDb27bb29vb/7bb/9vb///iw8Hi1+fi69vi6//i/+fi//Li///kq27kq47k5Kvk/8jk///r6+v/tmb/yI7/187/25D/27b/29v/5Kv/69v//7b//8j//9v//+T//+f///L///+rv3eoAAAACXBIWXMAAA7DAAAOwwHHb6hkAAAYFUlEQVR4nO2djX8cx1nHT06Mcm1pk8p2rARbwbxarh1hcLDjApWAvgSXmJdWaklISAxFhwuNDRQMeM+cez7Jyf7NnZndmd25G93t7ezts4+f3+/jj3Va7e0832e/mptbSXe9FEGYpkddAILUDeRF2AbyImwDeRG2gbwI20BehG0gL8I2kBdhm2XlHfRMXn6v/pCj3/io/p2r53hvfYl9Tz+ovjkiuqjiqFMlBhszeetOsyVMF6SK0QP7rCeRH2yssphlU1PeXm+79pCDU5C3+KyUYGNWrIspRg9cTd7Rl1b6rbRklpY3a/D9Xv3T2kF5W4tfVAV5hytulpM3sDmUgy41taa86YH++PSSWkB8aFGzWWV90Dv1YXq/33vZfI/qXb6a7fLjr/TWflvdUNO2mk3uf6WnP1VR+679ljmNdmeTUX/jfl/tMez3Xn2QFoMNzaQ/2doIHNxGD/+Bf8jjP1fjXc6/ru49zCrMCv5AAZQPct9+8fSDYtei5oJ3oFGGvY3SuNN7egf9wM28RYn5vnljvDpzvYttS3TcP5LfzfLdT39mBvZZsx0Ch+rU1BsjrwJVWbvj9eKlvpqUh/kXVM/cLvlqIz9HA7f4yG+tl3Y2GfW/pj5f+14/+6IbbLKlz+dQ3Zo9uC3SLMsvrc+On+8x2dLHzrbrgj8z8rqDDN2d9Am1uxY1l3lPfTTZshOXwy7t6XPqorLJzpVo9z3OHfJIRv3ttFR7jY5vh7p5orxFW/RSOHCoTj2e1V42aO7eZd17M2m5XuhZ6HhPEd/X08ie/n79ad98YV2fsvU0X2GpyUJ1Z115tPZe+nTPHM/ubKJad1kdRB1l1Ddq5YNlk/6B3hQ4uE7okKP+aw/MePke6g7HP+oVBZsR8oOUytcntNjV1lzwKl/VxJcLUrpfsac9aLkofdTiM7uvaYxfZ9Zut22pjvtHmu5mSd5izVtmLfe3fKiDdhZ9lVL3CZuZ+DKatTv+TGQeo7K98xuqOdkXzKyZ+/9vP/52X7Upe8wdmRbZnfP7rus7nM4e5IrBzLpBrxqCBy9G9Q856r/0mx84CnNYcyKyu2bnyh7ElZ+dULtrUXNJ3vSgZ79nivuV9/QPatUvPiv2zeUt16m/R9Ni21Id94/kd/NEeYu22BqnDzVY6866oaa8X/0wf0gzD+BTvbBfyR9Hjeql853PJvliIWuG/kKxs7mv6V0m5IHupB3MbBsaiQMHz0bdnj3kgf74ar6gzj0fFHctn1BXfnZC7a5FzeXxRn13Nt39QnsWReltxWfFvlljvDrz501221Id94/kd/NEecttCR9qGHGdqenUXfOmcfKqB6ivfffvfrZVR149M+gZaTl505+qZx+9vPpa8hY1l8cbTi1Qs8PP7nmSvMW+eW/Lddon/fm25eT1jhQnb+lQL4y87pH8wD442la6BzFLOiVv9gV9hPKywWvLtLxuMHWX39XXGoIHd/fMH6u9Q/7rn+Wdzx4f9SNuWN6ZZYPetai54FX/vXzJtmQK218dF0UVD8lFiW7N69dZumKlty3Vcf9Ifjen7u4vG2xbwod6QeQtP4fqmUs9xcnSD7JbZs3/XqqemBSSrNtHYPU85umlnv/Uxe5sDj89V7jB1I6/umYu5wQOrqMOedmWY3cZ9r6ulns/ymd1Nd19vXhmMi1vqXzzJCbftai54NUw7kqZu1+xZ3HQclGGOv+sdNSBWQuV68zWvG7bUh33jzQtr3f3gbuyUm5L+FCs17ylJ5vuwk32YOUuA9kHr233KLbhzbzFFaGevWiUXQ2zO5tMtXtYuo42sI9gswfPCrPllHex4+lMtl7qZ4+DIXld+dkJLXZ1NbsBstnVu1RWukA2e1DXo9Jn5U5s+HVmqhTblut4+UjT3fTuPnCXyry2BA/F+mpDufZRfsk8Tf+l33v1s9KPPvUPHi7bXV667D2yTy711h+Yq+3vmU7ofX/HtNXunB3cb3dpMHcBKHDwLGqJ9vLf73mHNNfZX8udUIfVV+tLV/s9z2z5+Tow3zUt1Wx5D7JLq3Zgi+32LB/UFpVtcyUWRzWN8erMVwHFtiU67hNPd9O7ux74M481X4zMHor1dd4VxfzArHKi113uqlqju64g7bpSgZX1T9gaz6j/K2o9dbCMjk8vxf6+DBt5s8srbaUCK+vfbWg8U4u8xVHPKnrLTNPhY3CRt9VfQlzM2qmJl15ef2lWZf+93muxYzKSd8W/z+uPtZCV9+/zIkhnAnkRtoG8CNtAXoRtIC/CNpAXYZsl5U2oQjdy0wFJ/MCQlyggiR8Y8hIFJPEDQ16igCR+YMhLFJDEDwx5iQKS+IEhL1FAEj8w5CUKSOIHhrxEAUn8wJCXKCCJHxjyEgUk8QNDXqKAJH5gyEsUkMQPDHmJApL4gSEvUUASPzDkJQpI4geGvMvmTKdC3Y0E8lavl2xkF2pd/VB3I4G81eslG9mFWlc/1N1IIG/1eslGdqHW1Q91NxLIW71espFdqHX1Q92NBPJWr5dsZBdqXf1QdyOBvNXrJRvZhVpXP9TdSCBv9XrJRnah1tUPdTcSfvJKDrWufqi70YVg5q2cCNNe/+80/Tj78OyK2XL2/TR9GCMvdTcSfjMvVbm85T336cdnzn/x/TPn/99tuvnsyuv/9X3IW29gyLts6ot2Xk23Z9//+MxNN9ee+yRGXMgLeZdMnGxq9j37l87Y13/+DuStPzDkXTZxsl19duXcJ/+ZfpH5e/7ZH5pVMOStNTDkXTZx7n7+zhm9yD33D2bKPa+erZ3/AmvemgND3mUT5a4VNV/s2lUw5K01MORdNjHufm6XuLm8es0LeWsPDHmXTX3R8oti5/XS4T+y67w3H5pPIW+tgSHvsqkv2k3Tu4/PXE1TLay+YqZ/SIEnbHUHhrzLJka15kPdjQTyVq+XbGQXal39UHcjgbzV6yUb2YVaVz/U3Uggb/V6yUZ2odbVD3U3EshbvV6ykV2odfVD3Y0E8lavl2xkF2pd/VB3I4G81eslG9mFWlc/1N1IIG/1eslGdqHW1Q91NxLIW71espFdqHX1Q92NBPJWr5dsZBdqXf1QdyOBvNXrJRvZhVpXP9TdSCBv9XrJRnah1tUPdTcSyFu9XrKRXah19UPdjQTyVq+XbGQXal39UHcjgbzV6yUb2YVaVz/U3Uggb/V6yUZ2odbVD3U3EshbvV6ykV2odfVD3Y0E8lavl2xkF2pd/VB3I4G81eslG9mFWlc/1N1IIG/1eslGdqHW1Q91NxLIW71espFdqHX1Q92NBPJWr5dsZBdqXf1QdyOBvNXrJRvZhVpXP9TdSCBv9XrJRnah1tUPdTcSyFu9XrKRXah19UPdjQTyVq+XbGQXal39UHcjgbzV6yUb2YVaVz/U3UhEyEt9lr3EtIy6dj8xJA0F8rabmJZR1+4nhqShQN52E9My6tr9xJA0FMjbbmJaRl27nxiShgJ5201My6hr9xND0lAgb7uJaRl17X5iSBoK5G03MS2jrt1PDElDgbztJqZl1LX7iSFpKJC33cS0jLp2PzEkDQXyLkzpHdOj3oEk+pRHD95oYkgaCuRdlPwd0+0bpxOe8tixm00MSUOBvIuSv1dk/FtGRp/y2LGbTQxJQ4G8VaKn3eJDTGJaFs/RZGJIGgrkrZKrz66UPsQkpmXxHE0mhqShQN4Kyd+592rU251miWlZ9OCNJoakoUDexcnfMf1q/NM1yNtoIO/CNDjvQt5GA3kXJX/H9PxDbGJa1sT4zSWGpKFA3kXJ3zHdvnE64SmPHbvZxJA0FMjbbmJaRl27nxiShgJ5201My6hr9xND0lAgb7uJaRl17X5iSBpKl+UdX9vc3E3To1ubFx5D3o6BQN658h69u5+O395/fnc3fXQR8nYMBPLOlfeJNvbe7tHtw3S8cwh5uwUCeecvG7LZd3z9sZmE0/QVlbl7h0N9lr3UqL+bIFEkL0rmyvv87o30yQUrr06NbxPqs+wl5vudunY/MSQNpdMz79GtG+pp23XI20EQyDtf3vG1XW0w1rxdBIG8c+XN3DVLB1xt6BwI5J0r76NNnV1c5+0kCOSdv2wIpcZI1GfZS0zLqGv3E0PSUCBvu4lpGXXtfmJIGgrkbTcxLaOu3U8MSUOBvO0mpmXUtfuJIWkokLfdxLSMunY/MSQNBfK2m5iWUdfuJ4akoUDedhPTMura/cSQNBTI225iWkZdu58YkoYCedtNTMuoa/cTQ9JQIG+7iWkZde1+JJNAXt4gokkgL28Q0SSQlzeIaBLIyxtENAnk5Q0imgTy8gYRTQJ5eYOIJoG8vEHoSF7/+TvmjcXsa32XbrZFAnl5g5CRnPv083fMW9vkr/ZdutkaCeTlDUJFcjX9dzXz6tn33CfZq34XN1sjgby8QahIvnFF26rfEe989t5MpZutkUBe3iDEa96z76dW2NLNtkggL28QWnnPffqwWPM+xJq3ndSov5sgtPJizUuRGvV3EwTyQl62ILTynn3frRVKN1sjgby8QbrxQ4qbD/FDivZSo/5ugogmgby8QUSTQF7eIKJJIC9vENEkkJc3iGgSyMsbRDQJ5OUNIpoE8vIGEU0CeXmDiCaBvLxBRJNAXt4gokkgL28Q0SSQlzeIaBLIyxtENAnk5Q0imiQo76jf0zn1EeTtOohokpC8x3vrmHmZgIgmCck72dqGvExARJOEZ17IywVENElI3nQ4Z7ULealr9yOZJCTvZKuHJ2xMQESTBGfexeHeqRr1dxNENAnk5Q0imiQs70CvGjYgb/dBRJME5R3o1e5ka4693DtVo/5ugogmCcmbX+edd82Be6dq1N9NENEkkJc3iGgSLBt4g4gmCcqLJ2xsQESThOVdGO6dqlF/N0FEk9SUt0aoe+PlhQEBSVqSVz1bw4+H+YCIJpmRt1q4d6pG/d0EEU0CeXmDiCYJyos/A2IDIpokJC/+DIgPiGiSkLz4MyA+IKJJwjMv5OUCIpokJC/+DIgPiGiSkLy4zssHRDRJcOZdHO6dqlF/N0FEk0Be3iCiSWbkxY+HWYGIJsHMyxtENAnk5Q0imiQsr/ll9HkXe7l3qkb93QQRTRKUF38GxAZENElIXvwBJh8Q0SSQlzeIaJLgsmG4dgfLBh4goknCM2/P5qTJl3unatTfTRDRJMGZd3G4d6pG/d0EEU0CeXmDiCYJy4sXHeECIpokKC+u87IBEU0SkheXyviAiCaBvLxBRJNg2cAbRDRJUF48YWMDIpokLO/CcO9Ujfq7CSKaBPLyBhFNMiOv/tnw6QeQlwmIaBLMvLxBRJNAXt4goklm5K3wK2WQt0ORTIKZlzeIaBLIyxtENAnk5Q0imgTy8gYRTQJ5eYOIJoG8vEFEk4TlHfR624N5P2fj3qka9XcTRDRJUN6D0z/b2p77tircO1Wj/m6CiCYJyWte5XQbv4zOAUQ0CeTlDSKaJLhsGOhlA/6SggOIaJKgvOkQf0nBBEQ0SVjeheHeqRr1dxNENAnk5Q0immRGXvxKJCsQ0STBmTf/0/c5r+vPvVM16u8miGiSkLx40RE+IKJJIC9vENEk85YNuM7bfRDRJEF5s+u8eCsrBiCiScLyLgz3TtWov5sgokkgL28Q0SSQlzeIaBLIyxtENAnk5Q0imqSSvOOdwzQ9urV54THk7RiIaJIT5NW/4aDfBtPkyeabh+nzu7vpo4uQt2MgoklOkPdgO01HX85+wnbvjR+qmffo9mE2A0PeTkUyyYy8k19Xyh7vleTNlg3j64/To3f31WevqMxbZJwQ6t54qVF/N0FAkpZn3snW6Qf+ssHI++SClVeH+7d5jfq7CSKaZFZeNeX2p/7o3Z95IW+XIpkkJK/+3YaNaXmx5u0kiGiSsLz6NXO2fXmf372Bqw3dAxFNMivvqJ/9AdCBv+bFdd5OgogmmZF38pZydqgXvcd/il9G7zyIaJI58s4L907VqL+bIKJJTl42QF4OIKJJZuWtFO6dqlF/N0FEk0Be3iCiSSAvbxDRJJCXN4hoEsjLG0Q0CeTlDSKaBPLyBhFNAnl5g4gmgby8QUSTQF7eIKJJIC9vENEkkJc3iGgSyMsbRDQJ5OUNIpoE8vIGEU0CeXmDiCaBvLxBRJNAXt4gokkgL28Q0SSQlzeIaBLIyxtENAnk5Q0imgTy8gYRTQJ5eYOIJoG8vEFEk0Be3iCiSSAvbxDRJJCXN4hoEsjLG0Q0CeTlDSKaBPLyBhFNAnl5g4gmgby8QUSTQF7eIKJJIC9vENEkkJc3iGgSyMsbRDQJ5OUNIpoE8vIGEU0CeXmDiCaBvLxBRJNAXt4gokkgL28Q0SSQlzeIaBLIyxtENAnk5Q0imgTy8gYRTQJ5eYOIJoG8vEFEk0Be3iCiSSAvbxDRJJCXN4hoEsjLG0Q0CeTlDSKapKa8NULdGy8vDAhIUsy8XEFEk0Be3iCiSSAvbxDRJJCXN4hoEsjLG0Q0CeTlDSKaBPLyBhFNAnl5g4gmgby8QUSTQF7eIKJJIC9vENEkkJc3iGgSyMsbRDQJ5OUNIpoE8vIGEU0CeXmDiCaBvLxBRJNAXt4gokkgL28Q0SSQlzeIaBLIyxtENAnk5Q0imgTy8gYRTQJ5eYOIJoG8vEFEk0Be3iCiSSAvbxDRJJCXN4hoEsjLG0Q0CeTlDSKaBPLyBhFNAnl5g4gmgby8QUSTQF7eIKJJIC9vENEkkJc3iGgSyMsbRDQJ5OUNIpoE8vIGEU0CeXmDiCaBvLxBRJNAXt4gokkgL28Q0SSQlzeIaBLIyxtENAnk5Q0imgTy8gYRTQJ5eYOIJoG8vEFEk0Be3iCiSSAvbxDRJJCXN4hoEsjLG0Q0CeTlDSKaBPLyBhFNAnl5g4gmgby8QUSTQF7eIKJJIC9vENEk1eU9urV54THk7RiIaJLK8j6/u5s+ugh5OwYimqSyvEe3D9PxziHk7RaIaJLK8o6vP06P3t1Xt15RWbQ3grSXhfI+uWDl1Yn5fo8K3chNByTxA1eVt5h5IW8jAUn8wFXljV7zNlQv2chNByTxA1eV9/ndG3FXGxqql2zkpgOS+IGryht9nbeheslGbjogiR+4srxeqMrFKe9gIG/VeslGbjogiR8Y8hIFJPEDQ16igCR+YMhLFJDEDwx5iQKS+IEhL1FAEj8w5CUKSOIHhrxEAUn8wJCXKCCJH7ievGR5cX6TGCSNBfK2HZA0FsjbdkDSWCBv2wFJY+EiL4LMBPIibAN5EbaBvAjbQF6EbTor7/japsqN8c5h9o+6nlqZqTunoqkmJuNr+o9w773ZqfPQXXndeX+h5NUbipfB4JPx27//OD36o26dh67LW8y8R7c21ff9+PrfbG7uUhdXNVberHa7Qb92ITea8c4f76fjP1Hl6wePXYP0xv7497755iEdCh95793QLz01vmY+UFdXMVbee/a1L8yG8dv7+RY+NOOdf9pN/+eHO4f6YUNR6G/AJxf+99puSnhiuiuvXh1eLOTVr9yjGqfPPp9FRF6pPuG6frvm3bVb+NCMd37yB8//+ic5z+18IWceEelOTHflnZp59efP/4qpvLeUsW/sp946Qm/hQzPe+ee//b9vmVrvbaplgn4JuwyH8MSwkZf1zHv70N9gt/ChUVX+4w/0tZ+jW7vFU2jMvOGctOZlc7p1SmvebD3oSudGo6p8Yh4pTMlv7+s1r1pKmJmYDIWPvPmTWjanWydb4l7MnpqbDbb0bAsfmuI8PNrc/LVv7uZXG8yVP7IT01l5EWRRIC/CNpAXYRvIi7AN5EXYBvIibAN5V5NBr9dbu3PCF4enPhp96Y696TY//bCFwl6kQN5V5Hjv9AMt8Hb4yyVjSzetz0jVQN5V5EC7q+zNPswE8jYTyLuCTLaKKXfUVwuIDWXm99SNbf213tp3smVDfjPfRf+/QVg0w0DeFaQ0hxqPB0rWvpqF1cfJ1obaZuS1N90umHmXDORdQUZfdmuBX+iFg9Jy1N82H80yITPV3nS7QN4lA3lXEE/DobnuYDap/8wyWMlduuntgiwRyLuC2DXv5C21Nli746bVsLzeLsgSgbyrSH6ZQa0JhvrWsJh5zVphWCwbhlO7IEsE8q4ixXXeoZ5V+4W8k6314glbdtPuUr5GgVQJ5F1NDuxP2NSNtb/Y2rbyhi6V5buoj+vUZfMK5EXYBvIibAN5EbaBvAjbQF6EbSAvwjaQF2EbyIuwDeRF2AbyImzzS1leR1MHZRYAAAAAAElFTkSuQmCC)
Ce plot de popularité nous permet de nous rendre compte que Macron ne partait clairement pas vainqueur de l’élection. Ce dernier a d’ailleurs été bien moins médiatisé que d’autres candidats au début de la campagne, pour l’être beaucoup sur la fin. Seuls 4 candidats (F. Fillon, E. Macron, B. Hamon et M. Le Pen) apparaissent plus de 100 fois à la télévision pendant la campagne présidentielle de février à avril 2017. Pour comparaison, F. Fillon apparaît 164 fois tandis que J.L. Mélenchon seulement 72 fois (source: INA).
LASSO régression sur le dataset IPSOS
Nous allons maintenant analyser ces données pour déterminer si nous pouvons trouver des liens entre la popularité des candidats et la médiatisation de certains sujets à la télévision française. Nous voulons savoir s’il est possible de déterminer un lien entre la médiatisation de certains sujets et la popularité des candidats.
Nous prenons l’example de Jean-Luc-Melenchon:
data = data2[-1,]
x = model.matrix(`Jean-Luc-Melenchon`~., data)[,-1]
y = data %>%
select(`Jean-Luc-Melenchon`) %>%
unlist() %>%
as.numeric()
set.seed(1)
train = data %>%
sample_frac(0.7)
test = data %>%
setdiff(train)
x_train = model.matrix(`Jean-Luc-Melenchon`~., train)[,-1]
x_test = model.matrix(`Jean-Luc-Melenchon`~., test)[,-1]
y_train = train %>%
select(`Jean-Luc-Melenchon`) %>%
unlist() %>%
as.numeric()
y_test = test %>%
select(`Jean-Luc-Melenchon`) %>%
unlist() %>%
as.numeric()
grid = 10^seq(10, -2, length = 100)
lasso_mod = glmnet(x_train, y_train, alpha=1, lambda = grid, thresh = 1e-5)
lasso_pred = predict(lasso_mod, s = 4, newx = x_test)
mean((lasso_pred - y_test)^2)
[1] 16.13989
Nous remarquons que même si nous sélectionnons le meilleur lambda pour la régularisation l1, nous obtenons quand même une erreur “importante” sur le risque empirique.
![](data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAArwAAAGwCAMAAAB8TkaXAAACMVBMVEUAAAAAADoAAGYAOjoAOpAAZmYAZrYoAAA6AAA6ADo6AGY6OgA6OmY6OpA6ZmY6kJA6kLY6kNtmAABmADpmAGZmOgBmOpBmkJBmtrZmtv9/f39/f5V/f6t/lcF/q8F/q9aQOgCQOjqQOmaQkDqQkGaQtpCQ2/+Vf3+Vf5WVf6uVlauVlcGVq9aVweurf3+rf5Wrf6urlX+rwcGr1v+2ZgC2Zjq2kDq2tma225C2/9u2//++vr7BlX/BlZXBlavBwZXB6//NNjrNNmbNNwDNXTrNXZDNgLbVNgDVNjrVNmbVXQDVXZDVopDVotvWq3/WwZXW68HW/+vW///bkDrbtrbb25Db/9vb///eNgDeNjreNmbeopDewf/nXQDnXTrnojrnwZDn4f/rwZXr///uAO7uAPHuAPTuOvHuOvfuZvTuZvnugADuojru4ZDu/7bu/9vu///xAO7xAPHxAPTxOu7xOvfxkPfxkPz0AO70APH0APT0kPf0tv/3Ou73OvH3kPH3ojr3tvf32//3/7b3///5Zu75kPH52/f5//z5///8kPH8//n8////AAD/ADr/AGb/OgD/OpD/ZgD/Zmb/Zrb/jAD/jDr/jGb/kDr/kNv/oAD/oJD/tAD/tGb/tLb/tmb/tpD/trb/tvT/tv//wWb/yDr/yLb/yNv/1qv/2mb/2pD/2rb/2v//25D/2/f/2///4ZD/68H/7ZD/7f///7b//9b//9v//+v///n///z///+NTq0jAAAACXBIWXMAAA7DAAAOwwHHb6hkAAAdJklEQVR4nO2djZ8kR1nHe9fz3ASD7hoN85CYjcCSoAHhVg1LkCMrkohEuQGPl0PN5UAkogcRQjBIjIl4MZtcYg5OQFqTQy7KhFwymYT+66y37unu6Zfql+quqv19P7f9Ut3zTM/Nd2ufruquDiIAHCUY+wAAaAvkBc4CeYGzQF7gLJAXOAvkbc/ukZMVW2cbk/RquLZj+HAOH5C3PZB3ZCBveyDvyEDe9izl3Q2CYMJ9fdNWEGzONvjabOM6Nt/km6dBsPZWLq/aD/QD5G1PIu/uUSYok3O2wSbTYH0vmq7viZXZBrN3lxWEAVuL9wP9AHnbE8s7/5UdmSUIVdVkIubSYl7Z7q7tJPuBfoC87UnnvKHMFCZRMpGWslQ3ZBVvkvOGyBv6A/K2J5GX5bTrt23k5b2K28qm00TeeD/QD5C3PbG8ibM1Ne9yM+gFyNueWF5hZ7iaNoic98hJqetUWRwibegNyNuedM073wo28/KyREGoOhULsuYV+4F+gLzt4a22AW/K5e24O7vpvEDIe92GOjuL23nj/cY+8OHhTd8lbdxxq7jYQWRY2kBeMACzq/dKtsy3JuJ8oHSHCiAvGIByN0OWey22J5AX2Ers5uwXf3X9tqvfIrrNZ3FWxWvfRN6Z2MpXmdI1USEvGACZ0h5N+iHD9T2eLyhlRZNMEO/Bt76XiTu7puq6Jw7kBQOQ1LxX7cifq/fCpH+S9+Isa165dXo0mtY2y0BeMACJvFfvxT/TpH+SN7+k0gaxdXbNn91U2yoDecEAFMgb17yy9zwvb/Q7b6vNGiAvGIICeUXOe9WOvARkVd5QozMH8oIBKJBXtTbInp6JOmELJvHW+bV7tVEhL3AWyAucxQZ5l/nORlBwT+NiW3R5s41NrgoIA7G7mqkYVbOmB72hblsTsz4irrwD/2/h8UUfVB8RC+J3J3VoK/8LLG8N1fUfJrBB3l314edbm9H06Ormo/wfz++n+l8gPw8I1/fUTMWonDVDdcmrWR8RV99BXEEp4/QSsSh+d1KHlvtfOHJSnY2Fa78gFF572/L6nDjrbXw1TgoL5A1/LpXNi/u8YoTJvIQ3/OU31qN2ZzMVo2rW9KBll7ya9RExxzR4Iw+xuxl/kp4qylz8zqQObfV/Qe2yNYn/jiRvKX51un6k8eVd/MZtOXnnW+qXUcirSnlPd1g5UMIKqhmcdz7KGFWzFkcuvpSkZ76PiCk+Lg56cVPSkNQ5YlH87qQObfV/QSK+h6y88lfHfXmnm/FnEJlBMOGaSu/S8vIUqpG74mJwNTMjb80vR4uI2Q8gwrwhWB5/14ir8fuJUihveOR3ZYIgL7DJyit/dQqvxrkude1ODaPLO/+1ZRXAcqBf3o6rMZnpr8X/FyIhbpYdyZvHROprQl51NHHPvBF5edI4v7ZNzqQXv58oxfLys7Vlz29y+smvvokyOW/2apxPLK/dqXvv0eXdnWT+F/mH3whkE0Gm5u2U85qQV40ekvTMG5E3e/xdIxbH7x6lpOY9KSvdaSJr+i2zNW/qapzUtTt17z22vCy/zdwfok7NJBafsKXr3aJTlR7MSMlr4IStL3lLT9hkEjCJzzmr5b16eTVOvMEBeTmpb4m3sfBPLIvk76xseVlsN0ob+B+d2TUn1az/prK4S17OTDSVyR7+7PH3Sk+/DeVNZfJPv7qmXEdecTWOi/Ly389QNMjz2jjdHaEaHxp2Ukxl+6GaqRhVs2aoLnk16yPiCuK/JXv8vdKTvOrQ+PeX/fi8k2ISpXOKWnl5nuyYvOAQUChv0dU4Pshr6sCMfWAENh94pPdpDORFYFvepzGQF4FteZ/GQF6fAodP/nR2IHjyv+T8eVY6e4pNFufZ2rP5vVu+jyVAXq8CX+R6ClnFRDA/4IvPPMsFTuwVmy8+uxpB733sAPL6Fzgr78WDf2eLc1HLLo1eLrV/n9GBvP4Fzsr732JxWenOD1hNzCaaOUPF+4wO5PUvsJRXpLzPJutztbY4/3x08WnUvGPEReD6wLmcN1mcc31nMocYUd4AgCwpO8rkZUuqNWJcefsNB5ynTt5QrLKcQZVDXmANdfIuzj/Nlliyy3NeVjDTP1+DvMAs9WnDMyxd4ALLhobFedF/0Th2D0BekMWkEV1iJw8U6Scc8BFL5Y2f5JS+xB/ygix2ypvcUJa+ahjygiyQFziLNOLK24lzrGAHvkmUX7nlRKvYrUhuu0uNBQJ5QRYlb6mYr77zWHT5zccz++hq3MW2KU7YQB118l6+4d7otduPRUPLaz4csBDNvuB4bzGNdbzyjndf/6e3fIDo1lS+IGpfuc9lojcff/WdJKri+iPp8CnQVHY4qBW08sViKnPeG9n8GPu5Nbp8/QlurHL6NKt9hbyvvus4r4oHqHnRVOYrnWzNxxLTpOa9+bj8ueXEZWEs5/T1J9Q+sgoeIG1Aa4OjUC3LfZcGn8lS+8okgpgm8rK5+jkdy3ta5Qi8nGUMdAzygixVgglkDZurdMULxNXjja9/jMOKaYG8cc0r6t24nMEyiiHShmVTWXLw73tfFK3+7O/j57D85L/7UnlFznvzcZ5EyFM2VhXzFS7vzVrna2gqO0QcHFzg8EX+l1/Uk/uiWuXFQS4DKMoYcvXswQqrb1oqr2ptuFv2Xlwm4jWwaG2IXru9sDujJHZvQF6rEXYtBRZ/5/cZOQVFclGfGjfIec0AeQ8Xqm68kGVp336By6VcWGH1DS2XFydsLpH/y86zgbzLSzOrq1j9tOGlD99xls3mn2SzxWf39z8qCu86u7p/YWEJqHkPGyuGEUtqsyXLSrS0Tm2YNrx05x+dYrNLf8DUvO9Dj7505z1RgadNxF3G7g3I6wA5eymS52Sl+4tUQhi8X8fqi5W8d/0Fr2zv+8xdZ+efukdtGlVedA87StZeiuT3dqbSYMFqklua68bE8n7pI49G809/6a6zS0Nfkiv859L+/gfvmX+STUTJh/f3T2l8DnQPH0Yy9hKfxF+chsFF1J2wvXTX3/35PdGlP2RqXvrQ3yg1l/Ly2vgSyybU2idP6VXC6GE7lJTbyznTmtV3iuU9+/BHo/tOcXnZ2dqlD6qcN6WrLIiE3o/qfQrIezhJ20t8YnZ4Le7pR/7502eVmovPnooyaQPLGPZPxfI+bF5e3EnhNKlGBxJTQ19dIu/8U3/5kUeVr4vPfkZ6GsvLuHTH2eFqXnQPO06iL8mZme8ukTe6j+ULYs7Shjv+liUKrIbl+cLDzNo77xHyslmc8955T03g/o8Y8rqE0pfUqpEvbykvT3RltctThEv7+7zf4uH9/T/+tGpt4FtODdTaMEA4YBihL6kVg/KaAfIecpi+FC+XfHt6F+6K/QoKeznKkgOzOhwYgNSpW/brqxFVS2jIC4xCS33T318/3yXkBSah1PVh4gsU14f19FWKMC/L/rfv/K+c/4QXfZdNFt9jaz/sFrs/IK+DUGo5ubCx6PLGNsRGCFnFRDC/wBd/8EMucN7e5V6asXsC8joIZdZk8hr0pW+xvD+68J9scf6dV6ICVyEv0IbyBfHJVx/6Fsv7f2JxWem+INKHl7/7owsXfjxn+cUrrGq+UOsw5AVUvqm7vll5Rcr7w2R9rtbmLA1+4TuvvHzhx9EL31Ve/yT60fc1Y/cE5HUQqtrYVd+SnDdZnMdnbCyHeJnVuC9LeV9OsgqN2D0BeR2Eqjd307dOXrbEleVtEa8oa8VMtE5AXlAH1WwvvrVSjyp5XxCrLEPg/s6z8uqctEFeUCsvp+Tm4Fqq5F18j2e1LLXlFv9gKS9Tmee8tQJDXqAlr6CFwdVpww9YcvB92VnxP6wClvKytZ9E8/qsAfKCBvIKmhmM7mFgFGr+kqIBdAp3hLzAKNRPmIoRc8wAeUFf8hYCeYFRyGBsacSLX/78OTZ7/ets9rNvnjnzACsR98qL4uj1Bx9pH7s3IK+LkMHYSt6v/P1DbPbcX91/LnrsC0+8+JVHXrz/3HKnFXkzW2tit2KxLe8cxrgNrkMGYyt57//WA2z22D/cf06JOrK8fNwGPmYD5HUdMhg7lvfbX30iev0b377/nPJyqedzZ8789YOiJhY/LJ146PWvn/kcK/kWzy9qY7dBjpgTru9BXtchg7Fjef/1Hx+Jnvsi0/O5L/wL0zPOeb/I8uCHosc/F8vL116Uhr/45Qei5z5fVQN3Hu4pPPIJyOs4ZDB2LO+5xx+IHnuIy8tq0+c+t8x5n/vCEzxtUPLyNbk/y5MfqUkfug/3NA3W9/oIB0aDDMZO5H3xq//2jXNKz59986FEy8cz8j6eklf91MVuxWJb2Qt5HYcMxk7kff3Bf/rqEyojSMtbXvOalHeAcGAQyGDsRN7oMd66y+cilU20VDmvmH1e5rxfeSROGczJi5HRfYHMhV7KyxLdSFa7qRM2ufS1Bx+JHj9z5mvfUK0NfJ+HjMqLkdG9gcyFtrN7GINL+wOZCw15gVnIXGg75cXI6P5A5kLHRsw2gmCZX7IKjxcwZFNVUhO2it0GjIzuC2QutDIiZJLGbauRlDf1Bzslb6ZYL3ZHaoa5BJZD5kJLI+ZbEzadXZVS1Bp5TYUDw0DmQksjwrgja3b1W/jf6oy8YRD8PJOX5xGT+VawtqN20ozdCZywOQ+ZC63kjc+LZhub6mIulfMeFbXydG2Hz5TTaifN2D0fKnAMMhc6Ly/LHKSiSZ3Ht7G0Qe0i5JU7acbu+VCBY5C50Ctpw15e3qmUd5qSV/3oxW4Huod9gcyFTp+wsWmBvAU1r3l50T3sDWQutDKCJbXRYvvIyQJ50znvVTtxymBWXvSw+QOZCx0bEYqTs3TaIE/YgglvZviluLWB3xk5gbxAHzIXGt3DwCxkLrSl8qJ72B/IWGRb5TUfDgwEGYusmsqe/Cmbzg4ODp5NtsyeiqLF+UzRctcGsduTuxwI8roJGYusjLjIDA2FrYmqXN5nnl0pErs2it0ayOsFZCzy0oj5wfNsOksqVmbqXFbIT0XLonax2wF5vYCMRV4aEcZmzp66eHDwH9zUZaU7Pzh4ik/0c4YIOS8QkLHIKXmfVgszZi4zmVezc5XyLs4/H118euia12w4MBBkLHKRvKx6nT0Vmzrn+gqRn/wp5AXNIWORC9OGKCWvkJm3QxxAXtAGMhY5f8LGpkt5pc8sZ1DWQl7QHDIWOWXERZYuLM4/nap5+VrEk12e8/KiRudrkBdwyFjktBGhPD1Lpw3PsCIusGxoWJwXtXOb2D0fKnAHMhYZ3cPAMGQsMuQFhiFjkSEvMAwZiwx5gWHIWGTIC0xDpgJDXmAaMhUY8gLTkKnAkBeYhkwFhrzANGQqMOQFpiFTgSEvMA2ZCgx5gWmow9ZKrJZ3mhpyBPI6C1Vvrd5chZ3yzrfiofzx+Fb3oZqt1dsrsFNeMX41al5PoJqt1dsrsFRe+chsyOsFVLe1eodyLJB3vrXJhybLiCqKj0JeP6C6jZU7lCONuPzm49GVt9/Klq7cciJ67XYiulFuf+32Y6sv4rtrx65l98jJ2cbRzDjSkjCAvF5Atduq9ihHGXH6Ribv9SekvHffyKWV9hbKy3fXj10DH7U6DCb1j2iBvK5C9duqdillacSVWz5wq5D31Xcdj6TFUZm8TWNXweXd5QluRl48k8IjqH5b1S6lpOX92O+f4M7GlW505R3vvv5jTN7LdOtl4hzjdbJmtRvppw1H51tHTrIUN12GZ1J4BGlsy+8jhKuJm5b3xOUbRYX76jtlynvl7cd4zRtnuHffqDJi3bpY+4QtWNtJPTs2wrD+nkEa2zL7xN5SmtXXZuR97f3HVbbA/GWq3nycqfqem5W7N9wrxFV7aIBnUgAB6WyjosJqMvJGV34rUZOZK+vZG/5EpAmnmbsiZTh9q15k7ZxXiZo5YcMzKXyCdLZRQVkNWXmju9/Dkgfe6sArWZUkiBM4WRi9+tsfe79WM1k2dhWxvNkTNjyTwidIZ1PRUjU5eXl7Gats7xU1bZzhXr7h3qRl9+73/Oa9uoesY9tukFDyKO7lDrrvC2yDdDbRalENOXmj07yGvZulx0zgWN7Xbv913m1BXODLpN901qzm7SkcsBDS2kSrRdU0NUL/dK0X23DC5gWkt4Vqds7T1AjtRl792Ivtlasfu4QD9kF6W6hm5zzNjJBdyD3H3q2ztlk4YB+kuYWqd84z/lVl/KKyVdA97BOku4UadRTbIO9ktRDdw35BuhsaXZo+vrzZjmEJetg8g3Q3NLqjbXx5xfWQOSCvZ5D2htI9Cxhf3uRmS3QP+ws13qDD+PIWg+5hr6DGG3SwVV7z4cCAUOMNOtggL0scjpzcXW0ww4OzvYEaluthgbzh2s6U30mxYi/k9QdqVKzJ+PIutjfFAA3TlY42yOsP1KhYk/Hl5Z0UXF7cPewz1KhYk/HljWve3fyoI+3CASuhRsWajC+vynmnq10V7cIBG6FGxZpYIK/splirvSQd8joMNSrWxAZ5xwkHhoQaFWsCecEQUKNiTSAvGARqUKrLyPLOtzYLL8xpGQ5YC2kX6oOaFwwCaRfqA3nBIJB2oT42yMu7J8KyMUeahwM2QtqF+lggr+xayw5x2iEcsBLSLtRnfHnjGzBxbYPXkHahPuPLy69t4KxeVdYqHLAT0i7UZ3x5I3lVg3zyWg/hgJWQdqE+FsjLvMW1Dd5D2oX62CDvOOHAsJBmWQMgLxgG0ipqhKXy8jvaeDaRbj6DvE5DWkWNsPPaBt4CIQbLmWKsMl8graJG2Fnz8lsvhbcY7skbSKuoEaPXvJOiYf0XN+1EIeT1CtIqasTo8m4WPpMi5I8VnCQdGLrhgL2QVlEjxk4bpsuH/WR62GQmnGn8hbxOQ1pFjRhbXjwN6LBAWkWNGD1tKMx5May/f5BWUSNGl7c458Ww/t5BWkWNGDttKM55MTK6f5BWUSPGlrc454W8HkIaJc0YX95CMKy/f5BGSTNskLdocGkM6+8dVFvQFAvkLR1cWkXBU9/9gGoLmjK+vOWDS7cKB2yFaguaMr68lYNL44TNH6i2oCnjy4vBpQ8JVFvQlPHlxeDShwSqLWiKBfIWDi6N7mHvoNqCptggbwHoHvYPqi1oip3yoofNQ6i2oCk2yLs6bgPk9RCqLWiKBfLKASKzJ2zoHvYPqi1oyvjyJmOVZZrK0D3sH1Sz3pjx5cUokYcFqllvzPjyFte8HDx72C+oZr0x48tbmPMKIK9fUM16YyyQt3SUSMjrF1S52gIb5B0nHBgaqlxtAeQFQ0GVqy0YXd7FthjWqXZcdMjrPFS52oKx5Z1vyUaGeN4xHLAYqlxtwdjyJl1opbcBNQoHLIYqV1swsrypkfRW23mbhwM2Q5WrLRh9xJykdRc9bL5DlastGF3eZc0LeX2HKtbaMHrOm1xtjnvYvIcq1towtryzjUluoVM4YDNUsdaGseWNH/c+xVPf/Ycq1towurzRYptfuFv3yHftcMBeqGKtDePLO1Y4MDhUsdYGyAsGgyrW2gB5wWBQ6Uo7IC8YDCpdaQfkBYNBpSvtgLxgMKh0pR2QFwwGla60w1J551vB+nu3s82/kNd5qGS5JZbKuzuJQn478RQD7fkElSy3xE55+X3D4t5hjFXmFVSy3BKL5b12D/J6BpUst8ROeZE2+AmVLLfEUnlxwuYlVLLcEkvlHSAcGB4qWW6JrfLimRQ+QiXLLbFUXjyTwkuoZLkldsqLYf39hEqWWwJ5wXBQyXJL7JQXz6TwEypcbI2l8uKZFF5ChYutsVXeVJSEXsKBEaHCxdbYL6+pcGAEqGCpPZbLixM2v6CCpfZYLq/BcGAEqGCpPZAXDAgVLLXHVnnRPewlVLDUHkvlRfewn1DBUnvslBc9bJ5CBUvtgbxgQKhgqT12yovuYU+hgqX2WCovuof9hAqW2mOrvObDgRGggqX22CwvHpztHVSw1B7ICwaEVha6AHnBgNDKQhdsltdsODACtLLQBcgLBoRWFroAecGQUG7eCcgLhoRy805AXjAklJt3AvKCIaHcvBOQFwwJ5eadgLxgSCg37wTkBUNCuXknIC8YEsrNOwF5wZBQbt4JyAuGhDKzjkBeMCSUmXUE8oIhocysI5AXDAllZh2BvGBIKDPrCOQFQ0KZWUcgLxgSysw6AnnBoFBq2hVb5cVAe55CqWlXLJUXA+35CqWmXbFTXoxV5i2UTLoDecGgUDLpjp3yYqA9b6Fk0h1L5cVAe75CyaQ7tsprPhwYBUom3YG8YFAomXQH8oJBoWTSHTvlnW/Fj2xd3+shHLAHSibdsVPebO9ED+GALVAy6Y6t8i62N/NFkNcHKJl0x1Z5zYcDo0BRb+46IG+Q0Es4MC4UHSZ5TYUD40CHRl5c2+AddGjkNRgOjANBXuAq5L+8uJPCV8h7eXEnhbeQ7/LiYnR/IcgLXIV8lxd3UvgL9eaurfLiTgpvOQTymg8HxuGQyIsHZ/sI5AXOAnmBsxwSec2GA+MAeYGzQF7gLkR9RYK8YGAgL3AW6i0S5AUDQ71FgrxgYKi3SJAXDAz1FgnygoGh3iJBXjAw1FskyAucBfICZ4G8wFkgL3AWyAucBfICZ4G8wFkgL3AWyAucBfICZ3FJXgCy9CtY1jaDsTth6sCMfWAENh94pPdpDORFYFvepzGQF4FteZ/GQF4EtuV9GgN5EdiW92kM5EVgW96nMZAXgW15n8ZAXgS25X0aA3kR2Jb3AaB3IC9wFsgLnAXyAmexUN7ZRhBMomixHazv9RyZP+6Qh089Oa6/wAYO2MzRCowcrcTYMeexT9751iQK13b4MwrTTzXuJTL/usJ+gy4D93/AkZGjlRg5WomxY85jn7wh+6VdbE/4k1rSD4btzjR4I4+3u1m7Z6vA/R8wp/+jlZg5WompY17BPnk5rPadKR/64+MneczFTX3GTAXu/4AZBo5WYuRoJcaOeQU75Z0eOWnif1fGfEOw1vf/rjF5jRwtx6C8xo55BSvlna6bcUE4dtVONL92r9e45uQ1crQisDl5jR3zCjbKO+W/t6bk5fTvmCl5OUaCGjraaRCIszVDvxc5LJR3KppwTJxRGJXX2CmQsd8IUyds0eGVl//V4Rhoy+HfVshTkmtMtPOaaHwycrQCc01l5o45j33y7oobpifRfMtMJwX7y9Z767wIbOCAzRytwMjRSowdcx775AVAE8gLnAXyAmeBvMBZIC9wFsgLnAXyAmeBvMBZIC9wFsirz271vS3Vm2cbk/RqOMxFg34DefWBvJYBefWBvJYBefVZ2hkGQSBu1NoNgrW3Kg+Xm3fFlUXM1zdtsf3k3dCzjes21Ium8YvUfqAlkFefxM5QXPR2lJWs77GVvLz8UkN+Qf1sg02m/Aqr6fqeWJltbKZeFO8HWgJ59YntXGzzCpT94ZepwG5OXnEhNt8kVFWTiZhLi9WLkv1ASyCvPrGdUjg2DcVlq+FK2iDyioncL57IF7F9My8KkTd0APLqk5V3vjWZFsvLL8a+bSMvr7hBhE2XL4r3Ay2BvPpo1ryJszU173IzaAfk1ack553m5BV2hqtpg8h5j5xMXpTsB1oCefXRbG3gds63gs28vGw3oepULEj1xX6gJZBXH3lrKLct3c67/nvqbsNkM2/H3dlN5wVC3us21NlZ3M4b7zfeJ3IcyNuZcJhbZcEKkLcDoladb+EP/0hA3i6EATp4RwTyAmeBvMBZIC9wFsgLnAXyAmeBvMBZIC9wFsgLnAXyAmeBvMBZIC9wFsgLnAXyAmeBvMBZIC9wFsgLnAXyAmeBvMBZIC9wFsgLnAXyAmeBvMBZIC9wFsgLnAXyAmeBvMBZIC9wFsgLnAXyAmeBvMBZIC9wFsgLnAXyAmeBvMBZIC9wFsgLnAXyAmeBvMBZIC9wFsgLnAXyAmeBvMBZIC9wFsgLnAXyAmeBvMBZIC9wFsgLnAXyAmeBvMBZ/h8cMqOH1oy9UwAAAABJRU5ErkJggg==)
Ce plot permet de retrouver l’intuition derrière le LASSO, si lambda est grand, la solution sera très sparse et tous les coefficients seront amenés à zéro. S’il est petit et procche de zéro, le terme à minimiser sera le terme de fidélité avec les données et on se ramène à un problème des moindres carrés ordinaires. Si on zoomait sur la zone à droite, on pourrait observer une solution linéaire par morceaux, c’est dû à l’opérateur du soft thresholding, qui minimise le LASSO.
set.seed(1)
cv.out = cv.glmnet(x_train, y_train, alpha = 1)
Option grouped=FALSE enforced in cv.glmnet, since < 3 observations per fold
bestlam = cv.out$lambda.min
plot(cv.out)
![](data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAArwAAAGwCAMAAAB8TkaXAAAAolBMVEUAAAAAADoAAGYAOjoAOpAAZrY6AAA6ADo6AGY6Ojo6OmY6OpA6ZrY6kLY6kNtmAABmADpmOgBmOjpmOmZmZmZmZpBmZrZmkLZmkNtmtv+QOgCQZgCQZmaQkGaQkLaQkNuQtv+Q2/+pqam2ZgC2Zma2kDq2kJC2tma22/+2/7a2///bkDrbkGbbtpDb////AAD/tmb/25D/27b//7b//9v////U+aBzAAAACXBIWXMAAA7DAAAOwwHHb6hkAAAY5UlEQVR4nO2dC5vjqJWGXZOqmtkkW57Nbi5dySZbrd1cRptqe2z9/78W6y7LgBBwDhz43ucZj7qFQZe38REgODQACOUQ+wAAcAXyArFAXiAWyAvEAnmBWEjlvb4fDoe3dqu+bXwx7D+/Hg4vpgy2ElyOt43HFN4lzPtvVM+fqtM8//DTcI5PH6r9fYLToefxMowZaA5xSnB3LKoMTuoj0OeruWojmvM1fUt/EebDDAalvNf323nU7VnWt43Tw22b959uV+lyVKhnneD8veqSeZcw729aN5Q383L8rr0n1S3l+VWh5pig31Tc82G/5hCnBHfHosygvcqP6ujz1Vy16Yvq8zV9q74diOIQ7g4zHJTy9rfydj7X9/bSVevrt9j/1m84J2hOyuviXcJcQFfhqG7mrbprd1+OXQaKFEOCjscjmPbrDnFKsDwWfQYPV1mfb6O5agOa8zV9q7sI/d1WfG1xHcJAH/Pe/iFq5J32b1QAFgmaWvvbF6CEvi6pn/+oVPOtu5l9GlXFNyRoOb8+/uqP+7VHsMxAVcKUgVpu05mZrprmfLe+pZX3/jSCQC9vdTtiddgw7T9994+jJpqzTNBU/6aLBwOUUA1yaWLApbzKk5xuWqW+e30GhiNY3HVlFgv7HwQx5Wu6avrzNX2r6WNENeLkPXWnqXmUGPbX7e+J/tfGIsHl2F7nSnlFvUvoTqH99TXJO9R7Rnn70EKz33gE010/Ka0x1f2GfE1XTX++pm91d1rrtTR5T90DRltdqH4yh/39v1X1qdklGDaVtZJvCX0BbTRrknd4YDPKq3uU6eU1HeL4tyf1Q75RXkO+95nff01/voZvtVzfdV8TJm9fUWgfNYb9/R7lo7plgh5VAu8ShlNof5ON8jbV7YHkHz+q9Bxvmk6GXl79Ic72m8IKTdhgyrdDuct0vvpvDUejixtkyVv3F1v7MDPu76+v4snCNkGPIoF3CfXcUK1ppV3eE3VL5pBAFzWMMa/uEKcMat0vsumBzZRvf8yqXabz1X9r2KXzWpS8YwTYn83joY/7L0f1fvsEZCXcBbHmmrdLrkwxJDDfVO0hTn+rDqin/ZqmMkO+uqs2oj5fw7c2MpQk7xzlqmPe+W/ae95fe9cE3T17eIjwLuH+oE3ydt0Amh/M4aZt/JxqDnFKoH5oWGSg6aQw5Ku+avNuTWuD/luVvqxGlrzDT097OStV48pi/0nZ+LInQaX6jfMuYbG/2ah5205T0wOZrqNg3q8+xCnB/bEoC9DsNbQimiIDbcxr+JYxQ0nyAkAK5AVigbxALJAXiAXyArFAXiAWyAvEAnmBWCAvEAvkBWKBvEAskBeIBfICsUBeIBbIC8QCeYFYIC8QC+QFYoG8QCyQF4gF8gKxQF4glsDyHgDwJpa8YbMDlCRws5SHAHnBJgncLMgL8gLyArFAXrBJAjcLYQNwI4GbBXlBXkBeIBbICzZJ4GYhbABuJHCzkpb36wNhywMZkoq8PV+nDwA2SVFeVL+JgbDBJrtFzQuD0wHy2mS3lHfeBEAJ5AViSVxeBA8pUFjYcH3vh7prF4PbUfNC29iUJe+0cLNu9fFd8qL6BUpI5F0sKqteINqh5oW3YA2JvP364R26VWT3y4v6NxpFhQ1kNS+0jUJR8t5i3qHqDRLzrncB0EHU2nA59q0NmnrXWV7EDmAm8XZe1Z9R/3JTVtjgmp2lvKh/eSlS3vPrF90u75oX2gKiprJ5OqlgTWXKTVAyNDXv0MhAWvMidmCjsLDhcmzbGR7l3Zjgb3fNC285KEzepqmePhhiXlS/JUP3wFYf3hjknTdBcRC2NpxffwF5s6C4sKHpBvXyyIvggZYS5d2fnU/NC2+LA/ICsWQkL2IHKooKG/h62PDsxkFR8t4e1bRvXhqz85cX9W9BkL09/OKSXZiaF9oWAlXMe9K3khmyg7xJUlbY4JpdIHkRO4QF8tpkF7LmhbfZA3mBWDKWF8FDKBA22GQXvOaFtiGAvDbZhZcX1W/G5C7vvAmyowx5Uf16gbDBJjvKmhfeOgN5bbKDvGAHBcmL4CE3CpJ33gT7QNhgkx3kTRLIa5Mdg7yIHfKhOHnnTSCdMuVF/bsLhA022XHWvNDWGshrkx3kBTsoWF7EDtIpWN75z8AMwgab7CBvkkBem+wiyIvgQS7FyztvAmlA3gbV7xYIGyyy+/btWxOv5oW3OiDvdnbfWgaDIS/YJDl5e4OXlTCbvAgehMEsr3Epq4W8y0qYteaFtgoQNlhkd6ftVAlD3thAXpvsWnXGqGFRCY+7OORF7CCH9OTtP9bVL2/NC29FkKq8UyX8+ADHIS+q3yUIG2yyU6j0+ADHVfPC25F85L2+v1EdjNKfdQzMJy/q38TZL+/laJ6w36dcrWWaJmD6mhfaJoxD2HDaWunHvVy9P6tWND55Uf3mFDZMi6x5Oew0MGeOIIzhL9FjXbnkI28Y3EeVbYe/BPKi/k0RefJuN6AR1bzQNjVc5D2/3oKGpw+Ccq0tM4a/VPIWW/1mFDacDm1bWb2xSqDLweywbBH+8ta8hXnbkY+8Yztv/fwZ+mD2WuY1ANg1VbH1b3q4t/P6tZiFeQ1oETuw1rwwOAlE17yL8Hf/6PVAqUogn7AhjZh3Le8y/GWTt5TqNyN5U2htWG4+dF2w1ryIIOIhsJ1Xubn/1YvwqQAz6Y8qs/Qn6sDJzOXNJ2yIMqrMbjPKwMnuI+/YIR9544wqs9vc8+oFUXAB+BA1qsxqM8rAyfnPgI9cHtgWm6aeY1p5cw0e8gkbEn1gW30h2qjfvLTtyUfehB/Ylh/qnmPImxN5PbCt/hxl1G+usUOCED2wXd830jDKi4GTvuQTNthQH4a4+HTQBMgs8hpfeoO81hQl7+KZTjf2jEfe0WBV1wXkFc9OeRdPa4bQ1yIVo7yargtaeRH5MuAib1+xGuRNq+btPuMNnMyATMIGO3nnwb6RY97FZrSBkxlQlrxTk4T2bQt2eUeD2QdOAjKI5HUsl1reZh070MqLwJeWwuRtP2OM+pVNYWFDGp0Ums3NnmPIe09Z8qbSSaHfZB71CyjYLe+8GJWopjK1vCwDJxH4UkHSw6bvpDCuw8Ypb4xRv2LJJGywQ0DNOxnMOOpXLEXJm2InhToV26hfBA8EEL0GlGgnhTIV26hf4fVvemT4DpubvAyjfsU+u5UVNrhmF0Vetrl+l5uiyEReu6Yy14OJJO9oMPWQdbHyporzLJEnv5n2kpOXYa7fYVNq8JAeLq++v3T/N8zPa1E/pydv+0k7ZP3hC1LIJGxo7GZGv75vxRQpy0s1ZB3yBj4E90lHKtPM6GP1vO9gostLO2R9+QXEDgFwinnbqrc2x7ynjYnTE5V3NJhkyLr6C8AZl6ayLqT1WpEibXmphqyLlTefsCEMScvbfhIMWX/8gpDgAfLaZJeQvARD1k1fAA44hg3Pn5XfXJHpyztXv6GGrEPewLg8sD191M+fl6OXvZLkDTXqV/OF9GOHfMKGtqms7aCog3YPf1XT7WqmT255jZOdhf/3lSr5yNt2UrTyUrw9vCa6vKPBU9NZkfKminvNa+yk8C93/WMaUd7tdVoCHGLysUOCOMe8JMu3rnGLIEhSBRj1a/mF9MgnbBg6KUiWb1WztxKmSWUKfyFvlENIq513i5jyjgarwt9Q8iJ42IX7wBymckd2RBCUiqvD36A1L7y1xX1IJFO5dzxUTezytp+uAyfFyptR2EC4GtAOIsrrOnDStvDkYod85KVcvtWOrQiCXN7R4J0DJ3cXDszIemBbYIggeORdhL+WY892FZ5e/ZseYuVdEEne9nO7882/8PjkEzZMcUO0sGGBMoJglHe7882r8ESq34zkrZ4/65fm/MrQw7aHOPJO1S/xagFAgcsD21tzakeVmV/AdJoZ3Y3onciL1gfIy4hbO+/5h5+6/3S4zozuQ+xOZIL3hr6uTyySx/mEDW0P2+XHD5O8zvPzhiGOvBxLXUQiH3m7UejVm3nGHMflW72J3YlMJ2/06jdBXJrKqpe2xcE4YU7UmrcnM3nnTTBC087rOjN6GGKOgOjdDfTG5uOuOPVvRmGDDY4zoweHXd7RYPJ1WjjJR974YxvsiDgCIjd5U8W55nUbW7axlFVw4oyACPW6sWYXnt0G3MOGyjQPZHU4vHQdFbpuOP5fIkZ52RYZYiKfsGHEuHxr+3bx4aXvjrM/GCqijICAvOSH4C6vYdKRrqmsn/c/XlOZmnzkRezgLu/lqA8buk6KvmZm7qQwwD4CwtRqFrLwcnFvbTCMy0m45u3gkXc0mHyFLHLyCxtMTDGv9lXjaGED8/AdYnl5goey5E2xtWENp7yOs5TsSVUiHp0UXv0UccMGxuE76lYzyBsCl1ff+wVVOOYqo4dc3vaTWF7y2CGBmxVsPG9vrfFNCreDYYVx+I7rFDu7UxER/2YFG9vwYz/FHsf8vExQy/v4npAseVPFveYlnp+XE3J5R4NJ1iYc/lxgr4Xb/LzN5iKCwcolhnHs2f4pdhxTBSeBmxV2fl6SRQSjQi0v1dqEkNft2+4kcD1mmAZOtp907xjPm8UAee+hlpf4HeOyAt/d8p5f23ELrNP6M0E+cHLatJ0fyqfwkCRws4KEDd0sT203RXLTPYWERV7al4VCksDNCiJv9/5E1TbxGt+kcDuYZCCW13Z+qFTkTZWd8nZvRlzfW28z6qRYQDnqd/UFujfdSol8d8v7ZXy3J095F1DLy/GmWxgSuFkhwoZO3j7clT62wQTNqF/VF4zPbpDXfAguMW/XudbHDmEPJkF45KUYsl5A7LBX3tPTx+XY1rmV35pAAuQNPupX+QXTs1ugfznZsrud99T1DJ9f8+seNkAo72gw4fsW3iRws9A97Ay1vLTvW3iTwM0KKK//Eq4JXA8rQg5Z3/gCibxZB76Q1xomeYnet8gRyGtDmFG/W18gfd/ChwRuFsKGEBDKOxpM8r6FDwncLMjrh/eoX3t5Aw9ZzzXyJWptYF2HjR9CefcvabynxLxwkHdTzDjrsHFCKW/7uax+E5A3gZsVKmzY7ltLYjUgIjyGrO8QbtHuG2rIukfskMDNCjVvg26+6Jl467CxQijvVP1SjPrNBhd5N1+hyLnm7XAb9btXOKoh69ngMunI9nCyuOuwsUIo72hwyCHrTsFDAjcrVMx7sphiL5V12EjZO+rXTbjN8NexxB0kcLOCxbwy1mHjhFLezfCXXt5UYR5Vxr0OGz1u4a+HvKEGTmYAkbxtc9r51TC7QzbyLqCTd/HsFmLs2d7AN4GbFSrmHeMGQ9jQufv9h6FpIoHrERxCeU3hr0+JdiRws4J1Ujx/1i/GSUe6puB+Xoc8m8oe2Pvs5p7qMfyllzdV3DopTjclDW8Pt/Xt0NabcyeFEmp5ww2clD9cx62T4vzDT91/Orp3jEuqeWfI5R0NDjhwcosEblagsKGtUtup/U3yXo7f/bRYSdCnXEHsaHjwFs6u5xjyrhO2iw5XbxuTjpz6hzptZ1wC14MScnnvwl+PvETHDi5NZbeg4HL066OAvAFShR04mSBf16z249X3wDxcazp5w01UvVH9bt6sB8tCoj8EyEsHubxz7BBq1K8a9c1SW0Z0usHkvcUMz5+V31tskNdi0ypVsIGTW/Xv8sxsjA1/umtcRpU9fdwe1izGpNtllyVrEwjlHQ0OMurXVP9anVji8rZNYG1LQ41RZVYwyus/6lcd/h6UEQKrvMGGRH7p5M1+culAsMgbaqLqYXPFge8nhFjesebNaPlWIgwPMyT3PJy8iaZa4xzz1hbvU1hlVwSc8vq8b5G9vP2YyPzWYaOE556bGh585D2EO0TXVGjnjQL3cw7k9UgYJTsZMMrr+LJQBC13pFqzU95xqie8gOkCzz1XNzxA3jbe9Qx295abB9xt+2HlzSdsuFW+vvOb7ik3Ozjl3f2mW+7y3qg8x0PuKTcnGIcEOL4sFEHLHanWOD6w1Qe/Zt4y5Z3hueeQV5Pw/IoHNid2hL9h5N3zpps626zChq7RAW9SeEN+z3e/6Za/vO37aX5BQ/HyGoY9hDYjgLyppFqzX97K8FqlPYXLuwDyWqdas1fe2r+hYV+52UN+zxeNZo7ZZhI2oIctJHzvW9i+ppm1vLZkvpRVeJKWN5VUa2jkzX0pq5CwDFm3fccY8ua/oAoRhGZYvmOszraosKGQpaxCwjLqF/JagJrXB2p5/SY3i5lqDVXMW8xSViEhHzgZbH6oOKnWELU2FLGUFSV0ZjjMD1VU2MCfXXZQy7trih3I2+eS3VJW4aEe9RtscjP2VGtI5TUsugJ5LSA0I9T8UPnJOy2Sqe9jg7xmyEf97pkfqqywYWhkQM0bAjozIK+Sy7FtZ4C8flCP+g0wPxRrqjVkMW/19AF5g0A49sx/fqg85W0H50DewJCYsT3FTmFhQ8v59ReQNxSEY8++Tei+UKC87aBeyBsUmuE7i4aHtEf9rkEPmzhIRkA89rslJe8Q1KyAvJIJ6M/i2e2h9SFS2DD/Fnz7dlDZC3mFQtKJvAh/lw9wa3mXVn1rtjfdUt0dDOTNk5CV3xQ7LGNgvVWLYMOwGSjV45lDXskE70Sewl9WLTdTIebNm3DyLlofBnkOUeS9m3AihSGRVNkVTcBO5Lvwt9HIyxTz3h0X5M2egPKuH800VlG2NjxsroG8ORFc3rRSrYG8mRBm+I76CyV2DzNmBxZAXueEUbIDHd7DdxA2RMgOrIG8LgmjZAfWIGxwSRglO7DAY+Ak5I2QHVCDsGFfwijZATWQd1/CKNmBNW5D1hE2RMgOGIC8kFcie4esI2yIkB3YAvKGA/Iyg7AhHJCXD+/XjQuTF+uwpUmqAUFKYQPWYUuUVLVMSF6sBpQgHu/KFxU2YB22pIG8JlDzJk2CAUFCYQPWYUuV4BM9ZCgv1mFLH4QNzkDeeBheFoK8plywDltSpBIQJBU21Dc9u7C3RmtDyqSiZUry1k8ft7D3pYG86bJjooeiwoa+qez6fntcg7wCgLwLxk6K6vkT8iaN90QP+YUNUydF9QJ5pQB5B0ZlL0esPSwFhA0jYxfb9R3yps/WRA+FycudHQgEwgb+7IA33u9bQF4QF2XrA8IG0uxAcCAvV3YgJF/X9H87fSBsABLY8hjygrQZwgYl/a7pI6y8M4e5sPVxWZ9AMCCvINQ3Sy3zfrq8pg9NXY+YFyTFltGbQF4gFsgLNkngZiFsAG4kcLMgL8gLyAvEAnnBJgncLIQNwI0EbhbkBXkBeYFYIC/YJIGblVbYAIA3keR1J8qBoFDRhUJeFCq2UMiLQsUWCnlRqNhCIS8KFVso5EWhYguFvChUbKGQF4WKLRTyolCxhSYjLwB7gbxALJAXiAXyArFAXiAWyAvEAnmBWCAvEAvkBWKBvEAskBeIBfICsUBeIJZk5K0Ph6cP5jKv74fD4Y250BvnH9SL31JxinBtG4bTTEXedk3uE/MVvr7fCqwPL6yFNu2645qVm4loryv3tW04TjMReS/Ht1YmXo/Or+0y4DWvSV09yFrk9b39cam4/40ynGYi8nZwy9vDXSedDm8nVnnj/BvlOM2U5K1jBGZNxV3z3m4sr7zff7CX2VGQvKcoz05tDcFfJqtI/U9LhKC3IHnbsOH5k7vME//zGuQNRUryRrjAMepdhA2hiC9vPbe19o8WjIXWrO5OZ1rCA1tThLwd/QXmrh3qA9c/lnt4zzNSU1k58jbVLdztrzIf59cYMUPD/o80UidFOfI21e03lbkerPt5uDN8klkRo+u9KUleAPYCeYFYIC8QC+QFYoG8QCyQF4gF8gKxQF4gFsgLxAJ5gVggLxAL5AVigbxALJAXiAXyArFAXiAWyAvEAnmBWCAvEAvkBWKBvEAskDcO17/Ob9b+/Hv2Wa7yAPJG4effLn29/Bf7bDZZAHmpqAyzBl7+897W869Q9zoAeakwydvPvfR/h3+//wuwD8hLhUHefma28x+a/x/nsYkxG5N8IC8Vs7yncXbI6nB4+u92EZdxHqTLX4Yk3ZocYCeQl4pJ3tPhy03Ol34BgdPh6WOeRPv86yFxjHm15QN5qRjl7ee+vMUFfbBQPX1cjqOpk+DXd/7pc+UDeakYxRwC3Ncv/aSJncXD49n59VeDst2ScGAnkJeKe3kvxy/1g7z18z//p9+CvC5AXir0Ne8YNtyEHp/YEDa4AHmp0MS89fzAVj9/Xv/cDInwwLYfyEuFvrVhaCrrmsf+9+/n3zVoKnMD8lJR9YsGvN238373t5u4i+Vjfv6PWKukZQDkZaZT9qE3GN3DLkBeNrr6to8PLr+5r2jPv8TjmgOQl482fBhWPLofVnb9E9x1AfLG4frXv0/bP/8ZLQ1OQF4gFsgLxAJ5gVggLxAL5AVigbxALJAXiAXyArFAXiAWyAvEAnmBWCAvEAvkBWKBvEAskBeIBfICsUBeIBbIC8QCeYFYIC8QC+QFYoG8QCyQF4gF8gKx/Avkb/amkMVZgwAAAABJRU5ErkJggg==)
Nous pouvons ici remarquer qu’il y a un lambda optimal près de 1 (son log est proche de zéro), et la MSE remonte après l’avoir atteint.
out = glmnet(x, y, alpha = 1, lambda = grid)
lasso_coef = predict(out, type = "coefficients", s = bestlam)
lasso_coef[lasso_coef != 0]
<sparse>[ <logic> ] : .M.sub.i.logical() maybe inefficient
[1] 3.352243e+01 -8.325441e-05 -7.154112e-04 3.431529e-04 1.124067e-04 -7.446715e-03
lasso_coef@Dimnames[[1]][which(lasso_coef != 0 ) ]
[1] "(Intercept)" "France3Catastrophes" "France2Justice"
[4] "`ArtePolitique France`" "`M6Politique France`" "`CanalSciences et techniques`"
Nous pouvons retrouver ici les variables que la régression LASSO a sélectionné. Comme attendu, nous retrouvons la politique en France sur deux chaînes, mais retrouvons également des variables plus discutables comme “Sciences et techniques” sur Canal+. Le fait que nous n’ayons que peu de données pour la régression nous amène à ne pas pouvoir réellement sélectionner toutes les variables. Un comportement à l’échelle plus locale aurait pu être désireux (avec des données INA toutes les semaines au lieu de tous les mois par exemple) afin d’analyser des séries temporelles de manière plus précise.
Random Forests
names(data) <- make.names(names(data),unique = TRUE)
sample = sample.split(data$Jean.Luc.Melenchon, SplitRatio = .7)
train = subset(data, sample == TRUE)
test = subset(data, sample == FALSE)
dim(train)
[1] 29 88
[1] 12 88
rf_classifier <- randomForest(
Jean.Luc.Melenchon ~ .,
data=train,
importance = TRUE
)
rf_classifier
Call:
randomForest(formula = Jean.Luc.Melenchon ~ ., data = train, importance = TRUE)
Type of random forest: regression
Number of trees: 500
No. of variables tried at each split: 29
Mean of squared residuals: 25.019
% Var explained: 25.64
prediction = predict(rf_classifier, newdata=test)
confusion_matrix = table(test$Jean.Luc.Melenchon, prediction)
confusion_matrix
prediction
30.8015666666667 31.2691333333333 31.3380333333333 31.4463 31.5000333333334 31.8460333333333 34.5885 34.6334
26 0 1 0 0 0 0 0 0
27 0 0 0 1 0 0 0 0
28 1 0 0 0 0 0 0 0
29 0 0 0 0 0 0 0 0
30 0 0 1 0 0 0 0 0
31 0 0 0 0 1 0 0 0
32 0 0 0 0 0 1 0 0
33 0 0 0 0 0 0 1 0
34 0 0 0 0 0 0 0 0
36 0 0 0 0 0 0 0 0
38 0 0 0 0 0 0 0 1
prediction
34.793 35.6407666666667 35.7535666666667 39.3703666666666
26 0 0 0 0
27 0 0 0 0
28 0 0 0 0
29 0 0 1 0
30 0 0 0 0
31 0 1 0 0
32 0 0 0 0
33 0 0 0 0
34 1 0 0 0
36 0 0 0 1
38 0 0 0 0
On voit que nous pouvons obtenir certaines corrélations, car le nombre de données est plus élevé. On se pose donc la question: Est ce qu’il y a une corrélation entre la popularité des candidats et les intentions de vote envers ces candidats ? Cela permettrait de se baser sur les données pré-élections pour voir les sujets qui ont un lien avec la popularité du candidat puis de voir l’évolution de ces sujets pour estimer les intentions de vote. On va ici regarder les coefficients de corrélation entre ces deux variables et voir si on peut expliquer le vote par la popularité. On étudie ici Jean-Luc Mélenchon et Marine Le Pen car ce sont les deux candidats dont on a les données IPSOS. Il serait intéressant d’étendre cette analyse aux autres candidats.
Pour Marine Le Pen:
IPSOS_DATA=merge(IPSOS,pollsMonth,by.x='Date',by.y='fieldworkDate')
print(cor(IPSOS_DATA$`Le PenFN`,IPSOS_DATA$`Marine Le Pen`))
[1] 0.05767579
lm2 <- lm(`Le PenFN`~`Marine Le Pen`, data = IPSOS_DATA)
colors <- c("data" = "cornflowerblue", "fit" = "brown2")
p <- ggplot(data = NULL, aes(x = IPSOS_DATA$`Marine Le Pen`)) +
geom_point(aes(y = IPSOS_DATA$`Le PenFN`, color = "data")) +
geom_line(aes(y = lm2$fitted.values, color = "fit")) +
labs(x = 'Popularité de Marine Le Pen',
y = 'Intentions de votes pour Marine Le Pen',
color = "Candidat") +
ggtitle("Fit des random forests sur la popularité de Marine Le Pen") +
theme(legend.position = "bottom") +
scale_color_manual(values = colors)
p
![](data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAArwAAAGwCAMAAAB8TkaXAAABRFBMVEUAAAAAADoAAGYAOjoAOmYAOpAAZrYzMzM6AAA6ADo6AGY6OgA6OmY6OpA6ZmY6ZpA6ZrY6kLY6kNtNTU1NTW5NTY5NbqtNjshkle1mAABmADpmAGZmOgBmOjpmOmZmOpBmZjpmZmZmkJBmkNtmtrZmtttmtv9uTU1uTW5uTY5ubo5ubqtuq+SOTU2OTW6OTY6Obk2ObquOyP+QOgCQOjqQOmaQZgCQZjqQZmaQkDqQkGaQkLaQtpCQttuQ27aQ2/+rbk2rbm6rbo6rjk2r5OSr5P+2ZgC2Zjq2kDq2tpC2ttu225C229u22/+2/7a2/9u2///Ijk3I///bkDrbkGbbtmbbtpDb27bb29vb/7bb/9vb///kq27k///r6+vuOzvy8vL/tmb/yI7/25D/27b/29v/5Kv//7b//8j//9v//+T///8vld2yAAAACXBIWXMAAA7DAAAOwwHHb6hkAAAYa0lEQVR4nO2d/3/bxn2HIcdWGKdLWjGJxdRb1y+Rs0Z2W2nfmiWz01Zsu8StHc7ZEtlJKWWiJPz/v+/u8O3A+xCgz6J0H+p5v142SRzw3AF8dDiAJJDlhChNdtUNICQ2yEvUBnmJ2iAvURvkJWqDvERtkJeoDfIStXlZeSdZkRtPzvZvHebH//DELz3b34xuyRLL/jHLNg/7SXONWqLmW0tQl160tWGm2dZ8abia4x98Wj776u+3gtLu5k1uLFjZ8p26+alcvA55RXnnNt1q5Z2aepfhL3w/F9Z88fKWbTjbn5dRlDfbeOieHA/mXe9tXp+8WbazeGHleWl529vqkuVd7n24Ynm72yDKu/Fm4ezktUEob3cWy1sUPMuiVy75xMtr3rdv9s0fdrW1nw2ym1+4d+b7u1n2g8d2ln/Lso0P6vk3J9mNx/mzN83En7vl//ymeza/7M3Htg/aejYwhdNB9na58ceuw6/nqHjztZ0VjWrVXb8qZLMCVYvn1cSqXS6z0Zap+abrD6sKm2k+xV+0YH7RbJi6bQs3UbFmN37rDDvb/5mTN+Ad+hurvawnr1wwto9Vkc/RnwuT1+2lbt7ddPs+E7MjdBrVu62z/dcGpheYVPuystQWN8tOq2WPB2+ZpxufDJqhQiHvtKE7XlBbIe983XWljXZu8XJNDvO6XS6zka3e7c3rCptpc/J6q2SZ39Qbpm7bwk1UrtmNz9+wz49vf27lDXmH3saah9ZvyIICK+/8RlqToUTkmNdskPaYdzba+DT/fj+z76ft4r4abJpN9kNz5DIo3TPbbcv+f8P1q3Y+e/Q1MUv4y2Yf2Dqckx+YXZ4zoNrvTQvlyzkqXljbxL1dft31K1+7ep9x5uyo2lWujmnc2Z9aTfKn+fK2VmnLG/M2bVu4iYqMb/zVjY3Hm2aHk0u8ZmPNL1u/AwsKnrWWaTjrkIuS99jt746dRE4KU3I8eO1nX9RLmvekmPd///zvA7dF7evZaLO1rNuq442H7tlsZKpohpVW3maOYnmptkJev+76la+dvw85bNrl4mp2vVZTYTNtftjQXqV6wzRtW7iJitoMcmyWmY12ypKAN7+xmmXn3gGvoDxec7uxqqjhrENeadjgyVscTNn3c9psNLujz95+7M1f7dxa3Vez7PHA7c+mVt6taiOP2/JWcxTLS7W5RrXqrl8F2tUtq9vlUr69E9uQqsJm2hwlWKVyw3htW7iJitaZ0ZB5PrV/KlvCJnJj3kN5We8dmCsoXtqRblPUcNYhK5U3/+pu0UvX89v98Vv/8V9fj1Ygb11b0Si/7vrVQnmbdrm8jLzhKkXIa44GzajB9ZESL0be5kgOeYsskrfYMxX7tdbRwP/8a3l0UGy3orQ9/PSXbYYNi+Rthg0Nr11b3ai67ubVuNptzsnbtMulGCLYnez8sMHteFuUcJXqYUOrbQs3kcOZg7bBjptH4vkbq72s9w4sKPCLkLdI8R5Vf+fmaMSdpXJHB5/m5sDE7AqzH5kh65/KWSrZzAHD93cz//3wl20O2GR5/QO2YvmwNtuodt3Nq3H286qqOXmrdpWrY5YID9jKaW1KuErlhmnatnATFQ2w8k43/rEcJks8v69vL+sfsMkFfhHyFqnOEpXH7G7XVJzuKvZRW9V5mdKHartl5URvO3rLNqfKZHlz71SZmy7UNmlOldV1V6/qqubkbdrlJs1Grw3KUYd3qqyZ5lPCVao2TN22hZuoiJXXnssoemeJN7+xmmWr47KgNv/TC28jIa+N2w6zu/W3Dcyo8uZf3VY5NuPL1+znA+6jgR8eevOXp/w/Hbc7gfay5YcUsrz1HJV9YW2uUa26vZb89yB7+xvhgK1ul5tkarYfjzzOvQr9aS1KsEr1hqnbtnATuYyLI8ydcrUFnr+x2ss28s4X+B+9VUXXW95rEulk0rqcYFqfIK8Y5NUQ5BWDvBqCvGKQV0OQl6gN8hK1QV6iNshL1AZ5idogL1Gbl5T32650l8YFJsywEHlhamUiL0y1TOSFqZaJvDDVMpEXplom8sJUy0RemGqZyAtTLRN5YaplIi9MtUzkhamWibwXmu3t7YuHKll35NXN3N5ehb061h15lTOR91KZyHuRQd5LZSLvhYYx72UykRemWibywlTLRF6YapnIC1MtE3lhqmUiL0y1TOSFqZaJvDDVMkV5y7vXddw0Pb7CyMCEGRYK8i5xn434CiMDE2ZYKMg7G/XeDDy+wsjAhBkWij3vetzJnlyTtMa8047RbpH4v5bIwIQZFgryzkYZB2ww02eKPW9/4iuMDEyYYeH1lZfv3mpnyvJOsmxnUt+Tdz3l5VcP6pmivONbX492Os/2xlcYGeSFGRYK8s5GO/ZUb9c5h/gKI4O8MMPCaysvY171THHYMLHDhtloa62HDTDVM0V586k9zdvhLvLCTIApy9ub+AojAxNmWIi8MLUyBXnHnR8MIy/MVJihvONbh/mkz974CiMDE2ZYOC+v+z5k75ci4yuMDEyYYeG8vO6b6Gf7XacakBdmEkzkhamWibww1TKRF6ZapiBvVmXNv9sAUzszkHe5xFcYGZgww0LkhamVibww1TKRF6ZaJvLCVMtEXphqmbK8rV8Pn9wbDvfy50ObPeSFmQxTlLf16+HTBwf5yYcH9unRey+QF2YyTEne9g8wj+6Y/57ulRojL8xkmP3y5rW2z++4F6+bdI2HCbncdP56+PzRbt7qeOl5YSbAFOWd+/Xw6X3rrjfiRV6YKTBleVs5uVecY3i620yLrzAyMGGGhYvlLce8lbvnnzWjBuSFmQCzX97qBK8/5EVemAkw++UVE19hZGDCDAuRF6ZWJvLCVMtEXphqmYG8/IYNphZmR8/blfgKIwMTZliIvDC1MpEXplom8sJUy0RemGqZyAtTLVOW9zrcAROmeqYo77W4AyZM9UxJ3mtyE0GY2pnIC1MtUxw2cAdMmBqYorzcAROmBqYsb2/iK4wMTJhhIfLC1MoU5T0e8JVImOkzJXk7z/AiL8xUmJK87oZAyAszdabc8yIvTAVMSd7OjyeQF2YqTEne6mdsHLDBTJop9ryEaArneWGqYwbyum/lMGyAqYBJzwtTLVOSl1NlMFUwJXn5kAKmCqYkb9758zXkhZkIU+55OWCDqYAp9rz9ia8wMjBhhoXIC1MrU5SX7/PC1MCU5D3b3zrb3+k85xBfYWRgwgwLBXmttuOtfNpxziG+wsjAhBkWLpB3ssl1G2AmzpTkzcfO3K6zvfEVRgYmzLBQktcMevNxtvFwobvICzMBpihvf+IrjAxMmGEh8sLUykRemGqZyAtTLTOQ92yfmwjC1MEMe95plvV+nRd5YSbADOU1Gff6G19hZGDCDAsleYvBQ5e/8RVGBibMsFCW1/nLmBdm0szFPW/XB2zICzMBpiRvn7nICzMJZijvtNdc5IWZBDOQNzzPe3JvONzL8/NHw3cOkBdmOkxp2NDO6YOD/OTDg/zpXn703gvkhZkMs1/eozvmv6d7p7/6kmEDzKSY/fKWve/JR78vhw2vm3TOTcilplPe80e7ZuS7l598xLABZjrMZeQ9vb+bO3Ht8Bd5YabClOSdu0qk7XONwb9BXphpMSV521dsKNy1x2wMG2BeMnN7e7urQmnY0Prd8POhzZ4ZPAzfrU84dNaoZMPATJ65vd1pr9zz8mV0mCkwI+RdIp1V6tgwMNNnIi9MvcyXH/MybICpgrm45529zxVzYCbNXCwvV4mEmTizS16GDTCTZnbIO6bnhXm5zO+CRHzC5o7XuErky6f76DgySta9hxmKGeYlmR09b1deYSXiooPZc14yMumve5yYr9xO5L3IrKO8y4uZyJh3YocNW8j7stEm78X2mGnIO7HnGWajDnvjK4yMEmZCY97V7covtp2vwJTkLb8SyamyZJmvLqbedfcLkTdB5up7zHTX/SWYDBuuirm8nOu37hfEFOXlgO2CmBfTe+pc90tgyvL2Jr7CyCTIfOVx5yW1c32ZyDuXJZTsMlP1umtjyvK6YcMaXlx69Z1luuu+hkxRXtUHbMubuRZv4HVmSvKmf6rsYrrOtXgDrzMzQXlXv2+/mHbCvGqmOGyY2m9DXvCwYQklu8xc749yYUYx5Z639z6CnRWuorPkSzQww0Kp570WcfJedSPIReT6neel51XPvL7yMuZVz7zG8sLUzkRemGqZyAtTLVOUdzbamY26LlWGvDATYIryjjft1xsmm8gLM2WmJK/peM/2N1P+bgNMmN8ulNd+Noy8MNNmSvKe7W/ZbzeMGTbATJopyZsfD7LNzuvsIS/MBJiivP2JrzAyMGGGhcgLUytTlneSZTsThg0w02aK8o5vfV2cLUNemAkzJXndqbIdTpXBTJyJvDDVMsVhw8QOG7T+9B3mtWGK8uZTrlUGM32mLG9v4iuMDEyYYaEgb/oXHYEJ81vkhamYGco7qS/awHlemEkzO3rersRXGBmYMMNCQd4l0oXkJ+UwL4cpy/sql/XnYh4wL4kpyvtK1+dFXpiXxJTknTvbcHJvONzL8+fD4fDdL5EXZjLMfnlPHxzkJx8e5E/3lut5GfPCvCRm/7Dh6I757+ne+WcHS8q7HhsGZvpMUd7ggM30vqf3h270kOevm4gDYUKuJJ2nys4f7bqRQ9P7xv+1RAYmzLBwCXlP7++Wz+pxb3yFkYEJMywU5J07SXZyrz5UQ16YCTHFnnfi30KwdPfovRf5+e+WOFW2JhsGZvrMRcOGcZbZWwLlxflde6hmHt+pTzjEVxgZmDDDwgXyWn/5SiTMpJkdPS/X54WZNlOUtxkzIC/MdJmSvHyfF6YKptjz9ie+wsjAhBkWIi9MrUzkhamWibww1TKRF6Zapiwv1+eFqYApysv1eWFqYErycolTmCqYyAtTLVMcNnB9XpgamKK8XJ8XpgamLG9v4iuMDEyYYSHywtTKDOSdjepLnHLABjNpptjzlhcd6fhiZHyFkYEJMywU5OXK6DBVMJEXplpm17CB87wwk2aK8hbnebt+CxRfYWRgwgwLRXl7E19hZGDCDAuRF6ZWZqS8hKQTel6Y6pjIC1MtE3lhqmWK8rpvoyd1rTJu0gJTKJTkHW/azykm6fyGjdtjwZQKBXlnxa8vE/p4GHlhSoWyvPazYeSFmTZTkvdsf2u68dAOHlKRlzEvTKlQkDc/HmSb+ZiLjsBMmynK25/4CiMDE2ZYiLwwtTJFec2wgd+wwUyeKcnbeZUy5IWZClOSl3tSwFTBlHte5IWpgCnJ2/nxBPLCTIUpyVtdd4QDNphJM8Wetz/xFUYGJsywEHlhamXK8k64xCnM9JmivFx0BKYGpiQvl3uCqYKJvDDVMhk2wFTLFOXlgA2mBqYsb2/iK4wMTJhhYb+8J/eGwz375PzRHvLCTIcZyFtcs8H7ePj0wUF+8uGBefZ8iLwwE2L297xHd8x/T422J7/8NfLCTIgpyRueKrO97/lnfyiGDa+bLB5kEHLZ6ZT3/NGuGTTsMuaFmRQzlHdS34et+jHQ6X3j7slHL5AXZlLMjp63ysk96+zzoc0u8sJMhinJ207hbjF6oOeFmRBTlLf10/eiy91DXpipMSV5+ek7TBVMSV5++g5TBVPueZEXpgKmJC8/fYepginJy0/fYapgij1vf+IrjAxMmGEh8sLUypTlnWTZzoQro8NMmynKO771dXFDIOSFmTBTktd9H32HXw/DTJyJvDDVMsVhw8QOG/jpO8zEmaK8+ZSfvsNMnynL25v4CiMDE2ZYKMjL5Z5gqmAiL0y1zFDe8DdsyAszSWZHz9uV+AojAxNmWCjIu0TiK4wMTJhhoSQvt2+FqYEpyctv2GCqYEryMuaFqYIp97zIC1MBU5KX37DBVMGU5OU3bDBVMMWelxBN4TwvTHVM5IWplhnIWw14GfPCTJ1JzwtTLRN5YaplIi9MtUzkhamWibww1TKRF6ZaJvLCVMtEXphqmcgLUy0TeZNnbm9vXzxUybojr27m9vYq7NWx7sirnIm8iwuRN3Em8i4uRN7UmYx5FxYiL0ytTOSFqZaJvDDVMpEXplom8sJUy0RemGqZyAtTLRN5YaplIi9MtUzkhamWibww1TIj5b30vH7VDVgytPNis1Q7kfdiQjsvNsh7iaGdF5u1kJeQhUFeojbIS9QGeYnaIC9Rm3TlPbk3HO7ZJ+eP9q66LV0p23n+aPjOwVW3pStlO83Du19edVu6cjR0DTy9P3zvRc+sycp7+uAgP/nQ6vB8mLK8VTuf7uVHvVv7ClO20z48T7mdJ//0Zf78juuxzEN3kpX3yLb8qe0qfvnrlOUt23n6q6S7s7qdJx+9yJNvqxHYttF63Jlk5bWx3cT5Z39Ie9iQu3aefPT7xIcNuWtn8j2vjely3R/Zg54NmrK85492zYrsJj7mLdp5cm/PbfCU47bnMmPJq83JPdML2CGYZnlP75ttbYRIXd6qnf0b+2pTtNMMz4/SPmIr92Sq5bV9mT1as9m96sZ0pGjn6W9Sl7do51I92pWnOIbQO+YttrVN2j1v1c6niQ8bynYm3/OWf112iKP3bEPR5doNnra8VTvNWDJlJ+p2Hg0TP7B8XjRQ9XleQvqCvERtkJeoDfIStUFeojbIS9QGeYnaIK+Ys/3MZuPhwjmO33gYvP7+sX02zba86dMbT1qzDdzr2ejWYSeubseWMK2vbdclyCumlGbSNs+PYFsx6Wx/x58YyOukOx7Mydvdjpds23UJ8oopBZmNdhbNsVDeuQTy/tSSJz99ZXk72nZdgrxiPEHsXnrTmvlxlhnjnKHmP/t4PDC77638+PZvsxufv/HJwL6ws1e+zkbZxsfmhTftePCLnxzmZ//8sUW1FjdES9jJ/dlrecNpVdvM1HrJaxbkFVMKMr7x5Gx/M7f/7GDVPTbyur7P7L2PB5u1z3aWfFJ0q7PRlvlXLFZNOx588C/Gtr97duswWNwOJSbt2St5hWnjZs5qySvYUFca5BVTHhQZH9xuf2oV26kNLR//z7rkrGuK3OzlHt09N07508y8k518ujW9dRgsXj76s1fytqe12mamVkteyaa6wiCvmGasObXdXSWtFcUbNuRTd9TvT5o4sYrzDa6nPL79xJ9mPJtu5uMdhw0Xt4/+7FU7pGnN1GrJS91ECQR5xSwl72y08XCuM6527S61vN40I+/sJ1//+MnUDhvCxZ283uy1vMK0ZiryEi+evPbUVj1suP3EU63oPdtd59Q7/VqNOPxpFvPHjzft34S0uBs2eLPXwwZhWjMVeYmXRpD5AzZ7FHa275Sz7tjztpU7xfG/UbKUajbaLA/YmmlW3onZ/Vt55xavHv3ZmwO2cFozFXmJF+/8qn+qzDy6E1y/eN8JMzZD1v9sRhLm9aabveom/VNlVSdp5HU9tNFubvEa481eHpxttae12laMPZCXLM41dCP5IO+SQd70grxLBnnTC/IStUFeojbIS9QGeYnaIC9RG+QlaoO8RG2Ql6gN8hK1QV6iNshL1AZ5idogL1Eb5CVqg7xEbZCXqA3yErVBXqI2yEvUBnmJ2iAvURvkXW3+JudSll77IO9qg7wrDPKuNsi7wiDvaoO8KwzyrjbIu8Ig72qDvCsM8q42yLvCIG9fJl13m7SXTC+vwOffcK24FaYN8q4wyNsdd/FxI/CCm5x5xnpPvStKLqFfc8vM49tzd6PqXvpsP3vr9pNgoesT5O3OuLhnyWTBDStfRt7t7e14eb/77rtA3mJ25CVy/HukVjesrG43WV6035paXb+/mOV4kNX3zm6529jrVZDdvLvjFtwxz+2NW7x7WfruevbWi258cvsvo+z63T2wDPJ2xutDmxtWFrebrO5v6e6kUjytZ2n1vNtBPHnHW/nUaPv+Q3enodtPymf10t+F8XveY4YNZFE8M+ZvWFnd39J7Ws8iDRvEnnf24yfVsME8LWuzE+eWlnpe5EXezrQu5t++YWV1i0DvaWuWIj1jXrfQ2Mg7tvdjLV41N97uH/MiL1mYasxr9ubzN6wU5G3NUuRvcmp+0fPaasphQ/FsqaWR96obkHjK0wz29tdzN6ys76jdPG3NUqRH3nLMawW00hcqNosjb2eQtzvNed7wfpebzQFb8bSaxTtH0Sfv2b472zDJ7MPZ/o0nxbOlli7MtQtd4gZJKcjbl3H1Cdv8/S6FU2XlLO5WmEX65O3Oqy299kHe1QZ5VxjkXW2Qd4VB3tUGeVcY5F1tkHeFQd7VBnlXGOQlaoO8RG2Ql6gN8hK1QV6iNshL1AZ5idogL1Eb5CVqg7xEbZCXqA3yErVBXqI2yEvUBnmJ2vw/Mov2eTOsaacAAAAASUVORK5CYII=)
On peut voir que pour Marine Le Pen, le coefficient de corrélation est très faible: 0.05767579. Il n’y a que peu de lien entre sa popularité et les intentions de vote. Ce peut être du au fait qu’elle peut mobiliser contre elle (effet repoussoir): si sa popularité augmente, des électeurs pensant qu’elle a une chance de gagner, vont choisir de voter pour un autre candidat et donc mécaniquement faire baisser son score. Ce peut être aussi dû aux redressements particuliers au vote FN effectué par les instituts de sondage (voir cet article du Monde: https://www.lemonde.fr/politique/article/2011/03/07/marine-le-pen-les-sondeurs-ont-ils-les-bonnes-methodes-d-evaluation_1487972_823448.html). Enfin, ce peut également être tout simplement dû au fait que sa popularité et ses intentions de vote sont restés relativement stable et complique le fait de vouloir trouver une tendance.
Pour Jean-Luc Melenchon:
print(cor(IPSOS_DATA$`Jean-Luc-Melenchon`,IPSOS_DATA$MélenchonFI))
[1] 0.7870257
À l’inverse, il y a un bien meilleur coefficient de corrélation (0.7870257), pour Jean-Luc Mélenchon.
lm3 <- lm(`MélenchonFI`~`Jean-Luc-Melenchon`, data = IPSOS_DATA)
colors <- c("data" = "cornflowerblue", "fit" = "brown2")
p <- ggplot(data = NULL, aes(x = IPSOS_DATA$`Jean-Luc-Melenchon`)) +
geom_point(aes(y = IPSOS_DATA$`MélenchonFI`, color = "data")) +
geom_line(aes(y = lm3$fitted.values, color = "fit")) +
labs(x = 'Popularité de Jean-Luc Mélenchon',
y = 'Intentions de votes pour Jean-Luc Mélenchon',
color = "Candidat") +
ggtitle("Fit des random forests sur la popularité de Jean-Luc Mélenchon") +
theme(legend.position = "bottom") +
scale_color_manual(values = colors)
p
![](data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAArwAAAGwCAMAAAB8TkaXAAABSlBMVEUAAAAAADoAAGYAOjoAOmYAOpAAZrYzMzM6AAA6ADo6AGY6OgA6OmY6OpA6ZmY6ZpA6ZrY6kLY6kNtNTU1NTW5NTY5NbqtNjshkle1mAABmADpmAGZmOgBmOjpmOmZmOpBmZjpmZmZmkJBmkNtmtrZmtttmtv9uTU1uTW5uTY5ubo5ubqtuq+SOTU2OTW6OTY6Obk2ObquOyP+QOgCQOjqQOmaQZgCQZjqQZmaQkDqQkGaQkLaQkNuQtpCQttuQ27aQ2/+rbk2rbm6rbo6rjk2ryKur5OSr5P+2ZgC2Zjq2kDq2tpC2ttu225C229u22/+2/7a2/9u2///Ijk3I///bkDrbkGbbtmbbtpDb27bb29vb/7bb/9vb///kq27k///r6+vuOzvy8vL/tmb/yI7/25D/27b/29v/5Kv//7b//8j//9v//+T///8uk4B5AAAACXBIWXMAAA7DAAAOwwHHb6hkAAAdwUlEQVR4nO2d+5vcxJWGNYM9NCYL2RkD0+DdbC40EAxkPXsLu5CBXeJOsuDEdgO7Zuxxeoadnrb+/1+3qnQrSaVrV5XOkb7veRK6NSp9dUqvq49KUlUQQhBTBUNXAIL6CvBCbAV4IbYCvBBbAV6IrQAvxFaAF2IrwAuxVVd4V0Gk/Yfbk5tn4eXfP9T/uj056F2TFmX/EAQHZ81HKlSqhfPNFkdtXTTXMOvgsPhXc5ib+aFxe0mr/abolj/5PP70/d8darVojHOHhhhEO8JbaEm38K6Fb5vjN5/eorN9eOM6bE+KSPqAN9g7VR8uZ9E/nbgWgDffdJ7hXbQ60sDw1tfBB7x7r0bHWr000w8KeNOmE5H+cCL6wqR5vpsFN75RZ+bHO0Hwkwdyl38Ngr130/0PVsH+g/C7V8XGX6ryf3pVfSqWvfFAdhqH383EH9ez4PW4QZeqw0/3SI5XdNtGlcp5p9+i0yMBSoqHycakXkoCJeF8Q3VgiWG2TT+KXjQ65jdZw6R1q2yiVBG82XZTM+XPQFaL6MinyR7L/d8qCLcnv5jpB40KaN9y7R/F9eROvClr5oI/IVmDV+UTN+4cqB8rIfHLpTAKku5ye/LSLLh5Fucdi+Sv8s9Z2XVS9nL2mvi499ksSxUieNfZ0dXxSm4RvEXv1DTDThWPIzkL03opbebSXv38pobZtgK8WkjymD+kDZPWrbKJMil4s+2mZiqcAQ3ede5wy/2vX5GfL299PTvMnQ+ZjBfaSx54nW66cSfZZNiNnHrmvKIB8znvZr73efjjSSDPp+zivp8diHb6qWysmD3RCofy//dVvyr3k1dfK1FCLxu8Kz0Uk++G30UEJL9l6+hcxnskxyu7yUrlvdNvOnbpb4bcmNUrDkdUbvvHXJX0bTq8uZAOtZw3q1tlE2WS8GbbTc2UnIEyvKLcqWisJJ7l/l9Ukrs8EL9fuYPKymbfkgOnxcUmcchvc1GX/AnJFryX6gfqUkGkGlH85XL20i++SUuK8xHt+79/+reZah/5fTM/yJVVbbTcO1WfNnNhkSViEt5sj6i8yS2CV/dOv+knXP8NOcvqpaScJQYPM8NsWzFtyIeUNkxWt8omyhpWwpvbXmqm5AyU4b3Mpbayhkvxp818If+QHVQW0L/l2z89RdGmfDNr/oS0U9qgwRtdTMmWXMfjEeJfs/yhD15/oO2f/Ijluq+s7OVM/TqtJbyHSZMt8/Ame0TlTW6qUjnv9FsJu7Rmab2U4pO1khVJDLNthaOUQoobRqtbZROlkvBq2w3NpPqNQzO8uR91Aa+obriW//L0g8oC+W+F4qVNa303enIKb/j9naiXTveXv8ev/ft/P5k7gDd1iyqle6ffKuHN6qXUBd5ySLvDa2qmLvDKoy2jPhXwpqqCN/rpiX5xci35P/8S5/pRK0R/zaefetksbaiCN/s9y46Xd0srlXpn35bJj2AB3qxeSlGKIH8yi2mD+hnNHaUcUpo25OpW2UTfSoijX/hFum+5mUpnYFn63c+2i4u22aJw0Kyy2fnIZR36pnwzjxPepPMQVyNqlEql/5+H4sJE/HYFfytS1j/GuySwifT/xzvqSiBpFb1sdsFmhle/kojKl91kpfLe2bdl8MvEqgBvUq84HFGifMEWb8sfpRxS3DBZ3SqbKK6duhBcaNtNzVQ6A1otZKIxTwKS8K73/iHOurODxhds2jftek8Wz13OFpp5jPCmQ2Xq9yga7op+mNTFq1TcpkkrBPHG4khPcajMDK8+hqO2G9xW2VBZ6p18S60K8Gb1Ups285dmcdahDZVl2/SjlENKGiatW2UTxWaBflwtGCO8QbJT8XhJnyrhlUMjcWevHTRpgPSb1v65gcRiM48S3s2d9GkDkVXe+IuK8VLkly/J+wPq1sBPz7T948Hvz3OX7MWy8U0KM7zpHgl9ZTdVqZy3VpNvZ8HrPxgu2NJ6qU3CWd4eeRBqhvq23FFKIaUNk9atsomUkhsC2nZjM0VnIIU3rYW6y5DdkVlGF6yLdIAjPmj825f7ttWL65vyzTwOeCci09AQzeGiKQvwGgV4OQjwGgV4OQjwGgV4OQjwQmwFeCG2ArwQWwFeiK0AL8RWgBdiq47wnndXnzK9BTNuXn3MAC/MSHgBXpix9QK8MGPrZQ3e+MWpmlkt/FSuv2DGzcsWvC0e2vRTuf6CGTcvW/Bu5o0zS/ipXH/BjJuXvZ4X8MLMs5e1nHfdOIebn8r1F8y4edlLGwJcsMGMfmDGnrdZfirXXzDj5gV4YcbWyx68K32agTC8+uCx+L/3jt54DHinZDZ8YMfHx3VFTPCuovmDEnovJLXXH98Pn775DPBOyGzwwI6Pa+k1wRuP8yZjDo9ufyV63qsPn4XXnzwGvBMyGzyw3eGN0oas531ZqDobhiBrUvA271aXNkQ57/VHR2nWgJ53EmbDB9Yj5zVdsF29fz+8eANpw5TMqAdmhrcgCe+F6HZl6gB4p2NGPbDW8KLnnZ4Z9cCM8Baf51U578XR0e2k4wW8kzCjHpgJXjzPCzPvXnieF2ZsvfA8L8zYeuF5Xpix9bICb/IwL57nhRn1wIw9b7P8VK6/YMbNC/DCjK2XNXi3J4cN42V+KtdfMOPmZQ3e5UHYMNrrp3L9BTNuXpbHeevGHPxUrr9gxs0L8MKMrZe1tKH4PC/gnaYZ9cCM8Ibr/PO8gHeaZtQDM8PbKD+V6y+YcfMCvDBj6+XseV7AO00z6oGZ4MXzvDDz7oXneWHG1gvP88KMrRee54UZWy97aQOe54WZZy8MlcGMrRfghRlbL3vwroJgsbp5BninbUY9MCO8y5tP5gs8zzt5M+qBmeDdzBdyqBePRE7djHpggBdmJLzsPc8r0wY8zzt5M+qBGeHF87ww8+2FoTKYsfUCvDBj62UFXkz3BLMhvNDzwoytF+CFGVsv3B6GGVsvOznvf+D2MMz8e1m6YDtscYcNgugoSxs27/wZt4dh5tsLt4dhxtYLt4dhxtYLQ2UwY+sFeGHG1gvwwoytF+CFGVsvs9nz+iJFeLcneDAHZv69DGbPn9eza+h510HQONsT4J2E2aCBNZF7XpE2LBv5tVA5p4IZN6+8WWOnGxUxwRslD3X87lo514IZNy/NrB2553UXbNsT5LwTNxsksLbkntf1vHun6HknbuY/sNadblTEAG8TuYB3ImaeA+tG7rl5tKGJXMA7ETOvgXUl9xzjvDAj4SU6XdxhgxlDryhdALwwY+eVpAuAF2a8vLRrNMALM0Ze+dEFwAszNl7F0QXACzMeXoYhXVvwbk8OG9Zw7VHf0Z7i8Zo58jLfjLAF7/IgbFiBuEeVR3uKx2vmxKvqZoQleOO1hzFvw9TN7HvV3AEGvDAj7FX/7IKttGElscWkI5M3s+rV+E5P90Ma4Q0x6QjMrHq1eGAMQ2UwI+jV8p2e7gcGvDBz69X6nZ7uhzbBmyxLgQu2iZvt7tXh+XKrPe/m7Zpn0rsbjfcUj9dsR6+O7/R0N6iGN1zXzOvf3Wi8p3i8Zrt4dX+np7tHHbxIGyZu1t+rzzs93V1q4F2i5524WU+vzp1uXzMTvPEF2x5y3omb9fHqR24/s5qet05+KtdfMBvGqy+5vcyQ88LMmlfvTrePmSrSBt6rDx6H4Ysvjm7fB7xTMuvitRu5Hc2SIi3gvTh6Q8D76F548eYzwDshs/Zeu5LbySwr0gzvo9tfiZ73+pPHSBsmZtbSa+dOt4tZrkjbtOHqw/+K04aXhcp7Q9OUnOtmaDXD+949ATDShimZNXtZ6XPbmpWLFOFNnsrRH8yJet5n4fXH9wHvhMwavOykCy3NjEWqe95MEt7rfwS8UzOr87JLboNZVZG28MrRBqQN0zKr9rJNbq1ZdZEKeFf6gw0K3uuP1IgZ4J2OWYWX9U63zqy2SBt4y/JTuf6CmSsvN+RWmDUVAbwwa+/lilyjWXMRwAuzll7OOl2TWasiFfA2yE/l+gtmtr3ckntuD97LGV7AhJnu5Zrcc2vw1k8QCXgnYxZ7Oe90dbNORQzwxnOVAd6pm0kvP+SeW+x5AS/MlJcvcs/t5bx171AA3smYeet0laylDZgxZ/JmklzqgRl73mb5qVx/wWwnxX0u9cAAL8yKSrMF6oEZ4cU473TN9ESXemAmeLcnh9uTRe2AmZ/K9RfMeqlwiUY9MBO8EtvlISbam5pZaXCBemBV8K4OMOnIpMxM42LUAzPBK9dhE+TWPVjmp3L9BbNOqhjRpR6YEV65AuYSE+1NxazyXgT1wIzwNstP5foLZm1VdxuNemCAd8pmDTeAqQdmhncVBIvadyn8VK6/YNZCjY8uUA/MCO/y5pP5Agtnj9qszVM31AMzwbuZqzsUGCobrVnL58WoBwZ4p2fW+klH6oEZ04aVTBuwcPYozbo8pEs9MCO8IRbOHqdZx8fLqQdmhrdRfirXXzAzqPOLEdQDA7wTMevzTg/1wErwZvPz1r3/7qdy/QWznHq+jUY9sOqeVz7gAHjHYNb7PUrqgVXDi+d5R2G2yyvApAM7r4cX47zczXZ8eZ1uYHERwDtWs92nXSAaWFakEl4828DazMaEISQD04tUwbsO8FQZWzNLc93QC6xQpLLnrZWfyvXXlM3szdJELLBykX7wQlRFYEFK70LPOwYzy1Pj0QmsogjgHYuZ/UkdiQRWXcQAL+bnZWjmYjpSEoHVFTHAi5nRuZk5mkl3+MAaihjgbVrHCvCSMnM3BzT1VjT3vJhcmo2Zy9nLqbeisedtlp/K9ddEzBxPvE+9FQEvWzP3S0ZQb0UTvEgbGJj5WOyEeitW97ybtzHRHlUzT+v0UG/FanjxMDpRM38rTFFvxTp4kTYQNPO5Nhr1VqyBd4mel5qZ6HR9Rka9FU3wxhdse8h5SZlF6QLg1YpU97x18lO5/hqfWZIuAF6tCOBlYKZdowFerYgR3hXmKqNjlh9dALxaERO8KznOgFkiSZgVRxcAr1bEAG/8SCSGygY3MwzpAl6tCOClama+GQF4tSJIG0iaVd5GA7xaERO8uGAb2IzI2mjUW9EMb6P8VK6/OJvVP7sAeLUigJeUWeNTN4BXK2KEV6UNdW9h+qlcfzE1I7Y2GvVWNMKLC7YhzNo96gh4tSIGeDFU5t+s9UO6gFcrAngJmBFdG416KxrThrV8GhJpgyezbm9GAF6tiLHnTRYEqnwH00/l+ouNWed3egCvVsTU8zbLT+X6i4kZ8bXRqLci4B3MrN+LlIBXKwJ4BzHr/Qow4NWKAN4BzJisjUa8FQGvf7Pd5l0AvFoRwOvVbOcZQwCvVsQE72a+2MzrpioDvP3MLMwYAni1IiZ4lwfy8YYVFhG0amZnmibAqxUxwCs6Xrn8ZXZ7+OqDx/I/L764B3h7mlmbYAzwakXM8Mp7wym8F0dvKHifHvGG9/j42J9ZThYnGAO8WhEDvNuTw/XeqUwelB7d/kr1vFe//g1reI+PHdHbEJndWR0Br1bElPNezoIDfZ49lTa8+PL3UdrwslBlMkxYCl7fps+nuCKlb9UOlSl4n95lnvMO0PM6mI8UPa9WpC28Vx8+Yw6v75zXzSTQgFcrYoR3FQSLVT5teHokdZczvD7NnE1fDni1IiZ4lzefRKNletqAobLWZi4n3ge8WhEDvGqobIFx3p5m41kbjfopawVvWX4q11+DmTlf7QTwakVMacNKpg14h62zmY91egCvVsQEb7jGXGXdzca3Nhr1U2aGt1F+Ktdf3s28LY4GeLUiBngxb0NHM3/L+gHeXBHAu6t8LusHeHNFSvCu0kkb8Dxvs2SnO87IPHtZ7nnr5Kdy/eXGrHh/OU4XRhDZ8F64YHNrVniyJ00X+EdGwMvqsw0YKitJh1e/RuMfGQEvezcpMD+vSSm8hdEF/pER8MJog2OziN3S6MIIIhveC/C6NzMN6Y4jsoG9kDY4Nqu4GTGCyIb3wgWbS7Pq22jcIyPhhaEyd2Z1t9F4R0bEC/A6Mmt4doFxZHS87F2w1WUMU4O3+akbrpGR8rJ3wdawhOB04G31vBjLyKh52UwblkGwdzp1eFs+L8YwMnpelnPe5bTHeds/pMstMpJelnveKc/P2+nxclaRUfWyBm9DzjB6eDs+Xs4oMrpeeJ7Xhln3d3q4REbaC+O8u5v1eaeHR2TEvQDvjmY9X6RkEBl9L8C7k1nvFynJR8bBC/D2N9vl7XXakTHxArx9zXZ7e51yZGy8rD4Sqc/PO254Wa3rB3j1IiZ4i/PzjhheG5Pd0IyMmZfFcd6JTHFqZ7IbipGx8wK8ncxYrusHePUiprRhCvPzMl3XD/DqRUzwhmOfn5fvun6AVy9ihLdRfirXX7Vmtqd1pBMZYy+P8PIVlqQcn1J4N/N0itMRXrCxX9cPPa9epAivVDzpSM2DkX4q119GM1cTmA8f2Qi8LD/PO66hModT71M/xyy8AG+lWVdyOy1TTP0cs/CynTaMZZy3e6fbbYF46ueYhZflcd66d4H8VK6/MrNe6QLg9e5FZJy34rwP0hI9E13A692LBrxVJ95/S+xwjYac17cX4NXMPC7sR/0cs/ACvIl8LklJ/xyz8KIB7/A575jX9QO8ehH78NqrXB9FnS71ZudhRj0wI7zqaXSOc5Wl6QL1ZudhRj0wI7zLA3mfYsXsHbZJrOsHePUiBng30duXvG4PT2RdP8CrFzHDK+8NM4K3NLpAvdl5mFEPzATv9uRwvXcqkwcW8E5qXT/AqxcxwBtezoKDcOlj0pFOd7KMmti6foBXL2KCt1mWKtftGYKyKm9GUG92HmbUA2MMb91tNOrNzsOMemBGeEXa4Ocdtv7wTnVdP8CrFzHAWztLmVV4++a8013XD/DqRQzwEl+Tos1TN9SbnYcZ9cDMPS9deFs+L0a92XmYUQ/MBG/t7Ykh4cW6foA3V8QAbzLvCLE7bFjXz7cZ9cCMPW+z/FROU8fHy6k3Ow8z6oGxgBfr+g1jRj0wM7wrSlOcYl2/ocyoB2aEl9CkI1zX9dv9oY0OZq40eCs2FTHAS2a6p/7vUQ7d7Ls+tNHJzJmGbsXGImTh3ekN4KGbHfD6MKOaNuz47vrQzQ54fZgZ4R36gm33aRcGb3bkvB7MzPA2ymHlrEwYQr3ZeZhRD4wYvLamuqHe7DzMqAdWgjeas2GY28P2Jmmi3uw8zKgHRqfntTq/GPVm52FGPTATvKWhsqsPHov/e+/o6J4reG3PjEe92XmYUQ+sDbwXR288Dq8/vh9evX/fCbz253Sk3uw8zKgHVoZ3la7DFr8M9Oj2V6LnvXhLfrxnH14n05FSb3YeZtQDq+l5M6m0QUj2vmH4spA5E+4urEcJ7a7aC7YY3hdf3E222PmXhaXRaJtRD8wIb/HV9wje649Sdm3A63T2curNzsOMemAmeEuvvsejDfeyLbtWzvW8+9SbnYcZ9cBM8Bpz3hy7O8LrfsUI6s3Ow4x6YOae1wDv0yMpC6MNXhY7od7sPMyoB2aC1+Wr756W6aHe7DzMqAdmThscPdvgb4Up6s3Ow4x6YMaet1k9Kud1bTTqzc7DjHpgvuB9/px6S8BsUC+rb1IsVvZmRledLvWWgNmgXtbgXd58Ei0IZAXeOF2g3hIwG9TL4jivHOq18vZwlulSbwmYDepFD179Go16S8BsUC9racNKpg07v/peGF6g3hIwG9TL3gXbeudX38sDY9RbAmaDetEZKjMN6VJvCZgN6uXsHbaO8GJdv5GYUQ/MBbzWKtdfMOPm5egdNsA7VTPqgdX0vHXyU7n+2tWs01RjrCKj6kXngs1S5fprR7Nukzxyioysl7N32ACvS7NuArxaEQO8HpdvdSXAy80LOa81M+S8vr2cvcM2PXhh5tuLwztsngQzbl7k32HzJ5hx88JQGczYegFemLH1ArwwY+tlBd4k4UXOCzPqgaHnhRkJL8ALM7ZegBdmbL0AL8zYenmEt4esrWNBTqONjEtggLe/RhsZl8AAb3+NNjIugbmHF4IcCfBCbAV4IbYCvBBbAV6IrVzCe3Ekl40Prz86evOZQ5tB9OKLe2OMTC5cJs4Zk8AcwqtWcXtLneanb7mzGUZPj+6NMbJHasE9LoE5ThsEwNefPE6Xjx+Nrn79m3vh+CJ78eV9+R8ugTmGV/z7vfrwWXj98X23Pp714svfi85pfJGJdEGudsolMKfwXr13+3548SaPluiip3flL+v4Irt6/77sfbkE5rjnFU3A5Z9xB4mQXoyy51V6dI9LYK6Hyh7d45JAdVC0mPjdEUYmxeeUOYQ3/vF58cVdFpeu3SR73vFFJk/Zi/98zCUwlz2v6KBEzstl0LCbxjvOy+iU4Q4bxFaAF2IrwAuxFeCF2ArwQmwFeCG2ArwQWwHe7YmaXXDvtHKPy1dOS99/fCA/rXOrjBsmlm+aa357Ur1M+eVMFd7Mb54lVsWa1FRyCgK8MT+raswMXESbCot4WIdX/YO6nEl4IyvAmxPgjfmpWQqpEt6CrMP7c/nH1c9Vz1tt2/in0QrwavDKDOJAcvBpEAhiFA/i/+R/1fqKh+Hlrd8G+1+/8tlMfpG7J3Bu5sHep+KLvi2M4E02JYdQpRc589QqqYLaNvvVz87C7T99KqoSHyPZQ32MD6NXOvddsxmpAG/Mz3L/oVxEUf5PJpvqvxm8ql8WmcXl7CDlWa25uIq6xc38UPwvKpZsk1pnm7JDiD8nSUoRXrlz8htwOXv3nwWkf/PdzbPkGPEe6mN8mKSE/j0KQrMZqQBvfMEmTrP6jV9LvBYpofF//0/iKD9qf1K7x6SpzwIVfVu8PdlUPERsnodX//EXO64W4fpwffMsOYb4c/pRr2S0t/peDMJXMw4hwJulnWvZYyY8RKhk39dqRELftIoWQYgu91TRWw/1beqQ+9qm/CFy5slGPUcW+K0PwuVCVCs5hthD+5grkX7XgwC8I1creDdzceWf74z17CCDV9umDrmfbioeQlJ42ADv5mdP3nko4Y2PIYtlHwHv0BUYXBq8cmgq/cW99VAjVSGxzve8a21oOPmx1rdJzORPfrypeIiceUXaEP7h0wP9GLIm2cd82pDAmwQBeCegDN7iBZu8CtueKNwkEnLcNUEiGpuQdEYsbeYH8QVbtk3+Z3mQ7lY8RM48sUqqICXhXYl0Yy0v2KJjqAu29GN6iadfXRa/+25OnwK82lCrPuokAZKDW796W3GyFOnq77JMQnw/ULsnPa0+VJZsW6oBt3RT8RCJYzSAFlnlh8oWar91PFQWZR36R31wrfL7iAV4yxr5KR+PAG9ZgJeJAG9ZgJeJAC/EVoAXYivAC7EV4IXYCvBCbAV4IbYCvBBbAV6IrQAvxFaAF2IrwAuxFeCF2ArwQmwFeCG2ArwQWwFeiK0AL8RWgBdiK8ALsRXghdgK8EJsBXjd6q9meSk9egFetwK8DgV43QrwOhTgdSvA61CA160Ar0MBXrcCvA4FeN0K8DoU4G3Sqm55zGQK8jC/5Fq0PqYU4HUowFsvNRG5ALhiQTONWO2jNs1kC/yydTQvbxVWnqovvT0JXrv1sFRoOgK89VpG65cUF0pJ1AXe4+Pj/vA+f/68BG+0O+CFzNIXdS2uYBnP5C9JTSb1j3a5nGWLWeXYzejVDIIbdxaq4EJ8lqu5aOtW6uxq9KZF9z679ed5MO6VAmsEeGul9aHFFSyTRS/V8irRx3SXXM97XJIG7/IwXAts3z5Vyw/dehh/Sks/L0vveS+RNkBV0sgormCZLHqpfUx3MaUNxp53887DJG0QH2M3ubFQ2tTzAl7AW6vcDP/5FSyTdQO1j7ldIjXkvKrQcqGWCtqPOFxqK2835ryAF6pUkvOKX/PSCpZleHO7RPqrWenxo55XrXwdpQ3Rp1alAe/QFSCueJhBroldWMEyXaE6+5jbJVIDvHHOKwGU0EcoZsUBb60Ab72ycd7yIpgH2QVb9DHZRRujaIJ3e6JGG1aB/M/2RK2zLTe0KR2RKwt5bBBKArxNWiZ32IorWBqGyuJd1PqYkZrgrddupUcvwOtWgNehAK9bAV6HArxuBXgdCvC6FeB1KMDrVoDXoQAvxFaAF2IrwAuxFeCF2ArwQmwFeCG2ArwQWwFeiK0AL8RWgBdiK8ALsRXghdgK8EJsBXghtgK8EFv9P6d4D4AREAqxAAAAAElFTkSuQmCC)
On voit en regardant sur ce graphique que c’est en partie dû à une très bonne popularité (56%) concomitante avec une augmentation de ses intentions de vote, juste avant l’élection (Avril 2017).
Conclusion
Quelques points auquels nous avons abouti au cours de notre travail: - Il y a peu de données sur ce sujet et ces données sont en général peu précises (l’incertitudes des sondages est de l’ordre de quelques pourcents, ce qui est souvent plus important que les incertitudes). Cela a donc restreint les possibilités et nous a contraint à considérer des cas particuliers. - La base de données des Actus du journal TV est très intéressante et permet de voir des corrélations entre ce que traitent les différents journaux TV et des différences entre les différentes chaînes. - Il est possible de relever certaines corrélations pour la popularité (données IPSOS). - La popularité n’est pas forcément correlée avec les intentions de vote (par exemple dans le cas de Marine Le Pen).
Poursuites éventuelles: - Il pourrait être intéressant de mener un travail complémentaire en comparant la popularité et les intentions de vote. Cela pourrait permettre de voir si des candidats sont populaires mais n’arrivent pas à rassembler leur camp. On peut penser à Benoît Hamon qui était sans doute dans ce cas. - Une limite que l’on connaissait dès le début était le fait qu’il était impossible de connaître si une information était positive ou négative. Une amélioration possible serait de considérer des occurences des noms de certains candidats avec des mots mélioratifs/péjoratifs dans ces journaux pour établir une classification plus précise.
LS0tDQp0aXRsZTogIkVsZWN0aW9ucyINCm91dHB1dDogaHRtbF9ub3RlYm9vaw0KLS0tDQoNCg0KIyMgSW50cm9kdWN0aW9uDQoNCkRlIHBhciBsZSBjYXJhY3TDqHJlIGltcG9ydGFudCBxdSdlbGxlcyBvbnQgc3VyIGxhIHBvcHVsYXRpb24gZXQgbGVzIGTDqWNpc2lvbnMgw6AgbCfDqWNoZWxsZSBuYXRpb25hbGUgZXQgaW50ZXJuYXRpb25hbGUsIGxlcyDDqWxlY3Rpb25zIHByw6lzaWRlbnRpZWxsZXMgc29udCB0b3Vqb3VycyBkZXMgw6l2w6huZW1lbnRzIGdyYW5kZW1lbnQgbcOpZGlhdGlzw6lzLiBJbCBlc3QgYWxvcnMgbmF0dXJlbCBkZSBzZSBkZW1hbmRlciBzJ2lsIGVzdCBwb3NzaWJsZSBkJ3V0aWxpc2VyIGRlcyBtw6l0aG9kZXMgc3RhdGlzdGlxdWVzIGFmaW4gZCfDqXR1ZGllciBsZXMgbGllbnMgZGUgY2F1c2FsaXTDqSBlbnRyZSBtw6lkaWFzIGV0IHBvcHVsYXJpdMOpIGRlcyBjYW5kaWRhdHMsIHBvdXIgYWluc2kgZMOpZ2FnZXIgZGVzIHRlbmRhbmNlcyBnbG9iYWxlcyBzdXIgbCdhdmlzIGRlIGxhIHBvcHVsYXRpb24uDQoNCk5vdXMgbm91cyBwcm9wb3NvbnMgZCfDqXR1ZGllciB0cm9pcyBqZXV4IGRlIGRvbm7DqWVzIGxpw6llcyBhdXggw6lsZWN0aW9ucyBwcsOpc2lkZW50aWVsbGVzIGZyYW7Dp2Fpc2VzIGRlIDIwMTc6DQotTGUgZGF0YXNldCBiYXJvbcOodHJlIElOQSBxdWkgY29udGllbnQgbGUgdGVtcHMgYWxsb3XDqSDDoCAxNCB0aMOpbWF0aXF1ZXMgKHBhcm1pICLDqWNvbm9taWUiLCAic3BvcnQiLCAic29jacOpdMOpIiwgZXRjLi4uKSBzdXIgbGVzIDYgcHJpbmNpcGFsZXMgY2hhw65uZXMgZGUgdMOpbMOpdmlzaW9uIGZyYW7Dp2Fpc2VzIChURjEsIEZyYW5jZSAyLCBGcmFuY2UgMywgQ2FuYWwsIEFydGUsIE02KS4gTm91cyBhdm9ucyBhY2PDqHMgw6AgY2VzIGluZm9ybWF0aW9ucyBjaGFxdWUgbW9pcywgZGUgMjAwNSDDoCAyMDE4Lg0KLUxlIGRhdGFzZXQgSVBTT1MsIGRhbnMgbGVxdWVsIG5vdXMgYXZvbnMgcmVsZXbDqSBsZSBiYXJvbcOodHJlIGRlIHBvcHVsYXJpdMOpIGRlIHRyb2lzIGNhbmRpZGF0cyBhdXggw6lsZWN0aW9ucyBwcsOpc2lkZW50aWVsbGVzIChOaWNvbGFzIFNhcmtvenksIE1hcmluZSBMZSBQZW4sIEplYW4tTHVjIE3DqWxlbmNob24pLCBjaGFxdWUgbW9pcyBkZSBzZXB0ZW1icmUgMjAxNCDDoCBkw6ljZW1icmUgMjAxOC4NCi1MZSBkYXRhc2V0IFNvbmRhZ2VzLCBxdWUgbm91cyBhdm9ucyBjb25zdGl0dcOpIGVuIHLDqWN1cMOpcmFudCBsZXMgZG9ubsOpZXMgZGUgZ3JhbmRzIHNvbmRhZ2VzIHN1ciBXaWtpcMOpZGlhIGVuIHV0aWxpc2FudCBkZXMgbcOpdGhvZGVzIGRlIHdlYiBzY3JhcGluZy4NCg0KRGFucyB1biBwcmVtaWVyIHRlbXBzLCBub3VzIGFsbG9ucyBjaGFyZ2VyIGxlcyBqZXV4IGRlIGRvbm7DqWVzLCBldCBlZmZlY3R1ZXIgdW5lIGJyw6h2ZSBhbmFseXNlIGV4cGxvcmF0cmljZSBwb3VyIGNvbXByZW5kcmUgZGUgcXVvaSBpbHMgc29udCBjb25zdGl0dcOpcy4NCg0KYGBge3IsIG1lc3NhZ2U9RkFMU0V9DQojIyMjIyMgSW5pdGlhbGlzYXRpb24gZGUgbGEgc2Vzc2lvbiBSDQoNCnJtKGxpc3Q9b2JqZWN0cygpKQ0KbGlicmFyeShYTUwpDQpsaWJyYXJ5KFJDdXJsKQ0KbGlicmFyeShtYWdyaXR0cikNCmxpYnJhcnkobWdjdikNCmxpYnJhcnkodGlkeXZlcnNlKQ0KbGlicmFyeShsdWJyaWRhdGUpDQpsaWJyYXJ5KHdlYXRoZXJtZXRyaWNzKQ0KbGlicmFyeShyYW5nZXIpDQpsaWJyYXJ5KHJ2ZXN0KQ0KbGlicmFyeShjb3JycGxvdCkNCmxpYnJhcnkoZ2xtbmV0KQ0KbGlicmFyeShnZ3Bsb3QyKQ0KbGlicmFyeShkcGx5cikNCmxpYnJhcnkodmlyaWRpcykNCmxpYnJhcnkoaHJicnRoZW1lcykNCmxpYnJhcnkocGxvdGx5KQ0KbGlicmFyeShlbGxpcHNlKQ0KbGlicmFyeShSQ29sb3JCcmV3ZXIpDQpsaWJyYXJ5KHh0cykNCmxpYnJhcnkoaG1zKQ0KbGlicmFyeShwbG90bW8pDQpsaWJyYXJ5KHJhbmRvbUZvcmVzdCkNCnJlcXVpcmUoY2FUb29scykNCg0Kc2V0d2QoIkM6L1VzZXJzL3Rob21hL09uZURyaXZlL0J1cmVhdS9DZW50cmFsZS8zQS9NYXN0ZXIvUHJvamV0TUwvQ29kZS9NYWNoaW5lLUxlYXJuaW5nLWZvci1QcmVkaWN0aW9uLyIpDQojc2V0d2QoIi9Vc2Vycy9hZG1pbi9EZXNrdG9wL1N0YXRNTC9NTFwgZm9yXCBGb3JlY2FzdGluZy9Qcm9qZXQiKQ0KYGBgDQoNCg0KDQojIyBEb25uw6llcyBJTkENCg0KTGUgcHJlbWllciBqZXUgZGUgZG9ubsOpZXMgcXVlIG5vdXMgYXZvbnMgdGVzdMOpIGVzdCBjZWx1aSBmb3VybmkgcGFyIGwnSU5BIChwbHVzIGQnaW5mb3JtYXRpb25zIHNvbnQgZGlwb25pYmxlcyBpY2kgaHR0cDovL3d3dy5pbmF0aGVxdWUuZnIvcHVibGljYXRpb25zLWV2ZW5lbWVudHMvaW5hLXN0YXQvaW5hLXN0YXQtbWV0aG9kb2xvZ2llLmh0bWwpLiBJbCBlc3Qgw6AgZGlzcG9zaXRpb24gZGFucyB1biBmaWNoaWVyIG5vbW3DqSAiaW5hLWJhcm9tZXRyZS1qdC10di1kb25uZWVzLW1lbnN1ZWxsZXMtMjAwNS0yMDE4LWR1cmVlcy5jc3YiLiANCg0KYGBge3J9DQojIyMgRG9ubsOpZXMgSU5BDQoNCiMgQ29sbGVjdGUgZGVzIGRvbm7DqWVzDQpkYXRhIDwtIHJlYWRfZGVsaW0oImluYS1iYXJvbWV0cmUtanQtdHYtZG9ubmVlcy1tZW5zdWVsbGVzLTIwMDUtMjAxOC1kdXJlZXMuY3N2IiwgY29sX25hbWVzID1UUlVFLCBkZWxpbT0nOycsY29sX3R5cGVzID0gY29scyhNT0lTID0gY29sX2NoYXJhY3RlcigpLCBUSEVNQVRJUVVFUyA9IGNvbF9jaGFyYWN0ZXIoKSkpDQpkYXRhJE1PSVMgPSBkbXkoZGF0YSRNT0lTKQ0KZGF0YUFjdHVzVFY9ZGF0YQ0KDQojIEluc3BlY3Rpb24gZHUgZGF0YXNldA0KaGVhZChkYXRhKQ0KYGBgDQoNCk5vdXMgcG91dm9ucyByw6lhcnJhbmdlciBsZXMgZG9ubsOpZXMgYWZpbiBkZSByw6lvcmRvbm5lciBsZXMgw6lsw6ltZW50cyBkJ3VuIHN1amV0IHN1ciB1bmUgY2hhw65uZSBkZSBtYW5pw6hyZSBjb25zw6ljdXRpdmUuIEFpbnNpLCBhdSBsaWV1IGQnYXZvaXIgbGVzIDE0IHN1amV0cyBzdXIgdG91dGVzIGxlcyBjaGHDrm5lcyDDoCBjaGFxdWUgbW9pcywgbm91cyBvYnRlbm9ucyBjaGFxdWUgc3VqZXQgc3VyIGNoYXF1ZSBjaGHDrm5lLCBldCBub3VzIHBvdXZvbnMgYWluc2kgbGVzIGFmZmljaGVyLg0KDQpgYGB7cn0NCiMgQXJyYW5nZW1lbnQgZGVzIGRvbm7DqWVzIGRhbnMgbGUgZm9ybWF0IFRoZW1hdGlxdWVzQ2hhaW5lVFYgDQpub21zPWMoIlRGMSIsIkZyYW5jZTIiLCJGcmFuY2UzIiwiQ2FuYWwiLCJBcnRlIiwiTTYiKQ0KQ2F0YXN0cm9waGVzPWZpbHRlcihkYXRhLFRIRU1BVElRVUVTID09ICJDYXRhc3Ryb3BoZXMiKVssLTJdDQpuYW1lcyhDYXRhc3Ryb3BoZXMpWy0xXSA9IHBhc3RlKG5vbXMsICJDYXRhc3Ryb3BoZXMiLCBzZXAgPSAnJykNCkFjdHVzVFYgPSBDYXRhc3Ryb3BoZXMNCg0KZm9yIChuYW1lIGluIGRhdGFbMjoxNCwyXSRUSEVNQVRJUVVFUyl7DQogICAgZGF0YTAgPSBmaWx0ZXIoZGF0YSxUSEVNQVRJUVVFUyA9PSBuYW1lKVssLTJdDQogICAgbmFtZXMoZGF0YTApWy0xXSA9IHBhc3RlKG5vbXMsIG5hbWUsIHNlcCA9ICcnKQ0KICAgIEFjdHVzVFYgPSBsZWZ0X2pvaW4oQWN0dXNUViwgZGF0YTAsIGJ5ID0gIk1PSVMiKQ0KfQ0KDQojIFN1cHByZXNzaW9uIGRlcyBwcm94eSB2YXJpYWJsZXMNCnJtKGRhdGEsIGRhdGEwLCBDYXRhc3Ryb3BoZXMsIG5hbWUsIG5vbXMpDQoNCiMgSW5zcGVjdGlvbiBkdSBkYXRhc2V0DQpoZWFkKEFjdHVzVFYpDQpgYGANCg0KDQpQYXIgZXhlbXBsZSwgc2kgbm91cyBub3VzIGludMOpcmVzc29ucyBhdSB0ZW1wcyBkJ8OpY3JhbiBkZSBjZXJ0YWlucyBzdWpldHMgc3VyIFRGMSwgdGVscyBxdWUgbGEgY3VsdHVyZSwgbGUgc3BvcnQgZXQgbGEgcG9saXRpcXVlIGVuIEZyYW5jZSwgbm91cyBvYnRlbm9ucw0KDQpgYGB7cn0NCiMgUGxvdCBkZXMgc3VqZXRzIGVuIGZvbmN0aW9uIGR1IHRlbXBzDQpjb2xvcnMgPC0gYygiVEYxIFBvbGl0aXF1ZSBGcmFuY2UiID0gImNvcm5mbG93ZXJibHVlIiwgIlRGMSBDdWx0dXJlLWxvaXNpcnMiID0gImJyb3duMiIsICJURjEgU3BvcnQiID0gImRhcmtvbGl2ZWdyZWVuMyIpDQoNCnAgPC0gZ2dwbG90KEFjdHVzVFYsIGFlcyh4ID0gTU9JUykpICsNCiAgZ2VvbV9saW5lKGFlcyh5ID0gYFRGMVBvbGl0aXF1ZSBGcmFuY2VgLCBjb2xvciA9ICJURjEgUG9saXRpcXVlIEZyYW5jZSIpKSArDQogIGdlb21fbGluZShhZXMoeSA9IGBURjFDdWx0dXJlLWxvaXNpcnNgLCBjb2xvciA9ICJURjEgQ3VsdHVyZS1sb2lzaXJzIikpICsgDQogIGdlb21fbGluZShhZXMoeSA9IFRGMVNwb3J0LCBjb2xvciA9ICJURjEgU3BvcnQiKSkgKw0KICBsYWJzKHggPSAiRGF0ZSIsDQogICAgICAgeSA9ICJEdXLDqWUgKGhldXJlcykiLCANCiAgICAgICBjb2xvciA9ICJTdWpldCIpICsNCiAgZ2d0aXRsZSgiSW1wb3J0YW5jZSBkZXMgc3VqZXRzIHN1ciBURjEiKSArDQogIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJib3R0b20iKSArDQogIHNjYWxlX2NvbG9yX21hbnVhbCh2YWx1ZXMgPSBjb2xvcnMpDQoNCnANCmBgYA0KDQpMZSBzcG9ydCBlc3QgbWFqb3JpdGFpcmVtZW50IHBvbmN0dcOpIHBhciBsZXMgZ3JhbmRlcyBjb21ww6l0aXRpb25zIGF5YW50IGxpZXUgdW5lIGZvaXMgdG91cyBsZXMgZGV1eCBhbnMsIG5vdXMgcG91dm9ucyBkb25jYyByZW1hcnF1ZXIgcXVlIGNlIHN1amV0IHByw6lzZW50ZSB1bmUgZm9ydGUgcmVwcsOpc2VudGF0aW9uIMOgIGxhIHTDqWzDqXZpc2lvbiBsb3JzIGRlIGNlcyBtb21lbnRzIGzDoCwgcHVpcyB1bmUgcmVwcsOpc2VudGF0aW9uIHBsdXTDtHQgZmFpYmxlIGxlIHJlc3RlIGR1IHRlbXBzLiBMYSBjdWx0dXJlIGEgcXVhbnQgw6AgZWxsZSB1biB0ZW1wcyBkJ8OpY3JhbiBwbHV0w7R0IGNvbnN0YW50IGV0IG4nZXN0IHBhcyBtYXJxdcOpZSBwYXIgZGVzIMOpdsOobmVtZW50cyBlbiBwYXJ0aWN1bGllci4gTGUgc3VqZXQgZGUgbGEgcG9saXRpcXVlIGVuIEZyYW5jZSBlc3QgZGV2ZW51IHRyw6hzIG3DqWRpYXRpc8OpIMOgIHBhcnRpciBkZSAyMDE1LCBhdmVjIGxlIHBsdXMgZm9ydCB0YXV4IGRlIG3DqWRpYXRpc2F0aW9uIMOgIGwnYXBwcm9jaGUgZGVzIHByw6lzaWRlbnRpZWxsZXMgZW4gMjAxNy4NCg0KDQpgYGB7cn0NCiMgUGxvdCBkZXMgc3VqZXRzIGVuIGZvbmN0aW9uIGR1IHRlbXBzDQpjb2xvcnMgPC0gYygiVEYxIFBvbGl0aXF1ZSBGcmFuY2UiID0gImNvcm5mbG93ZXJibHVlIiwgIkZyYW5jZSAyIFBvbGl0aXF1ZSBGcmFuY2UiID0gImJyb3duMiIsICJBcnRlIFBvbGl0aXF1ZSBGcmFuY2UiID0gImRhcmtvbGl2ZWdyZWVuMyIpDQpwIDwtIGdncGxvdChBY3R1c1RWLCBhZXMoeCA9IE1PSVMpKSArDQogIGdlb21fbGluZShhZXMoeSA9IGBURjFQb2xpdGlxdWUgRnJhbmNlYCwgY29sb3IgPSAiVEYxIFBvbGl0aXF1ZSBGcmFuY2UiKSkgKw0KICBnZW9tX2xpbmUoYWVzKHkgPSBgRnJhbmNlMlBvbGl0aXF1ZSBGcmFuY2VgLCBjb2xvciA9ICJGcmFuY2UgMiBQb2xpdGlxdWUgRnJhbmNlIikpICsgDQogIGdlb21fbGluZShhZXMoeSA9IGBBcnRlUG9saXRpcXVlIEZyYW5jZWAsIGNvbG9yID0gIkFydGUgUG9saXRpcXVlIEZyYW5jZSIpKSArDQogIGxhYnMoeCA9ICJEYXRlIiwNCiAgICAgICB5ID0gIkR1csOpZSAoaGV1cmVzKSIsIA0KICAgICAgIGNvbG9yID0gIlN1amV0IikgKw0KICBnZ3RpdGxlKCJNw6lkaWF0aXNhdGlvbiBkZSBsYSBwb2xpdGlxdWUgw6AgbGEgdMOpbMOpdmlzaW9uIGZyYW7Dp2Fpc2UiKSArDQogIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJib3R0b20iKSArDQogIHNjYWxlX2NvbG9yX21hbnVhbCh2YWx1ZXMgPSBjb2xvcnMpDQoNCnANCmBgYA0KDQpOb3VzIHJlbWFycXVvbnMgw6lnYWxlbWVudCBxdWUgbm91cyBhdm9ucyB1bmUgcmVwcsOpc2VudGF0aW9uIGluw6lnYWxlIGRlcyBkb25uw6llcyBzdXIgbGVzIGNoYcOubmVzIGRlIHTDqWzDqXZpc2lvbiBmcmFuw6dhaXNlLiBBbG9ycyBxdWUgVEYxIGV0IEZyYW5jZSAyIG9udCBkZXMgcHJvZ3JhbW1lcyB0csOocyBzaW1pbGFpcmVzLCBBcnRlIGVzdCB1bmUgY2hhw65uZSBzdXIgbGFxdWVsbGUgbGEgcG9saXRpcXVlIG4nZXN0IHF1YXNpbWVudCBwYXMgcmVwcsOpc2VudMOpZS4NCg0KTm91cyBwb3V2b25zIGQnYWlsbGVycyB2w6lyaWZpZXIgY2VjaQ0KDQpgYGB7cn0NCiMgU8OpbGVjdGlvbm5lIGxlcyBjb2xvbm5lcyBxdWkgbm91cyBpbnTDqXJlc3NlbnQgcGVuZGFudCBsYSBww6lyaW9kZSAyMDE1LTIwMTgNCklOQV9wb2xpdGljcyA8LSBzZWxlY3QoQWN0dXNUViwgYE1PSVNgLCBgVEYxUG9saXRpcXVlIEZyYW5jZWAsIGBGcmFuY2UyUG9saXRpcXVlIEZyYW5jZWAsIGBGcmFuY2UzUG9saXRpcXVlIEZyYW5jZWAsIGBDYW5hbFBvbGl0aXF1ZSBGcmFuY2VgLCBgQXJ0ZVBvbGl0aXF1ZSBGcmFuY2VgLCBgTTZQb2xpdGlxdWUgRnJhbmNlYCkNCg0KSU5BX3BvbGl0aWNzIDwtIElOQV9wb2xpdGljc1tjKDExNzoxNjIpLCBdDQoNCiMgQ3LDqWUgdW5lIG5vdXZlbGxlIGRhdGEgZnJhbWUgc2FucyB1dGlsaXNlciBjb2xTdW1zIChuZSBmb25jdGlvbm5lIHBhcyBzdXIgbGUgZm9ybWF0IGhtcykNCklOQV9wb2xpdGljc19jdW11bGF0aXZlIDwtIGRhdGEuZnJhbWUoDQpuYW1lID0gYygiVEYxIiwgIkZyYW5jZSAyIiwgIkZyYW5jZSAzIiwgIkNhbmFsIiwgIkFydGUiLCAiTTYiKSAsIA0KdmFsdWUgPSBjKHN1bShJTkFfcG9saXRpY3MkYFRGMVBvbGl0aXF1ZSBGcmFuY2VgKSwgc3VtKElOQV9wb2xpdGljcyRgRnJhbmNlMlBvbGl0aXF1ZSBGcmFuY2VgKSwgc3VtKElOQV9wb2xpdGljcyRgRnJhbmNlM1BvbGl0aXF1ZSBGcmFuY2VgKSwgc3VtKElOQV9wb2xpdGljcyRgQ2FuYWxQb2xpdGlxdWUgRnJhbmNlYCksIHN1bShJTkFfcG9saXRpY3MkYEFydGVQb2xpdGlxdWUgRnJhbmNlYCksIHN1bShJTkFfcG9saXRpY3MkYE02UG9saXRpcXVlIEZyYW5jZWApKQ0KKQ0KDQojIFBsb3QgbGUgdGVtcHMgdG90YWwgYWxsb3XDqSDDoCBsYSBwb2xpdGlxdWUgZnJhbsOnYWlzZSBzdXIgY2hhcXVlIGNoYcOubmUNCmdncGxvdChJTkFfcG9saXRpY3NfY3VtdWxhdGl2ZSwgYWVzKHg9bmFtZSwgeT12YWx1ZSkpICsgDQogIGdlb21fYmFyKHN0YXQgPSAiaWRlbnRpdHkiLCB3aWR0aD0wLjcsIGZpbGw9InN0ZWVsYmx1ZSIpICsNCiAgZ2VvbV90ZXh0KGFlcyhsYWJlbD1yb3VuZCh2YWx1ZSwgZGlnaXRzID0gMSkpLCB2anVzdD0xLjYsIGNvbG9yPSJ3aGl0ZSIsIHNpemU9My41KSArDQogIHNjYWxlX2ZpbGxfYnJld2VyKHBhbGV0dGU9IkJsdWVzIikgKw0KICB4bGFiKCJDaGHDrm5lIikgKw0KICB5bGFiKCJUZW1wcyBkJ8OpY3JhbiAocykiKSArDQogIGdndGl0bGUoIk3DqWRpYXRpc2F0aW9uIGRlIGxhIHBvbGl0aXF1ZSBlbiBmcmFuY2UiKQ0KYGBgDQoNCg0KQ2UgcXVpIGNvbmZpcm1lIGxlIGZhaXQgcXVlIFRGMSBldCBGcmFuY2UgMiBzb250IHNpbWlsYWlyZXMsIGV0IHF1J0FydGUgbmUgZGlmZnVzZSBxdWUgdHLDqHMgcGV1IGRlIHBvbGl0aXF1ZSBwYXIgcmFwcG9ydCDDoCBldXguIE9uIG5vdGVyYSBxdWUgQ2FuYWwrIGVzdCBsYSBjaGHDrm5lIHF1aSBkaWZmdXNlIGNlIHN1amV0IGxlIG1vaW5zLg0KDQpTaSBub3VzIG5vdXMgaW50w6lyZXNzb25zIG1haW50ZW5hbnQgw6AgdW5lIHZpc2lvbiBwbHVzIGxvY2FsZSBkZSBsYSBtw6lkaWF0aXNhdGlvbiBkZSBjZXMgw6lsZWN0aW9ucywgc3VyIFRGMSBwYXIgZXhlbXBsZSwNCg0KYGBge3J9DQojIFBsb3QgZGUgbGEgcG9saXRpcXVlIGZyYW7Dp2Fpc2Ugc3VyIFRGMSBsb3JzIGRlcyDDqWxlY3Rpb25zDQpJTkFfUG9saXRpY3MgPC0gZGF0YS5mcmFtZSgNCiAgZGF5ID0gQWN0dXNUViRNT0lTWzExNzoxNjJdLA0KICB2YWx1ZSA9IEFjdHVzVFYkYFRGMVBvbGl0aXF1ZSBGcmFuY2VgWzExNzoxNjJdDQopDQoNCnAgPC0gZ2dwbG90KElOQV9Qb2xpdGljcywgYWVzKHggPSBkYXksIHkgPSB2YWx1ZSkpICsNCiAgZ2VvbV9saW5lKGNvbG9yID0gImNvcm5mbG93ZXJibHVlIikgKyANCiAgeGxhYigiRGF0ZSIpICsNCiAgeWxhYigiRHVyw6llIChoZXVyZXMpIikgKw0KICBnZ3RpdGxlKCJQb2xpdGlxdWUgZnJhbsOnYWlzZSBzdXJURjEiKQ0KDQpwDQpgYGANCk5vdXMgcG91dm9ucyBhcGVyY2V2b2lyIHVuZSBmb3J0ZSBhdWdtZW50YXRpb24gZGUgbGEgbcOpZGlhdGlzYXRpb24gZGUgbGEgcG9saXRpcXVlIGVuIDIwMTUsIG5vdGFtbWVudCDDoCBjYXVzZSBkZSBsJ2FudGljaXBhdGlvbiBkZSBsJ8OpbGVjdGlvbiBwcsOpc2lkZW50aWVsbGUsIGRlcyDDqWxlY3Rpb25zIGTDqXBhcnRlbWVudGFsZXMgZXQgcsOpZ2lvbmFsZXMuIE5vdXMgYXNzaXN0b25zIMOpZ2FsZW1lbnQgw6AgbGEgbW9udMOpZSBkdSBGcm9udCBOYXRpb25hbCBhcHLDqHMgbGVzIGF0dGVudGF0cyB0ZXJyb3N0aXN0ZXMgZGUgQ2hhcmxpZSBIZWJkbywgZHUgQmF0YWNsYW4gcHVpcyBkdSBTdGFkZSBkZSBGcmFuY2UuIExlIEYuTi4gZWZmZWN0dWUgZCdhaWxsZXVycyBjZXR0ZSBhbm7DqWUtbMOgIGxlcyBtZWlsbGV1cnMgc2NvcmVzIMOpbGVjdG9yYXV4IGRlIHNvbiBoaXN0b2lyZSwgZXQgcydlbnN1aXQgbGEgc3VjY2Vzc2lvbiBkZSBNYXJpbmUgTGUgUGVuIMOgIHNvbiBww6hyZSwgZXhjbHUgZHUgcGFydGkgYXByw6hzIGRlcyBwcm9wb3MgYW50aXPDqW1pdGVzLg0KDQoNCg0KIyNUcmF2YWlsIHN1ciBsZXMgdmFyaWFibGVzIGV4cGxpY2F0aXZlcw0KDQpOb3VzIG5vdXMgc29tbWVzIGludMOpcmVzc8OpcyBhdXggbGllbnMgcG91dmFudCBleGlzdGVyIGVudHJlIGxlcyBkb25uw6llcyBldCBzb3VoYWl0b25zIG5vdGFtbWVudCByw6lwb25kcmUgYXV4IHF1ZXN0aW9uczogUXVhbmQgdW5lIGNoYWluZSBwYXJsZSBkJ3VuIHN1amV0LCBlc3QgY2UgcXVlIGxlcyBhdXRyZXMgY2hhaW5lcyB2b250IGF1c3NpIGVuIHBhcmxlciA/IENlcnRhaW5zIHN1amV0cyBzb250IGlscyB0cmFpdMOpcyBkZSBtYW5pw6hyZSBkaWZmw6lyZW50ZXMgKGVuIHRlcm1lIGRlIHRlbXBzIGQnYW50ZW5uZSkgZW50cmUgbGVzIGRpZmbDqXJlbnRlcyBjaGHDrm5lcyA/DQpMZXMgZG9ubsOpZXMgw6l0YW50IG1lbnN1ZWxsZXMsIG9uIG5lIHBldXQgcGFzIHJlZ2FyZGVyIGRlcyB2YXJpYXRpb25zIGZpbmVzIG1haXMgYmllbiBkZXMgdmFyaWF0aW9ucyBpbXBvcnRhbnRlcyBvw7kgZGVzIGNoYcOubmVzIHZvbnQgY29sbGVjdGl2ZW1lbnQgYmVhdWNvdXAgcGFybGVyIGQndW4gc3VqZXQuDQoNCmBgYHtyfQ0KQWN0dXNUVlNlbGVjdD1zZWxlY3QoQWN0dXNUViwgZW5kc193aXRoKCJGYWl0cyBkaXZlcnMiKSkNCkFjdHVzVFZudW08LSBkYXRhLm1hdHJpeChBY3R1c1RWU2VsZWN0KQ0KZm9yIChpIGluIDE6ZGltKEFjdHVzVFZudW0pWzJdKSB7DQogIGZvciAoaiBpbiAxOiBkaW0oQWN0dXNUVm51bSlbMV0pew0KICAgIEFjdHVzVFZudW1baixpXSA8LSBhcy5udW1lcmljKEFjdHVzVFZTZWxlY3RbaixpXSkNCiAgfSANCn0NCm1jb3I9Y29yKEFjdHVzVFZudW0pDQpjb3JycGxvdChtY29yLCB0bC5jb2w9ImJsYWNrIikNCmBgYA0KDQpTdXIgY2V0dGUgbWF0cmljZSBkZSBjb3Jyw6lsYXRpb24sIG9uIHBldXQgdm9pciBxdWUgVEYxLCBGcmFuY2UyLCBGcmFuY2UgMywgTTYgZXQgQ2FuYWwrIHBhcmxlbnQgZGUgZmFpdHMgZGl2ZXJzIMOgIHBldSBwcsOocyBlbiBtw6ptZSB0ZW1wcy4gQXJ0ZSBzZSBkaXN0aW5ndWUgZXQgZW4gcGFybGUgw6AgZGVzIG1vbWVudHMgZGlmZsOpcmVudHMuDQoNCmBgYHtyfQ0KQWN0dXNUVlNlbGVjdD1zZWxlY3QoQWN0dXNUViwgZW5kc193aXRoKCJDYXRhc3Ryb3BoZXMiKSkNCkFjdHVzVFZudW08LSBkYXRhLm1hdHJpeChBY3R1c1RWU2VsZWN0KQ0KZm9yIChpIGluIDE6ZGltKEFjdHVzVFZudW0pWzJdKSB7DQogIGZvciAoaiBpbiAxOiBkaW0oQWN0dXNUVm51bSlbMV0pew0KICAgIEFjdHVzVFZudW1baixpXSA8LSBhcy5udW1lcmljKEFjdHVzVFZTZWxlY3RbaixpXSkNCiAgfSANCn0NCm1jb3I9Y29yKEFjdHVzVFZudW0pDQpjb3JycGxvdChtY29yLCB0bC5jb2w9ImJsYWNrIikNCmBgYA0KQ2V0dGUgZGlmZsOpcmVuY2UgZW50cmUgbGVzIGRpZmbDqXJlbnRzIGpvdXJuYXV4IGVzdCBwbHVzIGZhaWJsZSBzdXIgZCdhdXRyZXMgc3VqZXRzIGNvbW1lIGNlbHVpIGRlcyBjYXRhc3Ryb3BoZXMuDQoNCg0KYGBge3IsIG1lc3NhZ2UgPSBGQUxTRX0NCiMgU8OpcGFyZSBsZSBqZXUgZGUgZG9ubsOpZXMgZW4gdHJhaW5pbmcgZXQgdGVzdGluZyBzZXQNCg0Kc2FtcGxlMSA9IHNhbXBsZS5zcGxpdChBY3R1c1RWJEFydGVDYXRhc3Ryb3BoZXMsIFNwbGl0UmF0aW8gPSAuNykNCnRyYWluMSA9IHN1YnNldChBY3R1c1RWLCBzYW1wbGUxID09IFRSVUUpDQp0ZXN0MSAgPSBzdWJzZXQoQWN0dXNUViwgc2FtcGxlMSA9PSBGQUxTRSkNCmRpbSh0cmFpbjEpDQpkaW0odGVzdDEpDQoNCiMgQ3LDqWF0aW9uIGR1IGNsYXNzaWZpZXVyIHBhciBmb3LDqnRzIGFsw6lhdG9pcmVzDQoNCnJmX2NsYXNzaWZpZXIgPC0gcmFuZG9tRm9yZXN0KA0KICBBcnRlQ2F0YXN0cm9waGVzIH4gLiwNCiAgZGF0YT1kYXRhLmZyYW1lKHRyYWluMSksDQogIGltcG9ydGFuY2UgPSBUUlVFDQopDQpyZl9jbGFzc2lmaWVyDQoNCnByZWRpY3Rpb24gPSBwcmVkaWN0KHJmX2NsYXNzaWZpZXIsIG5ld2RhdGE9ZGF0YS5mcmFtZSh0ZXN0MSkpDQoNCmBgYA0KDQpPbiB2b2l0IGljaSBxdWUgc2kgb24gY2hlcmNoYWl0IMOgIGRldGVybWluZXIgbGUgdGVtcHMgZCdhbnRlbm5lIGRlcyBjYXRhc3Ryb3BoZXMgc3VyIEFydGUsIG9uIGF1cmFpdCBzZXVsZW1lbnQgdW5lIGV4cGxpY2F0aW9uIGQnYXV0b3VyIGRlIDI1JSBkdWUgYXV4IGF1dHJlcyBjaGFpbmVzLg0KDQpgYGB7ciwgbWVzc2FnZSA9IEZBTFNFfQ0KIyBTw6lwYXJlIGxlIGpldSBkZSBkb25uw6llcyBlbiB0cmFpbmluZyBldCB0ZXN0aW5nIHNldA0KDQpzYW1wbGUxID0gc2FtcGxlLnNwbGl0KEFjdHVzVFYkRnJhbmNlMkNhdGFzdHJvcGhlcywgU3BsaXRSYXRpbyA9IC43KQ0KDQp0cmFpbjEgPSBzdWJzZXQoQWN0dXNUViwgc2FtcGxlMSA9PSBUUlVFKQ0KdGVzdDEgID0gc3Vic2V0KEFjdHVzVFYsIHNhbXBsZTEgPT0gRkFMU0UpDQpkaW0odHJhaW4xKQ0KZGltKHRlc3QxKQ0KDQojIENyw6lhdGlvbiBkdSBjbGFzc2lmaWV1ciBwYXIgZm9yw6p0cyBhbMOpYXRvaXJlcw0KcmZfY2xhc3NpZmllciA8LSByYW5kb21Gb3Jlc3QoDQogIEZyYW5jZTJDYXRhc3Ryb3BoZXMgfiAuLA0KICBkYXRhPWRhdGEuZnJhbWUodHJhaW4xKSwNCiAgaW1wb3J0YW5jZSA9IFRSVUUNCikNCg0KcmZfY2xhc3NpZmllcg0KcHJlZGljdGlvbiA9IHByZWRpY3QocmZfY2xhc3NpZmllciwgbmV3ZGF0YT1kYXRhLmZyYW1lKHRlc3QxKSkNCmBgYA0KDQpTaSBvbiBjaGVyY2hlIMOgIGV4cGxpcXVlciBkZXMgdmFyaWFibGVzIGxpw6llcyDDoCBGcmFuY2UyLCBvbiB2b2l0IMOgIGwnaW52ZXJzZSBxdSdvbiBwZXV0IHBsdXMgZmFjaWxlbWVudCBsJ2V4cGxpcXVlciDDoCBwYXJ0aXIgZGVzIGF1dHJlcyB2YXJpYWJsZXMuDQoNCg0KDQojIyBEYXRhc2V0IElQU09TDQoNCkxlIHNlY29uZCBkYXRhc2V0IHF1ZSBub3VzIMOpdHVkaW9ucyBlc3QgbGUgZGF0YXNldCBJUFNPUywgcXVpIGluZGlxdWUgc2kgc3VyIHVuIMOpY2hhbnRpbGxvbiBkZSAxMDAwIHBlcnNvbm5lcywgbGEgcG9wdWxhdGlvbiBlc3QgcGx1dMO0dCBmYXZvcmFibGUgb3Ugbm9uIMOgIHVuIGNhbmRpZGF0IChwbHVzIGQnaW5mb3JtYXRpb25zIHBldXZlbnQgw6p0cmUgdHJvdXbDqWVzIGljaSBodHRwczovL3d3dy5pcHNvcy5jb20vZnItZnIvYmFyb21ldHJlLXBvbGl0aXF1ZSkuIFBvdXIgY2UgamV1IGRlIGRvbm7DqWVzLCBub3VzIGF2b25zIG1hbnVlbGxlbWVudCByw6ljdXDDqXLDqSBsYSBwb3B1bGFyaXTDqSBkZSAzIHBlcnNvbm5lcyBwb2xpdGlxdWVzIGltcG9ydGFudGVzOiBOaWNvbGFzIFNhcmtvenksIE1hcmluZSBMZSBQZW4gZXQgSmVhbi1MdWMgTWVsZW5jaG9uLiBOb3VzIGxlcyBhdm9ucyBjaG9pc2lzIGNhciDDqXRhbnQgcHLDqXNlbnRzIGRhbnMgbGUgY2hhbXAgcG9saXRpcXVlIGRlcHVpcyBsb25ndGVtcHMsIElQU09TIGRpc3Bvc2UgZGUgbm9tYnJldXNlcyBkb25uw6llcyBsZXMgY29uY2VybmFudC4NCg0KYGBge3J9DQojIyMgRG9ubsOpZXMgSVBTT1MNCg0KIyBSw6ljdXDDqXJhdGlvbiBkdSBkYXRhc2V0DQpJUFNPUyA8LSAgcmVhZF9kZWxpbSgiSVBTT1MuY3N2IiwgY29sX25hbWVzID0gVFJVRSwgZGVsaW0gPSAnOycsIGNvbF90eXBlcyA9IGNvbHMoTU9JUyA9IGNvbF9jaGFyYWN0ZXIoKSwgVEhFTUFUSVFVRVMgPSBjb2xfY2hhcmFjdGVyKCkpKQ0KSVBTT1MkRGF0ZSA9IGRteShJUFNPUyREYXRlKQ0KSVBTT1MgPC0gSVBTT1MgJT4lIG5hLm9taXQoKQ0KYGBgDQoNCmBgYHtyfQ0KIyBJbnNwZWN0aW9uIGR1IGRhdGFzZXQNCnN1bW1hcnkoSVBTT1MpDQpgYGANCg0KDQojIyBQbG90IERhdGEgSVBTT1MNCg0KYGBge3J9DQojIFBsb3QgbGUgZGF0YXNldCBJUFNPUyBlbiBmb25jdGlvbiBkdSB0ZW1wcw0KY29sb3JzIDwtIGMoIk5pY29sYXMgU2Fya296eSIgPSAiY29ybmZsb3dlcmJsdWUiLCAiTWFyaW5lIExlIFBlbiIgPSAiYnJvd24yIiwgIkplYW4tTHVjIE1lbGVuY2hvbiIgPSAiZGFya29saXZlZ3JlZW4zIikNCnAgPC0gZ2dwbG90KElQU09TLCBhZXMoeCA9IERhdGUpKSArDQogIGdlb21fbGluZShhZXMoeSA9IGBOaWNvbGFzIFNhcmtvenlgLCBjb2xvciA9ICJOaWNvbGFzIFNhcmtvenkiKSkgKw0KICBnZW9tX2xpbmUoYWVzKHkgPSBgTWFyaW5lIExlIFBlbmAsIGNvbG9yID0gIk1hcmluZSBMZSBQZW4iKSkgKyANCiAgZ2VvbV9saW5lKGFlcyh5ID0gYEplYW4tTHVjLU1lbGVuY2hvbmAsIGNvbG9yID0gIkplYW4tTHVjIE1lbGVuY2hvbiIpKSArDQogIGxhYnMoeCA9ICJEYXRlIiwNCiAgICAgICB5ID0gIlBvcHVsYXJpdMOpICglKSIsIA0KICAgICAgIGNvbG9yID0gIkNhbmRpZGF0IikgKw0KICBnZ3RpdGxlKCJTb25kYWdlcyBwcsOpc2lkZW50aWVscyAyMDE3ICAoSVBTT1MpIikgKw0KICB0aGVtZShsZWdlbmQucG9zaXRpb24gPSAiYm90dG9tIikgKw0KICBzY2FsZV9jb2xvcl9tYW51YWwodmFsdWVzID0gY29sb3JzKQ0KDQpwDQpgYGANCg0KTm91cyBvYnNlcnZvbnMgcXVlIGxlcyBjYW5kaWRhdHMgZmF2b3JpcyBzb250IGdsb2JhbGVtZW50IE5pY29sYXMgU2Fya296eSBzdWl2aSBkZSBKZWFuLUx1YyBNw6lsZW5jaG9uLCBxdWkgcydlbnZvbGUgZW4gZMOpYnV0IDIwMTcgb8O5IGlsIGVzdCB0csOocyBwcsOpc2VudCBtw6lkaWF0aXF1ZW1lbnQgcGFybGFudC4gTm91cyBvYnNlcnZvbnMgw6lnYWxlbWVudCBxdSd1bmUgcGFydGllIGltcG9ydGFudGUgZGUgbGEgcG9wdWxhdGlvbiBlc3QgZmF2b3JhYmxlIMOgIGxhIGNhbmRpZGF0ZSBkdSBGcm9udCBOYXRpb25hbC4NCg0KDQpgYGB7cn0NCiMgUGxvdCBsZSBkYXRhc2V0IElQU09TIGVuIGZvbmN0aW9uIGRlIGxhIHBvcHVsYXJpdMOpIGdsb2JhbGUNCklQU09TX2N1bXVsYXRpdmUgPC0gZGF0YS5mcmFtZSgNCiAgbmFtZT1jKCJTYXJrb3p5IiwiTGUgUGVuIiwiTcOpbGVuY2hvbiIpICwgIA0KICB2YWx1ZT1jb2xTdW1zKElQU09TWy0xLC0xXSwgbmEucm0gPSBUUlVFKS9zdW0oIWlzLm5hKElQU09TJGBOaWNvbGFzIFNhcmtvenlgKSkNCikNCg0KZ2dwbG90KElQU09TX2N1bXVsYXRpdmUsIGFlcyh4PW5hbWUsIHk9dmFsdWUpKSArIA0KICBnZW9tX2JhcihzdGF0ID0gImlkZW50aXR5Iiwgd2lkdGg9MC43LCBmaWxsPSJzdGVlbGJsdWUiKSArDQogIGdlb21fdGV4dChhZXMobGFiZWw9cm91bmQodmFsdWUsIGRpZ2l0cyA9IDEpKSwgdmp1c3Q9MS42LCBjb2xvcj0id2hpdGUiLCBzaXplPTMuNSkgKw0KICBzY2FsZV9maWxsX2JyZXdlcihwYWxldHRlPSJCbHVlcyIpICsNCiAgeGxhYigiQ2FuZGlkYXQiKSArDQogIHlsYWIoIlBvcHVsYXJpdMOpICglKSIpICsNCiAgZ2d0aXRsZSgiJSBtb3llbiBkZXMgcHJpbmNpcGF1eCBjYW5kaWRhdHMgKElQU09TKSIpDQpgYGANCg0KTGUgY2FuZGlkYXQgbGUgcGx1cyBwb3B1bGFpcmUgImdsb2JhbGVtZW50IiBzdXIgbGEgcMOpcmlvZGUgZXN0IGRvbmMgSmVhbi1MdWMgTcOpbGVuY2hvbi4NCg0KT24gbm90ZSBxdWUgbGVzIHBvcHVsYXJpdMOpcyBuZSBzJ2Fqb3V0ZW50IHBhcyBwb3VyIGZhaXJlIDEwMCUgY2FyIG9uIG5lIHJlbMOodmUgaWNpIHF1J3VuZSBwb3B1bGFyaXTDqSBnbG9iYWxlIHN1ciBsYSBwb3B1bGF0aW9uLCBldCBwYXMgdW4gcG91cmNlbnRhZ2UgZGUgdm9peCBkYW5zIGxlcyBzb25kYWdlcy4gRGFucyB1biBjbGltYXQgcG9saXRpcXVlIG/DuSBsZXMgY2FuZGlkYXRzIG5lIGNvbnZpZW5kcmFpZW50IHBhcyDDoCBsYSBwb3B1bGF0aW9uLCBvbiBwZXV0IG3Dqm1lIGltYWdpbmVyIHVuIHNjw6luYXJpbyBoeXBvdGjDqXRvcXVlIG/DuSBhdWN1biBjYW5kaWRhdCBuJ2EgcGx1cyBkZSAxMCUgZGUgcG9wdWxhcml0w6kgcGFyIGV4ZW1wbGUuDQoNCg0KDQojIyBEYXRhc2V0IFNvbmRhZ2VzDQoNCk5vdXMgY3LDqW9ucyB1biBqZXUgZGUgZG9ubsOpZXMgU29uZGFnZXMgZW4gcsOpY29sdGFudCBkZXMgcsOpc3VsdGF0cyBkZSBzb25kYWdlcyBkZSBkaWZmw6lyZW50ZXMgc291cmNlcyBzdXIgV2lraXDDqWRpYSAocGx1cyBkJ2luZm9ybWF0aW9ucyBzb250IGRpc3BvbmlibGVzIGljaSBodHRwczovL2VuLndpa2lwZWRpYS5vcmcvd2lraS9PcGluaW9uX3BvbGxpbmdfZm9yX3RoZV8yMDE3X0ZyZW5jaF9wcmVzaWRlbnRpYWxfZWxlY3Rpb24pLg0KDQpgYGB7cn0NCiMjIyBEYXRhc2V0IFNvbmRhZ2VzDQoNCiMgRm9uY3Rpb25zIGRlIG5ldHRveWFnZSBkZXMgZG9ubsOpZXMNCnB0b24gPSBmdW5jdGlvbih4KSB7DQogICAgcmV0dXJuKGFzLm51bWVyaWMoc3Vic3RyKHgsIDAsbmNoYXIoeCktMSkpKQ0KfQ0KDQpGaXJzdE9mVGhlTW9udGggPC0gZnVuY3Rpb24oZCkgew0KICByZXR1cm4ocGFzdGUoIjEiLHN1YnN0cmluZyhkLG5jaGFyKGQpLTcpKSkNCiAgICByZXR1cm4ocGFzdGUoIjEiLCBzdWJzdHJpbmcoZCwgbmNoYXIoZCktNykpKQ0KDQp9DQoNCm1lYW5Nb250aD1mdW5jdGlvbihsLCBtKXsNCiAgICByZXR1cm4obWVhbihsW2wkYEZpZWxkd29yayBkYXRlYCA9PSBtXSwgbmEucm0gPSBUUlVFKSkNCn0NCg0KIyBGdW5jdGlvbiBwb3VyIGxlIHdlYiBzY3JhcGluZw0KcmVjdXBQb2xsID0gZnVuY3Rpb24ocGF0aCwgbmFtZVBhZ2Upew0KICAgICMgcGFyYW0gcGF0aCA6IHhwYXRoIHRvIGRhdGEgdGFibGUNCiAgICAjIHBhcmFtIG5hbWVQYWdlIDogbGluayB0byB3aWtpcGVkaWEgcGFnZQ0KICAgIHBhZ2UgPSByZWFkX2h0bWwobmFtZVBhZ2UpDQogICAgcG9sbHMgPSBodG1sX3RhYmxlKGh0bWxfbm9kZXMocGFnZSx4cGF0aCA9IHBhdGgpLCBoZWFkZXI9VFJVRSwgdHJpbT1UUlVFLCBkZWMgPSAiLCIpW1sxXV1bLTEsXQ0KICAgIGFzLm51bWVyaWMoZ3N1YigiXFwsIiwiIiwgcG9sbHMkU2FtcGxlc2l6ZSkpDQogICAgcG9sbHMkQWJzLiA9IHB0b24ocG9sbHMkQWJzLikNCiAgICBwb2xscyRNYWNyb25FTSA9IHB0b24ocG9sbHMkTWFjcm9uRU0pDQogICAgcG9sbHMkRmlsbG9uTFIgPSBwdG9uKHBvbGxzJEZpbGxvbkxSKQ0KICAgIHBvbGxzJGBNw6lsZW5jaG9uRklgID0gcHRvbihwb2xscyRNw6lsZW5jaG9uRkkpDQogICAgcG9sbHMkYExlIFBlbkZOYCA9IHB0b24ocG9sbHMkYExlIFBlbkZOYCkNCiAgICBmb3IgKGkgaW4gMjpsZW5ndGgocG9sbHMkYEZpZWxkd29yayBkYXRlYCkpIHsNCiAgICAgICAgcG9sbHMkYEZpZWxkd29yayBkYXRlYFtpXSA9IEZpcnN0T2ZUaGVNb250aChwb2xscyRgRmllbGR3b3JrIGRhdGVgW2ldKQ0KICAgIH0NCiAgICBwb2xscyRgRmllbGR3b3JrIGRhdGVgID0gZG15KHBvbGxzJGBGaWVsZHdvcmsgZGF0ZWApDQogICAgcmV0dXJuKHBvbGxzKQ0KfQ0KDQojIEZvbmN0aW9uIGRlIG1veWVubmFnZSBkZXMgc29uZGFnZXMNCmF2ZyA9IGZ1bmN0aW9uKHBvbCkgew0KICAgIHJldHVybihhZ2dyZWdhdGUoY2JpbmQoTWFjcm9uRU0sIGBMZSBQZW5GTmAsIEZpbGxvbkxSLCBgTcOpbGVuY2hvbkZJYCwgQWJzLikgfiBgRmllbGR3b3JrIGRhdGVgLCBwb2wsIEZVTiA9IG1lYW4sIG5hLnJtID0gVFJVRSwgbmEuYWN0aW9uID0gbmEucGFzcykpDQp9DQoNCiMgUsOpY29sdGUgZGVzIGRvbm7DqWVzIGRlcyBzb25kYWdlcyBwcsOpc2lkZW50aWVscyAyMDE3IA0KbmFtZVAyMDE3ID0gImh0dHBzOi8vZW4ud2lraXBlZGlhLm9yZy93aWtpL09waW5pb25fcG9sbGluZ19mb3JfdGhlXzIwMTdfRnJlbmNoX3ByZXNpZGVudGlhbF9lbGVjdGlvbiINCnBvbGxzID0gcmVjdXBQb2xsKCcvaHRtbC9ib2R5L2RpdlszXS9kaXZbM10vZGl2WzVdL2RpdlsxXS90YWJsZVsxXScsIG5hbWVQMjAxNykNCnBvbGxzID0gbWVyZ2UocG9sbHMsIHJlY3VwUG9sbCgnL2h0bWwvYm9keS9kaXZbM10vZGl2WzNdL2Rpdls1XS9kaXZbMV0vdGFibGVbMl0nLCBuYW1lUDIwMTcpLCBhbGw9VFJVRSkNCnBvbGxzID0gbWVyZ2UocG9sbHMsIHJlY3VwUG9sbCgnL2h0bWwvYm9keS9kaXZbM10vZGl2WzNdL2Rpdls1XS9kaXZbMV0vdGFibGVbNF0nLCBuYW1lUDIwMTcpLCBhbGw9VFJVRSkNCnBvbGxzID0gbWVyZ2UocG9sbHMsIHJlY3VwUG9sbCgnL2h0bWwvYm9keS9kaXZbM10vZGl2WzNdL2Rpdls1XS9kaXZbMV0vdGFibGVbNV0nLCBuYW1lUDIwMTcpLCBhbGw9VFJVRSkNCnBvbGxzTW9udGggPSBhdmcocG9sbHMpDQpwb2xsc01vbnRoID0gcmVuYW1lKHBvbGxzTW9udGgsIGZpZWxkd29ya0RhdGUgPSBgRmllbGR3b3JrIGRhdGVgKQ0KZGF0YSA8LSBtZXJnZSh4ID0gcG9sbHNNb250aCwgeSA9IEFjdHVzVFYsIGJ5LnggPSAiZmllbGR3b3JrRGF0ZSIsIGJ5LnkgPSAiTU9JUyIpDQpkYXRhMiA8LSBtZXJnZSh4ID0gSVBTT1MsIHkgPSBBY3R1c1RWLCBieS54ID0gIkRhdGUiLCBieS55ID0gIk1PSVMiKQ0KDQojIFLDqW9yZG9ubmUgbGVzIGRvbm7DqWVzIHBhciBkYXRlIGNyb2lzc2FudGUgY2FyIG9uIGNyb2lzZSBwbHVzaWV1cnMgc29uZGFnZXMgZGlmZsOpcmVudHMNCmRhdGEgPC0gZGF0YVtvcmRlcihhcy5EYXRlKGRhdGEkZmllbGR3b3JrRGF0ZSwgZm9ybWF0ID0gIiVkLyVtLyVZIikpLF0NCg0KcGxvdENvciA9IGZ1bmN0aW9uKGRhdGEsIGNhdGVnb3JpZSkgew0KICAgIGNvcnJwbG90KGNvcihBY3R1c1RWbnVtJT4lc2VsZWN0KGNvbnRhaW5zKGNhdGVnb3JpZSkpKSwgdHlwZSA9ICJ1cHBlciIsIG9yZGVyID0gImhjbHVzdCIsIHRsLmNvbCA9ICJibGFjayIsIHRsLnNydCA9IDQ1KQ0KfQ0KDQpjb252ZXJ0X21pbnV0ZXMgPSBmdW5jdGlvbihkYXRlKSB7DQogIHJldHVybiggaG91cihkYXRlKSAqIDYwICsgbWludXRlKHgpICsgc2Vjb25kKHgpIC8gNjAgKQ0KfQ0KDQojIFN1cHByZXNzaW9uIGRlcyBwcm94eSB2YXJpYWJsZXMNCnJtKHBvbGxzLCBuYW1lUDIwMTcpDQpgYGANCg0KDQojIyBQbG90IERhdGEgU3VydmV5cw0KDQpgYGB7cn0NCiMgUGxvdCBsZSBkYXRhc2V0IFNvbmRhZ2VzIGVuIGZvbmN0aW9uIGR1IHRlbXBzDQpkYXRhX3Bsb3QgPC0gZGF0YSAlPiUgbmEub21pdCgpDQoNCmNvbG9ycyA8LSBjKCJFbW1hbnVlbCBNYWNyb24iID0gImNvcm5mbG93ZXJibHVlIiwgIk1hcmluZSBMZSBQZW4iID0gImJyb3duMiIsICJKZWFuLUZyYW7Dp29pcyBGaWxsb24iID0gImRhcmtvbGl2ZWdyZWVuMyIpDQoNCnAgPC0gZ2dwbG90KGRhdGFfcGxvdCwgYWVzKHggPSBmaWVsZHdvcmtEYXRlKSkgKw0KICBnZW9tX2xpbmUoYWVzKHkgPSBNYWNyb25FTSwgY29sb3IgPSAiRW1tYW51ZWwgTWFjcm9uIikpICsNCiAgZ2VvbV9saW5lKGFlcyh5ID0gYExlIFBlbkZOYCwgY29sb3IgPSAiTWFyaW5lIExlIFBlbiIpKSArIA0KICBnZW9tX2xpbmUoYWVzKHkgPSBGaWxsb25MUiwgY29sb3IgPSAiSmVhbi1GcmFuw6dvaXMgRmlsbG9uIikpICsNCiAgbGFicyh4ID0gIkRhdGUiLA0KICAgICAgIHkgPSAiJSIsIA0KICAgICAgIGNvbG9yID0gIkNhbmRpZGF0IikgKw0KICBnZ3RpdGxlKCJTb25kYWdlcyBwcsOpc2lkZW50aWVscyAyMDE3IChzb3VyY2VzIG11bHRpcGxlcykiKSArDQogIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJib3R0b20iKSArDQogIHNjYWxlX2NvbG9yX21hbnVhbCh2YWx1ZXMgPSBjb2xvcnMpDQoNCnANCmBgYA0KDQpOb3VzIGFwZXJjZXZvbnMgbCdhc2NlbnNpb24gcHVpcyBkw6ljbGluIGRlIEZyYW7Dp29pcyBGaWxsb24gw6AgY2F1c2UgZHUgIlDDqW7DqWxvcGVnYXRlIiBxdWkgcmVsw6h2ZSBkZSBsJ2FjY3VzYXRpb24gZW52ZXJzIGxlIGNhbmRpZGF0IGRlIGNyw6llciBkZXMgZW1wbG9pcyBmaWN0aWZzIHBvdXIgc2EgZmVtbWUuIEVudHJlIGxlIDMxIGTDqWNlbWJyZSAyMDE2IGV0IGxlIDMxIG1hcnMgMjAxNywgMjkwIHN1amV0cyBvbnQgcmVuZHUgY29tcHRlIGRlIGzigJlhZmZhaXJlIEZpbGxvbiwgc29pdCA1Myw3JSBkZSBsYSB0b3RhbGl0w6kgZGVzIHN1amV0cyBjb25zYWNyw6lzIGF1IGNhbmRpZGF0IGRlIGxhIERyb2l0ZSBldCBkdSBDZW50cmUgKHNvdXJjZTogSU5BKS4gSWwgZXN0IMOpZ2FsZW1lbnQgaW50w6lyZXNzYW50cyBkZSBub3RlciBxdWUgSmVhbi1MdWMgTcOpbGVuY2hvbiBldCBGcmFuw6dvaXMgRmlsbG9ucyBzb250IGxlcyBkZXV4IGNhbmRpZGF0cyBsZXMgcGx1cyBjaXTDqXMgZGFucyBsZXMgVHdlZXRzLCBldCBxdSdpbHMgc2Vyb250IHRvdXMgZGV1eCDDqWxpbWluw6lzIGF1IHByZW1pZXIgdG91ci4NCg0KDQpgYGB7cn0NCiMgUGxvdCBsZSBkYXRhc2V0IFNvbmRhZ2VzIGVuIGZvbmN0aW9uIGRlIGxhIHBvcHVsYXJpdMOpIGdsb2JhbGUNCmRhdGFfY3VtdWxhdGl2ZSA8LSBkYXRhLmZyYW1lKA0KICBuYW1lPWMoIk1hY3JvbiIsIkxlIFBlbiIsIkZpbGxvbiIpICwgIA0KICB2YWx1ZT1jb2xTdW1zKGRhdGFbMjo0XVstMSxdLCBuYS5ybSA9IFRSVUUpL3N1bSghaXMubmEoZGF0YSRNYWNyb25FTSkpDQopDQoNCmdncGxvdChkYXRhX2N1bXVsYXRpdmUsIGFlcyh4PW5hbWUsIHk9dmFsdWUpKSArIA0KICBnZW9tX2JhcihzdGF0ID0gImlkZW50aXR5Iiwgd2lkdGggPSAwLjcsIGZpbGwgPSAic3RlZWxibHVlIikgKw0KICBnZW9tX3RleHQoYWVzKGxhYmVsPXJvdW5kKHZhbHVlLCBkaWdpdHMgPSAxKSksIHZqdXN0ID0gMS42LCBjb2xvciA9ICJ3aGl0ZSIsIHNpemUgPSAzLjUpICsNCiAgc2NhbGVfZmlsbF9icmV3ZXIocGFsZXR0ZSA9ICJCbHVlcyIpICsNCiAgeGxhYigiQ2FuZGlkYXQiKSArDQogIHlsYWIoIiUgZGUgbCdvcGluaW9uIikgKw0KICBnZ3RpdGxlKCJQb3VyY2VudGFnZSBtb3llbiBkZXMgcHJpbmNpcGF1eCBjYW5kaWRhdHMgKHNvdXJjZXMgbXVsdGlwbGVzKSIpDQpgYGANCg0KQ2UgcGxvdCBkZSBwb3B1bGFyaXTDqSBub3VzIHBlcm1ldCBkZSBub3VzIHJlbmRyZSBjb21wdGUgcXVlIE1hY3JvbiBuZSBwYXJ0YWl0IGNsYWlyZW1lbnQgcGFzIHZhaW5xdWV1ciBkZSBsJ8OpbGVjdGlvbi4gQ2UgZGVybmllciBhIGQnYWlsbGV1cnMgw6l0w6kgYmllbiBtb2lucyBtw6lkaWF0aXPDqSBxdWUgZCdhdXRyZXMgY2FuZGlkYXRzIGF1IGTDqWJ1dCBkZSBsYSBjYW1wYWduZSwgcG91ciBsJ8OqdHJlIGJlYXVjb3VwIHN1ciBsYSBmaW4uIFNldWxzIDQgY2FuZGlkYXRzIChGLiBGaWxsb24sIEUuIE1hY3JvbiwgQi4gSGFtb24gZXQgTS4gTGUgUGVuKSBhcHBhcmFpc3NlbnQgcGx1cyBkZSAxMDAgZm9pcyDDoCBsYSB0w6lsw6l2aXNpb24gcGVuZGFudCBsYSBjYW1wYWduZSBwcsOpc2lkZW50aWVsbGUgZGUgZsOpdnJpZXIgw6AgYXZyaWwgMjAxNy4gUG91ciBjb21wYXJhaXNvbiwgRi4gRmlsbG9uIGFwcGFyYcOudCAxNjQgZm9pcyB0YW5kaXMgcXVlIEouTC4gTcOpbGVuY2hvbiBzZXVsZW1lbnQgNzIgZm9pcyAoc291cmNlOiBJTkEpLg0KDQoNCg0KIyMgTEFTU08gcsOpZ3Jlc3Npb24gc3VyIGxlIGRhdGFzZXQgSVBTT1MNCg0KTm91cyBhbGxvbnMgbWFpbnRlbmFudCBhbmFseXNlciBjZXMgZG9ubsOpZXMgcG91ciBkw6l0ZXJtaW5lciBzaSBub3VzIHBvdXZvbnMgdHJvdXZlciBkZXMgbGllbnMgZW50cmUgbGEgcG9wdWxhcml0w6kgZGVzIGNhbmRpZGF0cyBldCBsYSBtw6lkaWF0aXNhdGlvbiBkZSBjZXJ0YWlucyBzdWpldHMgw6AgbGEgdMOpbMOpdmlzaW9uIGZyYW7Dp2Fpc2UuIE5vdXMgdm91bG9ucyBzYXZvaXIgcydpbCBlc3QgcG9zc2libGUgZGUgZMOpdGVybWluZXIgdW4gbGllbiBlbnRyZSBsYSBtw6lkaWF0aXNhdGlvbiBkZSBjZXJ0YWlucyBzdWpldHMgZXQgbGEgcG9wdWxhcml0w6kgZGVzIGNhbmRpZGF0cy4NCg0KTm91cyBwcmVub25zIGwnZXhhbXBsZSBkZSBKZWFuLUx1Yy1NZWxlbmNob246DQoNCmBgYHtyfQ0KIyBUcmFuc2Zvcm1hdGlvbiBkZXMgZG9ubsOpZXMNCmRhdGEgPSBkYXRhMlstMSxdDQp4ID0gbW9kZWwubWF0cml4KGBKZWFuLUx1Yy1NZWxlbmNob25gfi4sIGRhdGEpWywtMV0NCnkgPSBkYXRhICU+JQ0KICBzZWxlY3QoYEplYW4tTHVjLU1lbGVuY2hvbmApICU+JQ0KICB1bmxpc3QoKSAlPiUNCiAgYXMubnVtZXJpYygpDQoNCiNTw6lwYXJhdGlvbiBkdSBkYXRhc2V0IGVuIHNldCBkJ2VudHJhaW5lbWVudCBldCBkZSB0ZXN0DQpzZXQuc2VlZCgxKQ0KDQp0cmFpbiA9IGRhdGEgJT4lDQogIHNhbXBsZV9mcmFjKDAuNykNCg0KdGVzdCA9IGRhdGEgJT4lDQogIHNldGRpZmYodHJhaW4pDQoNCnhfdHJhaW4gPSBtb2RlbC5tYXRyaXgoYEplYW4tTHVjLU1lbGVuY2hvbmB+LiwgdHJhaW4pWywtMV0NCnhfdGVzdCA9IG1vZGVsLm1hdHJpeChgSmVhbi1MdWMtTWVsZW5jaG9uYH4uLCB0ZXN0KVssLTFdDQoNCnlfdHJhaW4gPSB0cmFpbiAlPiUNCiAgc2VsZWN0KGBKZWFuLUx1Yy1NZWxlbmNob25gKSAlPiUNCiAgdW5saXN0KCkgJT4lDQogIGFzLm51bWVyaWMoKQ0KDQp5X3Rlc3QgPSB0ZXN0ICU+JQ0KICBzZWxlY3QoYEplYW4tTHVjLU1lbGVuY2hvbmApICU+JQ0KICB1bmxpc3QoKSAlPiUNCiAgYXMubnVtZXJpYygpDQoNCiMgRml0IHN1ciBsZSB0cmFpbmluZyBzZXQsIHZhbGlkYXRpb24gc3VyIGxlIHRlc3Qgc2V0DQpncmlkID0gMTBec2VxKDEwLCAtMiwgbGVuZ3RoID0gMTAwKQ0KbGFzc29fbW9kID0gZ2xtbmV0KHhfdHJhaW4sIHlfdHJhaW4sIGFscGhhPTEsIGxhbWJkYSA9IGdyaWQsIHRocmVzaCA9IDFlLTUpDQpsYXNzb19wcmVkID0gcHJlZGljdChsYXNzb19tb2QsIHMgPSA0LCBuZXd4ID0geF90ZXN0KQ0KbWVhbigobGFzc29fcHJlZCAtIHlfdGVzdCleMikNCmBgYA0KDQpOb3VzIHJlbWFycXVvbnMgcXVlIG3Dqm1lIHNpIG5vdXMgc8OpbGVjdGlvbm5vbnMgbGUgbWVpbGxldXIgbGFtYmRhIHBvdXIgbGEgcsOpZ3VsYXJpc2F0aW9uIGwxLCBub3VzIG9idGVub25zIHF1YW5kIG3Dqm1lIHVuZSBlcnJldXIgImltcG9ydGFudGUiIHN1ciBsZSByaXNxdWUgZW1waXJpcXVlLg0KDQpgYGB7cn0NCnBsb3RfZ2xtbmV0KGxhc3NvX21vZCkNCmBgYA0KDQpDZSBwbG90IHBlcm1ldCBkZSByZXRyb3V2ZXIgbCdpbnR1aXRpb24gZGVycmnDqHJlIGxlIExBU1NPLCBzaSBsYW1iZGEgZXN0IGdyYW5kLCBsYSBzb2x1dGlvbiBzZXJhIHRyw6hzIHNwYXJzZSBldCB0b3VzIGxlcyBjb2VmZmljaWVudHMgc2Vyb250IGFtZW7DqXMgw6AgesOpcm8uIFMnaWwgZXN0IHBldGl0IGV0IHByb2NjaGUgZGUgesOpcm8sIGxlIHRlcm1lIMOgIG1pbmltaXNlciBzZXJhIGxlIHRlcm1lIGRlIGZpZMOpbGl0w6kgYXZlYyBsZXMgZG9ubsOpZXMgZXQgb24gc2UgcmFtw6huZSDDoCB1biBwcm9ibMOobWUgZGVzIG1vaW5kcmVzIGNhcnLDqXMgb3JkaW5haXJlcy4gU2kgb24gem9vbWFpdCBzdXIgbGEgem9uZSDDoCBkcm9pdGUsIG9uIHBvdXJyYWl0IG9ic2VydmVyIHVuZSBzb2x1dGlvbiBsaW7DqWFpcmUgcGFyIG1vcmNlYXV4LCBjJ2VzdCBkw7sgw6AgbCdvcMOpcmF0ZXVyIGR1IHNvZnQgdGhyZXNob2xkaW5nLCBxdWkgbWluaW1pc2UgbGUgTEFTU08uDQoNCmBgYHtyfQ0Kc2V0LnNlZWQoMSkNCiMgRml0IGxhc3NvIHJlZ3Jlc3Npb24gbW9kZWwgb24gdHJhaW5pbmcgZGF0YQ0KY3Yub3V0ID0gY3YuZ2xtbmV0KHhfdHJhaW4sIHlfdHJhaW4sIGFscGhhID0gMSkgDQojIFPDqWxlY3Rpb25uZSBsZSBsYW1iZGEgcXVpIG1pbmltaXplIGxhIE1TRSBkJ2VudHJhw65uZW1lbnQNCmJlc3RsYW0gPSBjdi5vdXQkbGFtYmRhLm1pbiAgDQpwbG90KGN2Lm91dCkNCmBgYA0KDQpOb3VzIHBvdXZvbnMgaWNpIHJlbWFycXVlciBxdSdpbCB5IGEgdW4gbGFtYmRhIG9wdGltYWwgcHLDqHMgZGUgMSAoc29uIGxvZyBlc3QgcHJvY2hlIGRlIHrDqXJvKSwgZXQgbGEgTVNFIHJlbW9udGUgYXByw6hzIGwnYXZvaXIgYXR0ZWludC4NCg0KYGBge3J9DQpvdXQgPSBnbG1uZXQoeCwgeSwgYWxwaGEgPSAxLCBsYW1iZGEgPSBncmlkKQ0KbGFzc29fY29lZiA9IHByZWRpY3Qob3V0LCB0eXBlID0gImNvZWZmaWNpZW50cyIsIHMgPSBiZXN0bGFtKQ0KbGFzc29fY29lZltsYXNzb19jb2VmICE9IDBdDQpsYXNzb19jb2VmQERpbW5hbWVzW1sxXV1bd2hpY2gobGFzc29fY29lZiAhPSAwICkgXQ0KYGBgDQoNCk5vdXMgcG91dm9ucyByZXRyb3V2ZXIgaWNpIGxlcyB2YXJpYWJsZXMgcXVlIGxhIHLDqWdyZXNzaW9uIExBU1NPIGEgc8OpbGVjdGlvbm7DqS4gQ29tbWUgYXR0ZW5kdSwgbm91cyByZXRyb3V2b25zIGxhIHBvbGl0aXF1ZSBlbiBGcmFuY2Ugc3VyIGRldXggY2hhw65uZXMsIG1haXMgcmV0cm91dm9ucyDDqWdhbGVtZW50IGRlcyB2YXJpYWJsZXMgcGx1cyBkaXNjdXRhYmxlcyBjb21tZSAiU2NpZW5jZXMgZXQgdGVjaG5pcXVlcyIgc3VyIENhbmFsKy4gTGUgZmFpdCBxdWUgbm91cyBuJ2F5b25zIHF1ZSBwZXUgZGUgZG9ubsOpZXMgcG91ciBsYSByw6lncmVzc2lvbiBub3VzIGFtw6huZSDDoCBuZSBwYXMgcG91dm9pciByw6llbGxlbWVudCBzw6lsZWN0aW9ubmVyIHRvdXRlcyBsZXMgdmFyaWFibGVzLiBVbiBjb21wb3J0ZW1lbnQgw6AgbCfDqWNoZWxsZSBwbHVzIGxvY2FsZSBhdXJhaXQgcHUgw6p0cmUgZMOpc2lyZXV4IChhdmVjIGRlcyBkb25uw6llcyBJTkEgdG91dGVzIGxlcyBzZW1haW5lcyBhdSBsaWV1IGRlIHRvdXMgbGVzIG1vaXMgcGFyIGV4ZW1wbGUpIGFmaW4gZCdhbmFseXNlciBkZXMgc8OpcmllcyB0ZW1wb3JlbGxlcyBkZSBtYW5pw6hyZSBwbHVzIHByw6ljaXNlLg0KDQoNCiMjIFJhbmRvbSBGb3Jlc3RzDQoNCg0KYGBge3IsIG1lc3NhZ2UgPSBGQUxTRX0NCiMgQ2hhcmdlbWVudCBkZXMgcGFja2FnZXMNCm5hbWVzKGRhdGEpIDwtIG1ha2UubmFtZXMobmFtZXMoZGF0YSksdW5pcXVlID0gVFJVRSkNCg0KIyBTw6lwYXJlIGxlIGpldSBkZSBkb25uw6llcyBlbiB0cmFpbmluZyBldCB0ZXN0aW5nIHNldA0Kc2FtcGxlID0gc2FtcGxlLnNwbGl0KGRhdGEkSmVhbi5MdWMuTWVsZW5jaG9uLCBTcGxpdFJhdGlvID0gLjcpDQp0cmFpbiA9IHN1YnNldChkYXRhLCBzYW1wbGUgPT0gVFJVRSkNCnRlc3QgID0gc3Vic2V0KGRhdGEsIHNhbXBsZSA9PSBGQUxTRSkNCmRpbSh0cmFpbikNCmRpbSh0ZXN0KQ0KDQojIENyw6lhdGlvbiBkdSBjbGFzc2lmaWV1ciBwYXIgZm9yw6p0cyBhbMOpYXRvaXJlcw0KcmZfY2xhc3NpZmllciA8LSByYW5kb21Gb3Jlc3QoDQogIEplYW4uTHVjLk1lbGVuY2hvbiB+IC4sDQogIGRhdGE9dHJhaW4sDQogIGltcG9ydGFuY2UgPSBUUlVFDQopDQpyZl9jbGFzc2lmaWVyDQoNCnByZWRpY3Rpb24gPSBwcmVkaWN0KHJmX2NsYXNzaWZpZXIsIG5ld2RhdGE9dGVzdCkNCmNvbmZ1c2lvbl9tYXRyaXggPSB0YWJsZSh0ZXN0JEplYW4uTHVjLk1lbGVuY2hvbiwgcHJlZGljdGlvbikNCmNvbmZ1c2lvbl9tYXRyaXgNCmBgYA0KDQpPbiB2b2l0IHF1ZSBub3VzIHBvdXZvbnMgb2J0ZW5pciBjZXJ0YWluZXMgY29ycsOpbGF0aW9ucywgY2FyIGxlIG5vbWJyZSBkZSBkb25uw6llcyBlc3QgcGx1cyDDqWxldsOpLiBPbiBzZSBwb3NlIGRvbmMgbGEgcXVlc3Rpb246IEVzdCBjZSBxdSdpbCB5IGEgdW5lIGNvcnLDqWxhdGlvbiBlbnRyZSBsYSBwb3B1bGFyaXTDqSBkZXMgY2FuZGlkYXRzIGV0IGxlcyBpbnRlbnRpb25zIGRlIHZvdGUgZW52ZXJzIGNlcyBjYW5kaWRhdHMgPyBDZWxhIHBlcm1ldHRyYWl0IGRlIHNlIGJhc2VyIHN1ciBsZXMgZG9ubsOpZXMgcHLDqS3DqWxlY3Rpb25zIHBvdXIgdm9pciBsZXMgc3VqZXRzIHF1aSBvbnQgdW4gbGllbiBhdmVjIGxhIHBvcHVsYXJpdMOpIGR1IGNhbmRpZGF0IHB1aXMgZGUgdm9pciBsJ8Opdm9sdXRpb24gZGUgY2VzIHN1amV0cyBwb3VyIGVzdGltZXIgbGVzIGludGVudGlvbnMgZGUgdm90ZS4gT24gdmEgaWNpIHJlZ2FyZGVyIGxlcyBjb2VmZmljaWVudHMgZGUgY29ycsOpbGF0aW9uIGVudHJlIGNlcyBkZXV4IHZhcmlhYmxlcyBldCB2b2lyIHNpIG9uIHBldXQgZXhwbGlxdWVyIGxlIHZvdGUgcGFyIGxhIHBvcHVsYXJpdMOpLiBPbiDDqXR1ZGllIGljaSBKZWFuLUx1YyBNw6lsZW5jaG9uIGV0IE1hcmluZSBMZSBQZW4gY2FyIGNlIHNvbnQgbGVzIGRldXggY2FuZGlkYXRzIGRvbnQgb24gYSBsZXMgZG9ubsOpZXMgSVBTT1MuIElsIHNlcmFpdCBpbnTDqXJlc3NhbnQgZCfDqXRlbmRyZSBjZXR0ZSBhbmFseXNlIGF1eCBhdXRyZXMgY2FuZGlkYXRzLg0KDQpQb3VyIE1hcmluZSBMZSBQZW46DQoNCg0KDQoNCg0KYGBge3J9DQpJUFNPU19EQVRBPW1lcmdlKElQU09TLHBvbGxzTW9udGgsYnkueD0nRGF0ZScsYnkueT0nZmllbGR3b3JrRGF0ZScpDQoNCiMgRXhwbGljYXRpb24gZGUgbGEgY29ycsOpbGF0aW9uDQpwcmludChjb3IoSVBTT1NfREFUQSRgTGUgUGVuRk5gLElQU09TX0RBVEEkYE1hcmluZSBMZSBQZW5gKSkNCmBgYA0KDQoNCmBgYHtyfQ0KbG0yIDwtIGxtKGBMZSBQZW5GTmB+YE1hcmluZSBMZSBQZW5gLCBkYXRhID0gSVBTT1NfREFUQSkNCg0KY29sb3JzIDwtIGMoImRhdGEiID0gImNvcm5mbG93ZXJibHVlIiwgImZpdCIgPSAiYnJvd24yIikNCg0KcCA8LSBnZ3Bsb3QoZGF0YSA9IE5VTEwsIGFlcyh4ID0gSVBTT1NfREFUQSRgTWFyaW5lIExlIFBlbmApKSArDQogIGdlb21fcG9pbnQoYWVzKHkgPSBJUFNPU19EQVRBJGBMZSBQZW5GTmAsIGNvbG9yID0gImRhdGEiKSkgKw0KICBnZW9tX2xpbmUoYWVzKHkgPSBsbTIkZml0dGVkLnZhbHVlcywgY29sb3IgPSAiZml0IikpICsNCiAgbGFicyh4ID0gJ1BvcHVsYXJpdMOpIGRlIE1hcmluZSBMZSBQZW4nLA0KICAgICAgIHkgPSAnSW50ZW50aW9ucyBkZSB2b3RlcyBwb3VyIE1hcmluZSBMZSBQZW4nLCANCiAgICAgICBjb2xvciA9ICJDYW5kaWRhdCIpICsNCiAgZ2d0aXRsZSgiRml0IGRlcyByYW5kb20gZm9yZXN0cyBzdXIgbGEgcG9wdWxhcml0w6kgZGUgTWFyaW5lIExlIFBlbiIpICsNCiAgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gImJvdHRvbSIpICsNCiAgc2NhbGVfY29sb3JfbWFudWFsKHZhbHVlcyA9IGNvbG9ycykNCiAgDQpwDQpgYGANCg0KT24gcGV1dCB2b2lyIHF1ZSBwb3VyIE1hcmluZSBMZSBQZW4sIGxlIGNvZWZmaWNpZW50IGRlIGNvcnLDqWxhdGlvbiBlc3QgdHLDqHMgZmFpYmxlOiAwLjA1NzY3NTc5LiBJbCBuJ3kgYSBxdWUgcGV1IGRlIGxpZW4gZW50cmUgc2EgcG9wdWxhcml0w6kgZXQgbGVzIGludGVudGlvbnMgZGUgdm90ZS4gQ2UgcGV1dCDDqnRyZSBkdSBhdSBmYWl0IHF1J2VsbGUgcGV1dCBtb2JpbGlzZXIgY29udHJlIGVsbGUgKGVmZmV0IHJlcG91c3NvaXIpOiBzaSBzYSBwb3B1bGFyaXTDqSBhdWdtZW50ZSwgZGVzIMOpbGVjdGV1cnMgcGVuc2FudCBxdSdlbGxlIGEgdW5lIGNoYW5jZSBkZSBnYWduZXIsIHZvbnQgY2hvaXNpciBkZSB2b3RlciBwb3VyIHVuIGF1dHJlIGNhbmRpZGF0IGV0IGRvbmMgbcOpY2FuaXF1ZW1lbnQgZmFpcmUgYmFpc3NlciBzb24gc2NvcmUuIENlIHBldXQgw6p0cmUgYXVzc2kgZMO7IGF1eCByZWRyZXNzZW1lbnRzIHBhcnRpY3VsaWVycyBhdSB2b3RlIEZOIGVmZmVjdHXDqSBwYXIgbGVzIGluc3RpdHV0cyBkZSBzb25kYWdlICh2b2lyIGNldCBhcnRpY2xlIGR1IE1vbmRlOiBodHRwczovL3d3dy5sZW1vbmRlLmZyL3BvbGl0aXF1ZS9hcnRpY2xlLzIwMTEvMDMvMDcvbWFyaW5lLWxlLXBlbi1sZXMtc29uZGV1cnMtb250LWlscy1sZXMtYm9ubmVzLW1ldGhvZGVzLWQtZXZhbHVhdGlvbl8xNDg3OTcyXzgyMzQ0OC5odG1sKS4gRW5maW4sIGNlIHBldXQgw6lnYWxlbWVudCDDqnRyZSB0b3V0IHNpbXBsZW1lbnQgZMO7IGF1IGZhaXQgcXVlIHNhIHBvcHVsYXJpdMOpIGV0IHNlcyBpbnRlbnRpb25zIGRlIHZvdGUgc29udCByZXN0w6lzIHJlbGF0aXZlbWVudCBzdGFibGUgZXQgY29tcGxpcXVlIGxlIGZhaXQgZGUgdm91bG9pciB0cm91dmVyIHVuZSB0ZW5kYW5jZS4NCg0KUG91ciBKZWFuLUx1YyBNZWxlbmNob246DQoNCmBgYHtyfQ0KIyBFeHBsaWNhdGlvbiBkZSBsYSBjb3Jyw6lsYXRpb24NCnByaW50KGNvcihJUFNPU19EQVRBJGBKZWFuLUx1Yy1NZWxlbmNob25gLElQU09TX0RBVEEkTcOpbGVuY2hvbkZJKSkNCmBgYA0KDQrDgCBsJ2ludmVyc2UsIGlsIHkgYSB1biBiaWVuIG1laWxsZXVyIGNvZWZmaWNpZW50IGRlIGNvcnLDqWxhdGlvbiAoMC43ODcwMjU3KSwgcG91ciBKZWFuLUx1YyBNw6lsZW5jaG9uLiANCg0KYGBge3J9DQpsbTMgPC0gbG0oYE3DqWxlbmNob25GSWB+YEplYW4tTHVjLU1lbGVuY2hvbmAsIGRhdGEgPSBJUFNPU19EQVRBKQ0KDQpjb2xvcnMgPC0gYygiZGF0YSIgPSAiY29ybmZsb3dlcmJsdWUiLCAiZml0IiA9ICJicm93bjIiKQ0KDQpwIDwtIGdncGxvdChkYXRhID0gTlVMTCwgYWVzKHggPSBJUFNPU19EQVRBJGBKZWFuLUx1Yy1NZWxlbmNob25gKSkgKw0KICBnZW9tX3BvaW50KGFlcyh5ID0gSVBTT1NfREFUQSRgTcOpbGVuY2hvbkZJYCwgY29sb3IgPSAiZGF0YSIpKSArDQogIGdlb21fbGluZShhZXMoeSA9IGxtMyRmaXR0ZWQudmFsdWVzLCBjb2xvciA9ICJmaXQiKSkgKw0KICBsYWJzKHggPSAnUG9wdWxhcml0w6kgZGUgSmVhbi1MdWMgTcOpbGVuY2hvbicsDQogICAgICAgeSA9ICdJbnRlbnRpb25zIGRlIHZvdGVzIHBvdXIgSmVhbi1MdWMgTcOpbGVuY2hvbicsIA0KICAgICAgIGNvbG9yID0gIkNhbmRpZGF0IikgKw0KICBnZ3RpdGxlKCJGaXQgZGVzIHJhbmRvbSBmb3Jlc3RzIHN1ciBsYSBwb3B1bGFyaXTDqSBkZSBKZWFuLUx1YyBNw6lsZW5jaG9uIikgKw0KICB0aGVtZShsZWdlbmQucG9zaXRpb24gPSAiYm90dG9tIikgKw0KICBzY2FsZV9jb2xvcl9tYW51YWwodmFsdWVzID0gY29sb3JzKQ0KICANCnANCmBgYA0KDQoNCk9uIHZvaXQgZW4gcmVnYXJkYW50IHN1ciBjZSBncmFwaGlxdWUgcXVlIGMnZXN0IGVuIHBhcnRpZSBkw7sgw6AgdW5lIHRyw6hzIGJvbm5lIHBvcHVsYXJpdMOpICg1NiUpIGNvbmNvbWl0YW50ZSBhdmVjIHVuZSBhdWdtZW50YXRpb24gZGUgc2VzIGludGVudGlvbnMgZGUgdm90ZSwganVzdGUgYXZhbnQgbCfDqWxlY3Rpb24gKEF2cmlsIDIwMTcpLg0KDQojIyBDb25jbHVzaW9uDQoNClF1ZWxxdWVzIHBvaW50cyBhdXF1ZWxzIG5vdXMgYXZvbnMgYWJvdXRpIGF1IGNvdXJzIGRlIG5vdHJlIHRyYXZhaWw6DQotIElsIHkgYSBwZXUgZGUgZG9ubsOpZXMgc3VyIGNlIHN1amV0IGV0IGNlcyBkb25uw6llcyBzb250IGVuIGfDqW7DqXJhbCBwZXUgcHLDqWNpc2VzIChsJ2luY2VydGl0dWRlcyBkZXMgc29uZGFnZXMgZXN0IGRlIGwnb3JkcmUgZGUgcXVlbHF1ZXMgcG91cmNlbnRzLCBjZSBxdWkgZXN0IHNvdXZlbnQgcGx1cyBpbXBvcnRhbnQgcXVlIGxlcyBpbmNlcnRpdHVkZXMpLiBDZWxhIGEgZG9uYyByZXN0cmVpbnQgbGVzIHBvc3NpYmlsaXTDqXMgZXQgbm91cyBhIGNvbnRyYWludCDDoCBjb25zaWTDqXJlciBkZXMgY2FzIHBhcnRpY3VsaWVycy4NCi0gTGEgYmFzZSBkZSBkb25uw6llcyBkZXMgQWN0dXMgZHUgam91cm5hbCBUViBlc3QgdHLDqHMgaW50w6lyZXNzYW50ZSBldCBwZXJtZXQgZGUgdm9pciBkZXMgY29ycsOpbGF0aW9ucyBlbnRyZSBjZSBxdWUgdHJhaXRlbnQgbGVzIGRpZmbDqXJlbnRzIGpvdXJuYXV4IFRWIGV0IGRlcyBkaWZmw6lyZW5jZXMgZW50cmUgbGVzIGRpZmbDqXJlbnRlcyBjaGHDrm5lcy4NCi0gSWwgZXN0IHBvc3NpYmxlIGRlIHJlbGV2ZXIgY2VydGFpbmVzIGNvcnLDqWxhdGlvbnMgcG91ciBsYSBwb3B1bGFyaXTDqSAoZG9ubsOpZXMgSVBTT1MpLg0KLSBMYSBwb3B1bGFyaXTDqSBuJ2VzdCBwYXMgZm9yY8OpbWVudCBjb3JyZWzDqWUgYXZlYyBsZXMgaW50ZW50aW9ucyBkZSB2b3RlIChwYXIgZXhlbXBsZSBkYW5zIGxlIGNhcyBkZSBNYXJpbmUgTGUgUGVuKS4NCg0KUG91cnN1aXRlcyDDqXZlbnR1ZWxsZXM6DQotIElsIHBvdXJyYWl0IMOqdHJlIGludMOpcmVzc2FudCBkZSBtZW5lciB1biB0cmF2YWlsIGNvbXBsw6ltZW50YWlyZSBlbiBjb21wYXJhbnQgbGEgcG9wdWxhcml0w6kgZXQgbGVzIGludGVudGlvbnMgZGUgdm90ZS4gQ2VsYSBwb3VycmFpdCBwZXJtZXR0cmUgZGUgdm9pciBzaSBkZXMgY2FuZGlkYXRzIHNvbnQgcG9wdWxhaXJlcyBtYWlzIG4nYXJyaXZlbnQgcGFzIMOgIHJhc3NlbWJsZXIgbGV1ciBjYW1wLiBPbiBwZXV0IHBlbnNlciDDoCBCZW5vw650IEhhbW9uIHF1aSDDqXRhaXQgc2FucyBkb3V0ZSBkYW5zIGNlIGNhcy4NCi0gVW5lIGxpbWl0ZSBxdWUgbCdvbiBjb25uYWlzc2FpdCBkw6hzIGxlIGTDqWJ1dCDDqXRhaXQgbGUgZmFpdCBxdSdpbCDDqXRhaXQgaW1wb3NzaWJsZSBkZSBjb25uYcOudHJlIHNpIHVuZSBpbmZvcm1hdGlvbiDDqXRhaXQgcG9zaXRpdmUgb3UgbsOpZ2F0aXZlLiBVbmUgYW3DqWxpb3JhdGlvbiBwb3NzaWJsZSBzZXJhaXQgZGUgY29uc2lkw6lyZXIgZGVzIG9jY3VyZW5jZXMgZGVzIG5vbXMgZGUgY2VydGFpbnMgY2FuZGlkYXRzIGF2ZWMgZGVzIG1vdHMgbcOpbGlvcmF0aWZzL3DDqWpvcmF0aWZzIGRhbnMgY2VzIGpvdXJuYXV4IHBvdXIgw6l0YWJsaXIgdW5lIGNsYXNzaWZpY2F0aW9uIHBsdXMgcHLDqWNpc2UuDQo=