ワードクラウドの描画

# パッケージ RMeCab のインストール
install.packages("RMeCab", repos="http://rmecab.jp/R")
# RMeCabの利用
library(RMeCab)


# ■ 度数分布表
a <- RMeCabFreq("XXXXXXXX.txt")
head(a, n=10)


# 品詞が"名詞"、品詞細分類1が"一般"の出現回数上位5個の単語を抽出
odr <- order(a$Freq, decreasing=TRUE) # 出現回数の多いものから行番号を取得
a2 <- a[odr, ] # 行を並び替え
head(a2[a2["Info1"] == "名詞" & a2["Info2"] == "一般", ], n=5)


# ■ ワードクラウド
# パッケージ wordcloud のインストール
install.packages("wordcloud", dependencies=TRUE)

# wordcloudの利用
library(wordcloud)

# ワードクラウドの描画
b <- RMeCabFreq("XXXXXXXX.txt")
odr <- order(b$Freq, decreasing=TRUE)
b2 <- b[odr, ]
words <- head(b2[b2["Info1"] == "名詞" & b2["Info2"] == "一般", "Term"], n=500)
freq <- head(b2[b2["Info1"] == "名詞" & b2["Info2"] == "一般", "Freq"], n=500)
wordcloud(words, freq, min.freq=2, random.order=FALSE, colors=rainbow(100))