• 목록
• 글쓰기
• 게시판 리스트 옵션
  • 수정
  • 삭제

0. 워드클라우드 워드 클라우드 그리기​지난 시간에 RmecabKo를 설치하였습니다. 이번에는 이를 기반으로 워드클라우드를 그리는 작업을 해보도록 하겠습니다. 워드 클라우드는 특정 텍스트에서, 단어의 출연빈도를 통해, 글의 전체적인 특징을 파악하는 시각화 기법입니다. ​1. 준비물​(1) 연설문 가져오기​보통 이런 예시를 보일 워드클라우드 때 대통령 연설문들을 많이 이용해서 본 포스트에서는 올해 3.1절 기념사를 대상으로 하였습니다. 아래 링크는 기념사 전문입니다. ​​제100주년 3.1절 기념식 기념사www1.president.go.kr이 기념사를 메모장에 복사해 붙혀넣고, speech.txt라고 저장을 합니다. 아래 파일을 다운로드 받아서 처리하셔도 무방합니다. (2) 워드클라우드 워드클라우드를 그리기 위한 라이브러리 설치​아래와 같이 워드클라우드를 설치합니다. wordcloud를 설치하면, Rcolorbrew가 자동으로 설치 됩니다. wordcloud 라이브러리는 워드클라우드를 그릴 때 사용되는 라이브러리 이며, Rcolorbrew는 컬러링을 할 때 쓰는 라이브러리입니다. ​​2. 워드클라우드 그리기​우선 아래와 같이 라이브러리 워드클라우드 3가지를 모두 로드합니다. ​library(wordcloud)library(RColorBrewer)library(RmecabKo)​그리고, 아래의 코드를 이용해, speech.txt를 읽으면, ​setwd(C:/Users/Desktop)speech <-scan(speech.txt, what =)​텍스트파일을 문자열로 읽어드릴 수 있습니다. 이때 setwd는 speech.txt가 존재하는 디렉토리 위치를 지정해 주면 됩니다. 이제 문자열이 준비되었으니 RemcabKo를 이용해서, 명사만을 추출해 보도록하겠습니다. 워드클라우드 ​word <- nouns(speech) 추출된 word를 기반으로 단어 빈도가 존재하는 빈도 테이블 fre를 아래와 같이 만들어 줌니다. ​fre<-table(unlist(word))​이제 컬러를 지정해주는 Rcolorbrewer를 이용하면, color <- brewer.pal(12, Set3) 워드 클라우드를 작성하기 위한 준비는 끝입니다. 마지막으로 워드 클라우드를 워드클라우드 그려줌니다. ​wordcloud(names(fre), as.vector(fre),colors Ϝolor)​의, 것, 년과 같이 불필요한 명사가 존재해 조금은 어색하지만, 이러한 불용어를 제거하는 코드를 넣어주면, 일반적으로 사용하는 워드클라우드를 작성할 수 있습니다. 3. 전체 코드 ​library(wordcloud)library(RColorBrewer)library(RmecabKo)setwd(C:/Users/Desktop)speech <-scan(speech.txt, what =)word <- nouns(speech)fre<-table(unlist(word))as.vector(fre)color <- brewer.pal(12, 워드클라우드 Set3)​wordcloud(names(fre), as.vector(fre),colors Ϝolor)​아주 간단하게 R을 이용해 워드클라우드를 그릴 수 있습니다. 다량의 워드클라우드를 반복문을 이용해 출력할 수도 있게죠? ​4. 맺음말​이번 포스트에서는 아주 간단하게 워드 클라우드를 작성하는 방법을 배워봤습니다. 이번 실습을 통해서, 조금은 R을 공부하는데 흥미를 워드클라우드 가질 수 있게 되었으면 좋겠습니다. R은 매우 많은 응용분야게 있으므로 차근차근 공부하다보면, 많은 부분에서 활용이 가능하실 것입니다. 계속해서 많은 관심 부탁드립니다. 그럼 오늘도 즐거운 하루 되시고, 다음 포스트에서 다시 뵙겠습니다.