r에서 명사 자르기

r에서 명사 자르기

f<-file(“c:/image/tm.txt”)
textLines<-readLines(f)

library(KoNLP)

 ※ 에러날시에는 sys.setenv(JAVA_HOME=”C:/Program Files/java/jre7″)

library(RColorBrewer)

library(wordcloud)

nouns<-sapply(textLines,extractNoun,USE.NAMES=F)

nouns

 

빈도수 세기 (맵리듀스)

wordcount<-table(unlist(nouns))
wordcount

워드클라우드 뿌리기

wordcloud(names(wordcount),freq=wordcount,min.freq=2,rot.per=.1,random.order=F,scale=c(6,0,2),colors=rainbow(15))

min.freq: 빈도 최소값
rot.per: 모양잡기
random.order: 순차적으로 뿌릴거냐
scale=c(큰글자,작은글자): 글자크기. 가장 큰 글자는 10

png로 만들기

png(“c:/image/tm.png”)
wordcloud(names(wordcount),freq=wordcount,min.freq=2,rot.per=.1,random.order=F,scale=c(6,0,2),colors=rainbow(15))

dev.off()

  try{
   RConnection rc=new RConnection();
   rc.voidEval(“sys.setenv(JAVA_HOME=’C:/Program Files/java/jre7′)”);
   rc.voidEval(“library(KoNLP)”);
   rc.voidEval(“library(RColorBrewer)”);
   rc.voidEval(“library(wordcloud)”);
   rc.voidEval(“f<-file(‘C:/Spring/workspace/.metadata/.plugins/org.eclipse.wst.server.core/tmp0/wtpwebapps/SpringFinalProject/data/tm.txt’)”);
   rc.voidEval(“textLines<-readLines(f)”);
   rc.voidEval(“nouns<-sapply(textLines,extractNoun,USE.NAMES=F)”);
   rc.voidEval(“wordcount<-table(unlist(nouns))”);
   rc.voidEval(“png(‘C:/Spring/workspace/.metadata/.plugins/org.eclipse.wst.server.core/tmp0/wtpwebapps/SpringFinalProject/data/tm.png’)”);
   rc.voidEval(“wordcloud(names(wordcount),freq=wordcount,min.freq=2,rot.per=.1,random.order=F,scale=c(6,2),colors=rainbow(15))”);
   rc.voidEval(“dev.off()”);
   rc.close();

  }catch(Exception ex){System.out.println(ex.getMessage());}