カテゴリ変数をグラフ化する
tab_w の各度数は非常に大きな値なので、比較が少し難しいですね。分布をより理解するために、表に比率を追加し、うつ傾向（Depressed）の分布を示す棒グラフを作成しましょう。
この演習はコースの一部です
Rで学ぶアンケートデータ分析
実践的なインタラクティブ演習
このサンプルコードを完成させて、この演習に挑戦してみましょう。
# Add proportions to table
tab_w <- tab_w %>%
as.data.frame() %>%
___(Prop = Freq/___)