外れ値の有無での推定

この演習で提供するデータ（hypdata_outlier）には極端な外れ値が含まれています。データセットのプロットと、response を目的変数、explanatory を説明変数とした線形回帰モデルが表示されています。外れ値の点を除去して、1 つの観測値が回帰直線の推定にどのような影響を与えるかを確認します。

外れ値を除くように hypdata_outlier をフィルタします。
プロット p を更新し、もう一つのスムーズ層（geom_smooth）を追加します。
- 既存のリボンと同様に、線形回帰法を用い、リボンは描画しません。
- ただし、今回の更新では data = hypdata_no_outlier を使い、色を赤にします。
- いまは信頼区間は描かず、スムーズ曲線のみを使います（se = FALSE）。