여기에 업로드한 윈도용 형태소 분석기를 다운받아서 아래와 같이 하면 됩니다.
실행파일 "index2018.exe" 를 이용하여 input 파일을 형태소 분석을 하여 output 파일로 저장한 후에
output 파일을 R에서 불러와 wordcloud 생성.
KLT2010-TestVersion-2018.zip
wordcloud.txt
1) index2018.exe 실행 --> 색인어 추출
> system("c:/Temp/KLT2010-TestVersion/EXE/index2018.exe c:/Temp/input.txt")
> system("c:/Temp/KLT2010-TestVersion/EXE/index2018.exe c:/Temp/input.txt c:/Temp/output.txt -Wordcloud")
# 입력 파일 input.txt를 분석하여 출력 파일 output.txt 생성
# 파일 output.txt 이 존재하는 경우에는 윈도 탐색기에서 output.txt를 삭제해야 함!
2) 워드 클라우드 생성
> install.packages("wordcloud") # 패키지 설치 - 1회만!
> library(wordcloud)
> install.packages("RColorBrewer") # 사용할 수 있는 글자 색깔 패키지 설치
> library(RColorBrewer) # 이 패키지는 wordcloud와 함께 설치됨
> pal <- brewer.pal(9, "Set1") # 컬러 인코딩 방식
> n <- 2 # 최저 빈도수 2
> system("rm c:/Temp/output.txt") # 파일 output.txt 삭제
> system("c:/Temp/KLT2010-TestVersion/EXE/index2018.exe c:/Temp/input.txt c:/Temp/output.txt")
> data <- read.table("c:/Temp/output.txt") # 파일 입력
> words <- table(data) # 중복 제거 및 빈도 계산
> wordcloud(names(words), freq=words, scale=c(5,1), rot.per=0.25,
min.freq=n, random.order=F, random.color=T, colors=pal)