Instralling packages: wordcloud, manipulate

install.packages("wordcloud")
install.packages("tm")
install.packages("slam")
install.packages("manipulate")

Sample Text

sample_text

[1] "Three Laureates share this year’s Nobel Prize in Physics for their studies of chaotic and apparently random phenomena. Syukuro Manabe and Klaus Hasselmann laid the foundation of our knowledge of the Earth’s climate and how humanity influences it. Giorgio Parisi is rewarded for his revolutionary contributions to the theory of disordered materials and random processes."

Text Pre-processing

(freq_data<-sort(table(words), decreasing=TRUE))

words
          and            of           the                         for        random 
            4             4             3             2             2             2 
            s    apparently       chaotic       climate contributions    disordered 
            2             1             1             1             1             1 
        Earth    foundation       Giorgio    Hasselmann           his           how 
            1             1             1             1             1             1 
     humanity            in    influences            is            it         Klaus 
            1             1             1             1             1             1 
    knowledge          laid     Laureates        Manabe     materials         Nobel 
            1             1             1             1             1             1 
          our        Parisi     phenomena       Physics         Prize     processes 
            1             1             1             1             1             1 
revolutionary      rewarded         share       studies       Syukuro         their 
            1             1             1             1             1             1 
       theory          this         Three            to          year 
            1             1             1             1             1

Visualization 1: barplot

barplot(data_words, las=3)

Visualization 2: wordcloud

Intractive Visualization: barplot

library(manipulate)

manipulate(
  barplot(freq_data, las=3, col=my_col),
  my_col = picker("black", "blue", "green", "yellow","orange", "red")
)
LS0tCnRpdGxlOiAiTGVjMDE6IEludHJvZHVjdGlvbiIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKIyMgSW5zdHJhbGxpbmcgcGFja2FnZXM6IHdvcmRjbG91ZCwgbWFuaXB1bGF0ZQpgYGB7ciwgZXZhbD1GQUxTRX0KaW5zdGFsbC5wYWNrYWdlcygid29yZGNsb3VkIikKaW5zdGFsbC5wYWNrYWdlcygidG0iKQppbnN0YWxsLnBhY2thZ2VzKCJzbGFtIikKaW5zdGFsbC5wYWNrYWdlcygibWFuaXB1bGF0ZSIpCmBgYAoKIyMgU2FtcGxlIFRleHQKYGBge3J9CnNhbXBsZV90ZXh0IDwtICJUaHJlZSBMYXVyZWF0ZXMgc2hhcmUgdGhpcyB5ZWFy4oCZcyBOb2JlbCBQcml6ZSBpbiBQaHlzaWNzIGZvciB0aGVpciBzdHVkaWVzIG9mIGNoYW90aWMgYW5kIGFwcGFyZW50bHkgcmFuZG9tIHBoZW5vbWVuYS4gU3l1a3VybyBNYW5hYmUgYW5kIEtsYXVzIEhhc3NlbG1hbm4gbGFpZCB0aGUgZm91bmRhdGlvbiBvZiBvdXIga25vd2xlZGdlIG9mIHRoZSBFYXJ0aOKAmXMgY2xpbWF0ZSBhbmQgaG93IGh1bWFuaXR5IGluZmx1ZW5jZXMgaXQuIEdpb3JnaW8gUGFyaXNpIGlzIHJld2FyZGVkIGZvciBoaXMgcmV2b2x1dGlvbmFyeSBjb250cmlidXRpb25zIHRvIHRoZSB0aGVvcnkgb2YgZGlzb3JkZXJlZCBtYXRlcmlhbHMgYW5kIHJhbmRvbSBwcm9jZXNzZXMuIgpzYW1wbGVfdGV4dApgYGAKCiMjIFRleHQgUHJlLXByb2Nlc3NpbmcgCmBgYHtyfQp3b3JkcyA8LSB1bmxpc3Qoc3Ryc3BsaXQoc2FtcGxlX3RleHQsICJbWzpzcGFjZTpdXXxbWzpwdW5jdDpdXSIpKQooZnJlcV9kYXRhPC1zb3J0KHRhYmxlKHdvcmRzKSwgZGVjcmVhc2luZz1UUlVFKSkKYGBgCiMjIFZpc3VhbGl6YXRpb24gMTogYmFycGxvdApgYGB7cn0KYmFycGxvdChmcmVxX2RhdGEsIGxhcz0zKQpgYGAKCiMjIFZpc3VhbGl6YXRpb24gMjogd29yZGNsb3VkCmBgYHtyfQpsaWJyYXJ5KHdvcmRjbG91ZCkKd29yZGNsb3VkKHJvd25hbWVzKGZyZXFfZGF0YSksZnJlcV9kYXRhLG1pbi5mcmVxPTEsY29sb3JzPXJhaW5ib3coMTApKQpgYGAKCiMjIEludHJhY3RpdmUgVmlzdWFsaXphdGlvbjogYmFycGxvdApgYGB7ciwgZXZhbD1GQUxTRX0KbGlicmFyeShtYW5pcHVsYXRlKQoKbWFuaXB1bGF0ZSgKICBiYXJwbG90KGZyZXFfZGF0YSwgbGFzPTMsIGNvbD1teV9jb2wpLAogIG15X2NvbCA9IHBpY2tlcigiYmxhY2siLCAiYmx1ZSIsICJncmVlbiIsICJ5ZWxsb3ciLCJvcmFuZ2UiLCAicmVkIikKKQpgYGAK