Analyse du discours d’inauguration Macron
Khayat Rayen
18 mai 2017
1-INTRODUCTION
Les Français ont choisi, vous l’avez rappelé, le 7 mai dernier, l’espoir et l’esprit de conquête. C’est avec cette phrase que Macron le nouveau président français a commencé son discours d’inauguration , une phrase qui m’a donnée l’idée d’analyser le discours d’Emmanuel Macron
2-TRAITEMENT DU DISCOURS
##chargement des packages
library(RColorBrewer) #color pallet
library(tm) #package text mining (tm)## Warning: package 'tm' was built under R version 3.3.3## Loading required package: NLPlibrary(wordcloud) ## Warning: package 'wordcloud' was built under R version 3.3.3library(DT)
##Importation du discours format txt
txt=readLines("text.txt")## Warning in readLines("text.txt"): ligne finale incomplète trouvée dans
## 'text.txt'txt[1:20]## [1] "Mesdames, Messieurs,"
## [2] "Les Français ont choisi, vous l’avez rappelé, le 7 mai dernier, l’espoir et l’esprit de conquête."
## [3] "Le monde entier a regardé notre élection présidentielle. Partout, on se demandait si les Français allaient décider à leur tour de se replier sur le passé illusoire, s’ils allaient rompre avec la marche du monde, quitter la scène de l’Histoire, céder à la défiance démocratique, l’esprit de division et tourner le dos aux Lumières, ou si au contraire ils allaient embrasser l’avenir, se donner collectivement un nouvel élan, réaffirmer leur foi dans les valeurs qui ont fait d’eux un grand peuple."
## [4] "Le 7 mai, les Français ont choisi. Qu’ils en soient ici remerciés."
## [5] "La responsabilité qu’ils m’ont confiée est un honneur, dont je mesure la gravité."
## [6] ""
## [7] "Le monde et l’Europe ont aujourd’hui, plus que jamais, besoin de la France. Ils ont besoin d’une France forte et sûre de son destin. Ils ont besoin d’une France qui porte haut la voix de la liberté et de la solidarité. Ils ont besoin d’une France qui sache inventer l’avenir."
## [8] "Le monde a besoin de ce que les Françaises et les Français lui ont toujours enseigné : l’audace de la liberté, l’exigence de l’égalité, la volonté de la fraternité."
## [9] "Or, depuis des décennies, la France doute d’elle-même. Elle se sent menacée dans sa culture, dans son modèle social, dans ses croyances profondes. Elle doute de ce qui l’a faite."
## [10] "Voilà pourquoi mon mandat sera guidé par deux exigences."
## [11] "La première sera de rendre aux Français cette confiance en eux, depuis trop longtemps affaiblie. Je vous rassure, je n’ai pas pensé une seule seconde qu’elle se restaurerait comme par magie le soir du 7 mai. Ce sera un travail lent, exigeant, mais indispensable."
## [12] "Il m’appartiendra de convaincre les Françaises et les Français que notre pays, qui aujourd’hui semble mis à mal par les vents parfois contraires du cours du monde, porte en son sein toutes les ressources pour figurer au premier rang des nations."
## [13] "Je convaincrai nos compatriotes que la puissance de la France n’est pas déclinante, mais que nous sommes à l’orée d’une extraordinaire renaissance, parce que nous tenons entre nos mains tous les atouts qui feront et qui font les grandes puissances du XXI? siècle."
## [14] "Pour cela, je ne céderai sur rien des engagements pris vis-à -vis des Français. Tout ce qui concourt à la vigueur de la France et à sa prospérité sera mis en œuvre : le travail sera libéré, les entreprises seront soutenues, l’initiative sera encouragée."
## [15] "La culture et l’éducation, par lesquelles se construit l’émancipation, la création et l’innovation seront au cœur de mon action."
## [16] "Les Françaises et les Français qui se sentent oubliés par ce vaste mouvement du monde devront se voir mieux protégés. Tout ce qui forge notre solidarité nationale sera refondé, réinventé, fortifié. L’égalité face aux accidents de la vie sera renforcée."
## [17] "Tout ce qui fait de la France un pays sûr, où l’on peut vivre sans avoir peur, sera amplifié. La laïcité républicaine sera défendue, nos forces de l’ordre, notre renseignement, nos armées, réconfortés."
## [18] "L’Europe, dont nous avons besoin, sera refondée, relancée, car elle nous protège et nous permet de porter dans le monde nos valeurs."
## [19] "Nos institutions, décriées par certains, doivent retrouver aux yeux des Français l’efficacité qui en a garanti la pérennité. Car je crois aux institutions de la V? République et ferai tout ce qui est en mon pouvoir pour qu’elles fonctionnent selon l’esprit qui les a fait naître. Pour cela, je veillerai à ce que notre pays connaisse un regain de vitalité démocratique. Les citoyens auront voix au chapitre. Ils seront écoutés."
## [20] "Dans ce combat, j’aurai besoin de chacun. La responsabilité de toutes les élites - politiques, économiques, sociales, religieuses - de tous les corps constitués de la Nation française, sera appelée. Nous ne pouvons plus nous réfugier derrière des usages ou des habitudes parfois hors du temps. Nous devons retrouver le sens profond, la dignité de ce qui aujourd’hui nous rassemble : agir de manière juste et efficace pour notre peuple."#Suppression des stopwords
txt<-removeWords(txt,stopwords("en"))
#Suppression de la ponctuation
txt<-removePunctuation(txt)
#Suppression des espaces
txt<-txt[-which(txt=="")]
#Transformer tout en miniscule
for (i in 1:length(txt)) txt[i]<-tolower(txt[i])
#Choisir les mots Ă supprimer du discours
txt<-removeWords(txt,c("le","la","les","nous","qui","est","que","dans","un","une","ils","aux","par","nous","qui","pour","que","aux","plus","nos","elle","tout","ont","sur","des","notre","sera","tous","son","mais","car","rien","leur","mon","cette"))3- ANALYSE DU DISCOURS
##Corpus c'est la transformation du texte en vecteur
doc<-Corpus(VectorSource(txt))
#Construction de la matrice des mots
(tdm<-TermDocumentMatrix(doc))## <<TermDocumentMatrix (terms: 505, documents: 40)>>
## Non-/sparse entries: 709/19491
## Sparsity : 96%
## Maximal term length: 15
## Weighting : term frequency (tf)##Faire la trie sur les lignes
m <- as.matrix(tdm)
v <- sort(rowSums(m),decreasing=TRUE)
##Les mots avec leurs fréqueces
d <- data.frame(word = names(v),freq=v)
datatable(d,class='compact',options = list(
initComplete = JS(
"function(settings, json) {",
"$(this.api().table().header()).css({'background-color': '#000', 'color': '#fff'});",
"}")
))##Création du wordcloud
wordcloud(words = d$word, freq = d$freq, min.freq = 1,random.order=FALSE,max.words=200,
rot.per=0.35,colors=brewer.pal(20, "Paired"))## Warning in brewer.pal(20, "Paired"): n too large, allowed maximum for palette Paired is 12
## Returning the palette you asked for with that many colors