各国料理には、その料理らしさを決める少数の特徴的な食材があります。最もよく使われる食材を見ても、それらは塩や砂糖のような基礎的な材料であることが多く、特徴は見えてきません。

この目的に役立つ別の指標が、term frequency–inverse document frequency（TFIDF）です。これは、コーパス（レシピ）の中の各ドキュメント（料理）において、ある単語（食材）がどれだけ重要かを表す数値指標です。

tf_idf はすでに計算済みで、recipes_enriched という拡張データセットにまとめてあります。目標は、tf_idf で測った各料理の「特徴的な上位食材」を横向きの棒グラフで表示する Shiny アプリを作ることです。

選択した料理ごとの上位食材を対話的な横棒グラフで表示するアプリ

計算処理はリアクティブ式でカプセル化し、プロット部分は描画に専念させます。これは良いプログラミング実践で、モジュール性とパフォーマンスの高い Shiny アプリ作成に役立ちます。

shiny、dplyr、ggplot2、plotly パッケージは読み込んであります。以下は、料理別に上位の食材を抽出し、横棒グラフを作成するための便利なスニペットです。必要に応じて調整してください。

top_ingredients <- recipes_enriched %>% 
  filter(cuisine == 'greek') %>% 
  arrange(desc(tf_idf)) %>% 
  head(5) 

ggplot(top_ingredients, aes(x = ingredient, y = tf_idf)) +
  geom_col() +
  coord_flip()

UFO目撃ダッシュボードを作ろう

Create Your Free Account