[R] Word Cloud

install.packages("wordcloud")
library(wordcloud)
library(KoNLP)
useNIADic()
news <- readLines("gg.txt")
news
buildDictionary("NIADic","",data.frame("문대통령","ncn"))
noun <- extractNoun(news)
noun
 
#명사만 추출
noun1 <- extractNoun(noun)
print(noun1)
 
#벡터로 변환
noun2 <- unlist(noun1)
print(noun2)
 
#한자리 숫자의 단어 제외
noun3 <- noun2[nchar(noun2) >= 2]
noun3
 
nounCount <- table(noun3)
nounCount
 
nounCount2 <- head(sort(nounCount,decreasing = TRUE),15)
nounCount2
 
install.packages("RColorBrewer")
library(RColorBrewer)
 
palete <- brewer.pal(9,"Set1")
palete
 
wordcloud(names(nounCount2),freq = nounCount2, scale = c(4,1),rot.per = 0.25,min.freq = 2,
          random.order = FALSE,random.color = TRUE,colors = palete)