Lec01: Introduction

Instralling packages: wordcloud, manipulate

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

Sample Text

sample_text <- "Three physicists whose works each showed that nature is even weirder than Einstein had dared to imagine have been named winners of the 2022 Nobel Prize in Physics.
John Clauser, of J.F. Clauser and Associates in Walnut Creek, Calif.; Alain Aspect of the Institut d’Optique in Palaiseau, France; and Anton Zeilinger of the University of Vienna in Austria, will split a prize of 10 million Swedish kronor."
sample_text

[1] "Three physicists whose works each showed that nature is even weirder than Einstein had dared to imagine have been named winners of the 2022 Nobel Prize in Physics.\nJohn Clauser, of J.F. Clauser and Associates in Walnut Creek, Calif.; Alain Aspect of the Institut d’Optique in Palaiseau, France; and Anton Zeilinger of the University of Vienna in Austria, will split a prize of 10 million Swedish kronor."

Text Pre-processing

words <- unlist(strsplit(sample_text, "[[:space:]]|[[:punct:]]"))
(freq_data<-sort(table(words), decreasing=TRUE))

words
                   of         in        the        and    Clauser         10 
         9          6          4          3          2          2          1 
      2022          a      Alain      Anton     Aspect Associates    Austria 
         1          1          1          1          1          1          1 
      been      Calif      Creek          d      dared       each   Einstein 
         1          1          1          1          1          1          1 
      even          F     France        had       have    imagine   Institut 
         1          1          1          1          1          1          1 
        is          J       John     kronor    million      named     nature 
         1          1          1          1          1          1          1 
     Nobel    Optique  Palaiseau physicists    Physics      prize      Prize 
         1          1          1          1          1          1          1 
    showed      split    Swedish       than       that      Three         to 
         1          1          1          1          1          1          1 
University     Vienna     Walnut    weirder      whose       will    winners 
         1          1          1          1          1          1          1 
     works  Zeilinger 
         1          1 

Visualization 1: barplot

barplot(freq_data, las=3)

Visualization 2: wordcloud

library(wordcloud)

Loading required package: RColorBrewer

wordcloud(rownames(freq_data),freq_data,min.freq=1,colors=rainbow(10))

Intractive Visualization: barplot

library(manipulate)

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