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)
------------------------------------------------------------------------------------------------------------------------
µ¥ÀÌÅÍ ÆÄÀÏ°ú ÇÔ²² ÷ºÎÇÕ´Ï´Ù | |
|