ここでは、特定のテキストに合わせてネガティブ語彙を調整します。そのうえで、基本の polarity() スコアとカスタムのスコアを比較します。

Twenty One Pilots の人気曲に「Stressed Out」があります。歌詞をざっと読むと、若き日のノスタルジーがテーマであることがわかります。全体として、多くの人は極性（ポラリティ）はネガティブだと感じるでしょう。歌詞では繰り返し、ストレス、不安、そして「ふるまう（pretending）」といった表現が登場します。

この曲の歌詞を、デフォルトの主観性レキシコンと、カスタムのレキシコンの両方で比較してみましょう。

最初に、追加したい用語がすでに key.pol の主観性レキシコンに含まれていないことを確認する必要があります。確認方法の1つは grep() を使うことです。 grep() は、検索パターンに一致する文字を含む行を返します。以下は、インデックス参照で使う例です。

data_frame[grep("search_pattern", data_frame$column), ]

スラングや新語がすでに key.pol レキシコンにないことを確認したら、追加します。次のコードは、新しいレキシコンを構築するために sentiment_frame() を使っています。このコードでは、sentiment_frame() は元のポジティブ語ベクトル positive.words を受け取ります。次に、元の negative.words に、いずれもネガティブなスラングとみなされる "smh" と "kappa" を連結しています。重みは指定することもできますが、デフォルトは 1 と -1 なので、以下では省略しています。

custom_pol <- sentiment_frame(positive.words, c(negative.words, "hate", "pain"))

これで極性スコアを適用する準備ができました。これ以降は「カスタム」主観性レキシコンが参照されます！

主観性レキシコンとは？

Rで学ぶSentiment Analysis

実践的なインタラクティブ演習