Lec08: Shiny

Lecture8: Shiny, WordCloud

shinyライブラリの読み込み

library(shiny)

ファイルからgetWordFreq関数の読み込み

• getWordFreq.R

source("getWordFreq.R")

単語頻度表

wdLst.JT <- getWordFreq("G7/JapanTimes.txt")
head(wdLst.JT)

wordLst
the  in  on  to   a and 
 46  22  20  19  16  14 

RColorBrewer Package

Wordcloudライブラリの読み込み

library(wordcloud)

パレット情報

binfo<-brewer.pal.info[]
head(binfo)

パレットの抽出

palets <-rownames(binfo[binfo$maxcolors>10,])
palets

 [1] "BrBG"     "PiYG"     "PRGn"     "PuOr"     "RdBu"     "RdGy"     "RdYlBu"  
 [8] "RdYlGn"   "Spectral" "Paired"   "Set3"    

using a brewer.palet

brewer.pal

palet_id<-which(palets=="Paired")
max.Index<-20
barplot(wdLst.JT[1:max.Index], las=3,col=brewer.pal(10,palets[palet_id]),ylab="Frequency")

Wordcloud

wordcloud(names(wdLst.JT),wdLst.JT,min.freq=2,colors=brewer.pal(10,palets[palet_id]))

runApp("app_freqBar")