More than 5 years have passed since last update.

wordcloud

Posted at 2017-09-04

require(wordcloud)
w<-RMeCabFreq("ファイル名") # 任意のファイル名を指定
pw<-w[(w$Info1=="名詞"|w$Info1=="感動詞"|w$Info1=="形容詞"|w$Info1=="動詞")&(!w$Info2=="数"&!w$Info2=="接尾"&!w$Info2=="非自立"&!w$Info2=="アルファベット"&!w$Info2=="ナイ形容詞語幹"&!w$Term=="Twitter"&!w$Term=="RT"&!w$Term=="TL"&!w$Term=="あ"),]

pw<-head(pw[order(pw$Freq,decreasing=T),],n=100) # 条件は任意で変更してください
mycolor<-brewer.pal(8,"Dark2")
wordcloud(pw$Term,pw$Freq,scale=c(6,1.5),random.order=T,random.color=T,colors=mycolor)

You get articles that match your needs
You can efficiently read back useful information
You can use dark theme

What you can do with signing up