data 파일을 이용해서 워드클라우드를 생성하고 단어 빈도수를 확인하는 작업을 하려고하는데요
파일을 불러올자마자 에러가 발생해서 할 수 있는 방법이 없어 질문드립니다ㅜ
기존 엑셀파일에서 유니코드 텍스트파일로 저장했습니다.
인터넷 찾아보면서 짠 방법은
--------------------------------------------------------------------------------------------------------------------------
install.packages("KoNLP")
install.packages("RColorBrewer")
install.packages("wordcloud")
library(KoNLP)
library(RColorBrewer)
library(wordcloud)
data <- file("D:\data.txt", encoding="UTF-8")<br />
useSejongDic()
mergeUserDic(data.frame(c("추가단어", “추가단어”), c("ncn")))
data.lines <- readLines(data)<br />
data.lines <- gaub("제거단어", "", data.lines)<br />
data.nouns <- sapply(data.lines, extractNoun, USE.NAME=F)<br />
updata = unlist(data.nouns)
data2 = Filter(function(x) (ncgar (x)>=2), undata)
data.wordcount <- table(data2)<br />
write(data.wordcoun),“D:\data2.txt")
revised <- read.table("D:\data2.txt")<br />
nrow(revised)
wordcount <- table(revised) <br />
display.brewer.all()
wordcloud(names(wordcount),freq=wordcount, scale=c(5,1),rot.per=0.25,min.freq=1, random.order=F,random.color=T,colors=pal)
------------------------------------------------------------------------------------------------------------------------
데이터 파일과 함께 첨부합니다 | |
|
등록안내
0
0
뽐뿌는끊어야하는데끊을수가없어
