WordCloud

1 워드클라우드 만들어보기

1.1 필요한 패키지 장착

# 워드클라우드를 만들때 필요한 패키지 목록 
library(KoNLP)

## Warning: package 'KoNLP' was built under R version 3.4.1

## Checking user defined dictionary!

library(stringr)

## Warning: package 'stringr' was built under R version 3.4.1

library(ggiraphExtra)

## Warning: package 'ggiraphExtra' was built under R version 3.4.1

library(tibble)

## Warning: package 'tibble' was built under R version 3.4.3

library(stringi)

## Warning: package 'stringi' was built under R version 3.4.1

library(devtools)

## Warning: package 'devtools' was built under R version 3.4.1

library(dplyr)

## Warning: package 'dplyr' was built under R version 3.4.3

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(RColorBrewer)

## Warning: package 'RColorBrewer' was built under R version 3.4.1

library(wordcloud)

## Warning: package 'wordcloud' was built under R version 3.4.1

useNIADic()

## Backup was just finished!
## 983012 words dictionary was built.

1.2 데이터 불러오기

# 2018년 대통령 신년사 데이터 불러오기
newyear <- readLines("E:/data/president.txt")

## Warning in readLines("E:/data/president.txt"): 'E:/data/president.txt'에서
## 불완전한 마지막 행이 발견되었습니다

# 제대로 읽어왔나 확인
head(newyear)

## [1] "“내 삶이 나아지는 나라” "                                                                                                                                                                                                                                                                                                                                                                             
## [2] ""                                                                                                                                                                                                                                                                                                                                                                                                       
## [3] "존경하는 국민 여러분, 지난 일 년, 저는 평범함이 가장 위대하다는 것을 하루하루 느꼈습니다. 촛불광장에서 저는 군중이 아닌 한 사람 한 사람의 평범한 국민을 보았습니다. 어머니에서 아들로, 아버지에서 딸로 이어지는 역사가 그 어떤 거대한 역사의 흐름보다 중요하다는 것을 깨달았습니다. 한겨울 내내 촛불을 든 후 다시 일상을 충실히 살아가는 평범한 가족들을 보면서 저는 우리의 미래를 낙관할 수 있습니다. "
## [4] ""                                                                                                                                                                                                                                                                                                                                                                                                       
## [5] ""                                                                                                                                                                                                                                                                                                                                                                                                       
## [6] "우리가 민주주의의 역사를 다시 쓸 수 있었던 것은 그렇게 평범한 사람, 평범한 가족의 용기있는 삶이 우리 주변에 항상 존재하고 있었기 때문입니다. 저는 그것이 너무나 자랑스럽습니다. 덕분에 우리는 오늘 희망을 다시 이야기할 수 있게 되었습니다. "

1.3 데이터 전처리 하기

# head(newyear) 했을 때 빈줄이나 공백 제거하기
newyear1 <- ifelse(newyear == "", NA , newyear)
newyear2 <- ifelse(newyear1 == " ", NA , newyear1)
new_year <- na.omit(newyear2)
head(new_year)

## [1] "“내 삶이 나아지는 나라” "                                                                                                                                                                                                                                                                                                                                                                             
## [2] "존경하는 국민 여러분, 지난 일 년, 저는 평범함이 가장 위대하다는 것을 하루하루 느꼈습니다. 촛불광장에서 저는 군중이 아닌 한 사람 한 사람의 평범한 국민을 보았습니다. 어머니에서 아들로, 아버지에서 딸로 이어지는 역사가 그 어떤 거대한 역사의 흐름보다 중요하다는 것을 깨달았습니다. 한겨울 내내 촛불을 든 후 다시 일상을 충실히 살아가는 평범한 가족들을 보면서 저는 우리의 미래를 낙관할 수 있습니다. "
## [3] "우리가 민주주의의 역사를 다시 쓸 수 있었던 것은 그렇게 평범한 사람, 평범한 가족의 용기있는 삶이 우리 주변에 항상 존재하고 있었기 때문입니다. 저는 그것이 너무나 자랑스럽습니다. 덕분에 우리는 오늘 희망을 다시 이야기할 수 있게 되었습니다. "                                                                                                                                                           
## [4] "국민들께서는 자신의 소중한 일상을 국가에 내어주었습니다. 나라를 바로 세울 힘을 주었습니다. 이제 국가는 국민들에게 응답해야 합니다. 더 정의롭고, 더 평화롭고, 더 안전하고, 더 행복한 삶을 약속해야 합니다. 그것이 바로 나라다운 나라입니다. "                                                                                                                                                            
## [5] "2018년 새해, 정부와 저의 목표는 국민들의 평범한 일상을 지키고, 더 나아지게 만드는 것입니다. 국민의 뜻과 요구를 나침반으로 삼겠습니다. 국민들께서 삶의 변화를 체감할 수 있게 하겠습니다."                                                                                                                                                                                                                
## [6] "국민 여러분, 제가 대통령이 되어 가장 먼저 한 일은 집무실에 일자리 상황판을 설치한 것입니다. ‘사람중심 경제’라는 국정철학을 실천하기 위해서였습니다. 일자리는 우리 경제의 근간이자 개개인의 삶의 기반입니다. ‘사람중심 경제’의 핵심에 일자리가 있습니다."

1.4 단어(명사) 추출하기

# 특수문자 제거하기
new_year <- str_replace_all(new_year , "\\W", " ")

nouns <- KoNLP::extractNoun(new_year)

# 위의 결과가 리스트로 나와서 테이블 형태로 변환
wordcount <- table(unlist(nouns))

# 데이터 프레임으로 바꾸고, 변수이름 변환
df.word <- as.data.frame(wordcount, stringsAsFactors = FALSE)

df.word <- rename(df.word, word = Var1,
                           freq = Freq)

word.freq <- df.word %>% filter(nchar(word)>=2) %>% arrange(desc(freq))

# 상위 10개 데이터 보기
head(word.freq, 10)

##        word freq
## 1      국민   56
## 2      정부   26
## 3      우리   20
## 4    일자리   14
## 5      평화   14
## 6      사회   10
## 7      지원   10
## 8    한반도   10
## 9      경제    9
## 10 대한민국    9

1.5 워드클라우드 그리기

# 단어 색 설정하기
pal <- brewer.pal(8, "Dark2")[5:9]

# 난수 설정(안하면 그릴때 마다 바뀜)
set.seed(1004)

# 워드 클라우드 그리기
wordcloud::wordcloud( words = word.freq$word, freq = word.freq$freq,
                      min.freq = 2, max.words = 100,
                      random.order = FALSE, rot.per = 0.1,
                      scale= c(5,0.3),
                      colors = pal)

[참고] : Do it R

[참고] : 문재인대통령 신년사 (인터넷)