機会費用を可視化する

今回も、実験文を読んだ後にDVDを購入した割合が、処置群と対照群で同じかどうかに注目します。ここでは、処置群と対照群の間の比率の差を可視化するために、棒グラフを作成します。

この演習はコースの一部です

Rによる推測の基礎

opportunity データセットを使って、group を横軸にし、decision で fill を指定してプロットします。
相対度数を比較するため、geom_bar() を呼び出して棒グラフのレイヤーを追加し、position 引数を "fill" に設定します。なお、各 group の塗り分けは decision で定義してください。

このサンプルコードを完成させて、この演習に挑戦してみましょう。

# Plot group, filled by decision
ggplot(opportunity, aes(x = ___, fill = ___)) + 
  # Add a bar layer, with position "fill"
  ___