Рождественская речь королевы Великобритании Елизаветы II, 2015 год

http://www.royal.gov.uk/ImagesandBroadcasts/TheQueensChristmasBroadcasts/ChristmasBroadcasts/ChristmasBroadcast2015.aspx

library(tm)
## Loading required package: NLP
library(wordcloud)
## Loading required package: RColorBrewer
setwd("~/Документы/RAW DATA/Новогодние поздравления 2015. Облако тегов")
England <- readLines("England.txt")
England <- Corpus(VectorSource(England))
England <- tm_map(England, PlainTextDocument)
England <- tm_map(England, removePunctuation)
England <- tm_map(England, removeWords, c(stopwords("english")))
wordcloud(England, max.words = 50, random.order = FALSE)

Еженедельное обращение: поздравление с Рождеством от президента США Барака Обамы и Первой леди Мишель Обамы, 2015 год

https://www.whitehouse.gov/the-press-office/2015/12/25/weekly-address-merry-christmas-president-and-first-lady

setwd("~/Документы/RAW DATA/Новогодние поздравления 2015. Облако тегов")
Obama <- readLines("Obama.txt")
Obama <- Corpus(VectorSource(Obama))
Obama <- tm_map(Obama, PlainTextDocument)
Obama <- tm_map(Obama, removePunctuation)
Obama <- tm_map(Obama, removeWords, c(stopwords("english")))
wordcloud(Obama, max.words = 50, random.order = FALSE)

Новогодняя речь председателя КНР Си Цзиньпина, 2015 год

http://www.cntv.ru/2015/12/31/VIDE1451560809739371.shtml

setwd("~/Документы/RAW DATA/Новогодние поздравления 2015. Облако тегов")
China <- readLines("China.txt")
China <- Corpus(VectorSource(China))
China <- tm_map(China, PlainTextDocument)
China <- tm_map(China, removePunctuation)
China <- tm_map(China, removeWords, c(stopwords("russian")))
wordcloud(China, max.words = 50, random.order = FALSE)
## Warning in wordcloud(China, max.words = 50, random.order = FALSE):
## соотечественников could not be fit on page. It will not be plotted.
## Warning in wordcloud(China, max.words = 50, random.order = FALSE): общества
## could not be fit on page. It will not be plotted.
## Warning in wordcloud(China, max.words = 50, random.order = FALSE):
## сообщество could not be fit on page. It will not be plotted.
## Warning in wordcloud(China, max.words = 50, random.order = FALSE):
## среднезажиточного could not be fit on page. It will not be plotted.
## Warning in wordcloud(China, max.words = 50, random.order = FALSE): товарищи
## could not be fit on page. It will not be plotted.

Новогоднее поздравление советскому народу генерального секретаря ЦК КПСС Леонида Брежнего, 1970 год

http://brezhnev.su/3/

setwd("~/Документы/RAW DATA/Новогодние поздравления 2015. Облако тегов")
Breznev <- readLines("Breznev.txt")
Breznev <- Corpus(VectorSource(Breznev))
Breznev <- tm_map(Breznev, PlainTextDocument)
Breznev <- tm_map(Breznev, removePunctuation)
Breznev <- tm_map(Breznev, removeWords, c(stopwords("russian")))
wordcloud(Breznev, max.words = 50, random.order = FALSE)

Новогоднее обращение от президента Беларуси Александра Лукашенко, 2015 год

http://president.gov.by/ru/news_ru/view/novogodnee-obraschenie-prezidenta-respubliki-belarus-aglukashenko-k-belorusskomu-narodu-12840/

setwd("~/Документы/RAW DATA/Новогодние поздравления 2015. Облако тегов")
Lukash <- readLines("Lukash.txt")
Lukash <- Corpus(VectorSource(Lukash))
Lukash <- tm_map(Lukash, PlainTextDocument)
Lukash <- tm_map(Lukash, removePunctuation)
Lukash <- tm_map(Lukash, removeWords, c(stopwords("russian")))
wordcloud(Lukash, max.words = 50, random.order = FALSE)

Новогоднее обращение президента России Владимира Путина, 2015 год

http://kremlin.ru/events/president/news/51128

setwd("~/Документы/RAW DATA/Новогодние поздравления 2015. Облако тегов")
Putin <- readLines("Putin.txt")
Putin <- Corpus(VectorSource(Putin))
Putin <- tm_map(Putin, PlainTextDocument)
Putin <- tm_map(Putin, removePunctuation)
Putin <- tm_map(Putin, removeWords, c(stopwords("russian")))
wordcloud(Putin, max.words = 50, random.order = FALSE)