有無離群值的估計比較
本練習提供的資料（hypdata_outlier）包含一個極端的離群值。已為你繪出資料集與以 response 對 explanatory 的線性迴歸模型。你將移除這個離群點，看看單一觀測值如何影響迴歸線的估計。
本練習屬於課程
R 中的線性迴歸推論
練習說明
- 將
hypdata_outlier篩選後移除離群值。 - 更新圖形
p，再加上一層平滑曲線（使用geom_smooth）。- 和另一條帶狀一樣，這次更新要使用線性迴歸方法，且不要繪製帶狀區域。
- 和另一條帶狀不同的是，這次要使用
data = hypdata_no_outlier，並將顏色設為紅色。 - 目前只需要平滑曲線，不要信賴區間界線（
se = FALSE）。
動手互動練習
試著完成這個範例程式碼，體驗一下這個練習。
# This plot is shown
p <- ggplot(hypdata_outlier, aes(x = explanatory, y = response)) +
geom_point() +
geom_smooth(method = "lm", se = FALSE)
# Filter to remove the outlier
hypdata_no_outlier <- ___
p +
# Add another smooth lin .reg. layer, no ribbon,
# hypdata_no_outlier data, colored red
___