Wordcloud
library(KoNLP)
필요한 패키지를 로딩중입니다: rJava
필요한 패키지를 로딩중입니다: stringr
필요한 패키지를 로딩중입니다: hash
hash-2.2.6 provided by Decision Patterns필요한 패키지를 로딩중입니다: tau
필요한 패키지를 로딩중입니다: Sejong
Successfully Loaded Sejong Package.
Checking user defined dictionary!
f <- file(“d:/e-mail-essay.txt”,blocking=F)
> txtLines <- readLines(f)
> nouns <- sapply(txtLines,extractNoun,USE.NAMES=F)
> nounshead(unlist(nouns), 20)
> head(unlist(nouns))
> write(unlist(nouns),”d:/android_dev_diary-1.txt”)
> revised <- read.table(“d:/android_dev_diary-2.txt”)
> nrow(revised)
[1] 6
> wordcount <- table(revised)
> length(wordcount)
[1] 6
> sort(wordcount, decreasing=T)
> sort(wordcount,decreasing=F)>wordcount <- head(sort(wordcount,decreasing=T),15)
>pie(wordcount)
> install.packages(“wordcloud”)
> install.packages(“RColorBrewer”)
> library(wordcloud)
> library(RColorBrewer)
> display.brewer.all()
> pal<-brewer.pal(9,”Set1″)
> wordcloud(names(wordcount),freq=wordcount, scale=c(5,1),rot.per=0.25,min.freq=1, random.order=F,random.color=T,colors=pal)
>savePlot(“d:/result1.png”,type=”png”)
인공지능과 관련된 기사를 wordcloud한 결과입니다.
An inlintegelt point of view, well expressed! Thanks!
Why don’t we give this a try?
Waninhsn was ihr in der kurzen Zeit auf die Beine gestellt habt. Ganz großes Respect! Drück euch ganz fest die Daumen dass es klappt!
Take my word .
It’s always a pleasure to hear from someone with exrietpse.
The youre very professional .
Stands back from the keyboard in ameenmazt! Thanks!
The youre very professional .
A plenaisgly rational answer. Good to hear from you.
What is with that guy?
This was so helpful and easy! Do you have any areitlcs on rehab?
That’s an inventive answer to an inireesttng question
I just want to say I’m new to blogging and site-building and seriously savored this web blog. Most likely I’m going to bookmark your site . You definitely have good article content. Thank you for revealing your blog site.
I simply want to say I am new to blogging and site-building and seriously savored this page. Almost certainly I’m likely to bookmark your website . You actually come with exceptional posts. Thanks a bunch for revealing your blog site.
I simply want to tell you that I am beginner to weblog and truly liked you’re website. Likely I’m likely to bookmark your website . You really have tremendous articles and reviews. Appreciate it for sharing with us your blog site.