> library(wordcloud)
> library(RColorBrewer)
reason.csv 파일
REASON_CD |
REASON_NM |
COUNT |
01 |
사유1 |
245 |
02 |
사유2 |
55 |
03 |
사유3 |
3 |
> reason = read.csv("D:/Users/user/Desktop/reason.csv")
> head(reason)
> reason <- subset(reason, select = -REASON_CD)
> head(reason)
> wordcloud(reason$REASON_NM, reason$COUNT,random.order=FALSE)
--참고
wordcloud(reason$REASON_NM, reason$COUNT,scale = c(4,1),colors = brewer.pal(9,"Reds"),rot.per = 0)
wordcloud(reason$REASON_NM, reason$COUNT,colors = brewer.pal(9,"Reds"),random.order=FALSE)