タグクラウドもしくはワードクラウドの練習

今頃知ったのだが，キーワードの出現回数を文字の大小で表現するグラフのことを「タグクラウド」もしくは「ワードクラウド」と呼ぶのだそうだ。こういうやつ：

多分，"R"でできるだろうと思って，調べてみると，"wordcloud"というパッケージを使えばできることがわかった。

そこで，ちょっと練習してみる。

◆　　　◆　　　◆

こういう例題を考えてみた：

alpha, beta, gamma, deltaという4つのキーワードがある。
ある文章中に，それぞれ40回，30回，20回，10回出現した。
これをワードクラウドで表現してみよう。

まず，R上で，alpha, beta, gamma, deltaの出現回数をまとめたデータフレームを作ってみる（参考："R-Source 39. データフレーム事始"）。

wo <- c("alpha", "beta", "gamma", "delta") fr <- c(40, 30, 20, 10) dd <- data.frame(word=wo, freq=fr)

すると，こんなデータフレーム"dd"ができる。

word freq 1 alpha 40 2 beta 30 3 gamma 20 4 delta 10

つぎに，"wordcloud"というパッケージを呼ぶ。これはRに初めから入っているわけではないので，あらかじめどこかのサイトからパッケージをインストールする。そしてライブラリーから読み込む。

install.packages("wordcloud") # ライブラリの読み込み library(wordcloud)

すでにデータフレーム"dd"ができているので，これを関数"wordcloud"に放り込めばいい。

wordcloud(dd$word, dd$freq)

すると，こんなワードクラウド（タグクラウド）が表示されるはず（並び方は実行する度にランダムに変わる）：

フォントの大きさが出現回数の多さを表している。

さて，このワードクラウド，黒一色で面白くない。そこで，色の指定をしてみる。まずは，グレースケール。

colors = c("grey80", "grey60", "grey40", "grey20")

出現回数が少ないほど，色が薄くなる設定の4段階のグレースケールである。先ほどの関数"wordcloud"に，色指定のパラメータを加えてみる：

wordcloud(dd$word, dd$freq, color=colors)

実行すると，こんな感じになる：

今度はヒートカラー「黄色→オレンジ→赤→濃赤」という指定をして実行してみる：

colors = c("yellow", "orange", "red", "darkred") wordcloud(dd$word, dd$freq, color=colors)

実行すると，こんな感じ：

ということで，wordcloudの最も簡単な例題終了。

近いうちに，自然言語処理をしてワードクラウド（タグクラウド）を作ってみる。

予習用資料：
"Build a word cloud using text mining tools of R"
「R言語で小説を読もう累計１位の「無職転生- 異世界行ったら本気だす - 」をタグクラウドしてみた。 」