加入線性平滑器

你已經看過如何使用 add_markers() 與 add_lines() 軌跡在散佈圖上加入 LOESS 平滑線。加入線性平滑器的做法相同，但需要用 lm() 指令來擬合線性模型。

在這個練習中，你的任務是為 2016 年電玩遊戲的使用者評分與評論者評分的散佈圖加入一條線性平滑線。

當你加入平滑器時，遺漏值（NA）可能會造成問題，因為許多建模函式會自動刪除含有遺漏的觀測值。為了避免衝突，請在繪圖前使用 select() 與 na.omit() 先刪除觀測值。

注意：plotly 套件與 vgsales2016 資料已為你載入。

本練習屬於課程

使用 R 的 plotly 互動式資料視覺化

檢視課程

練習說明

使用 Critic_Score 作為自變數、User_Score 作為依變數，擬合一個線性迴歸模型。將此模型存到物件 m。
建立一個散佈圖，x 軸為 Critic_Score，y 軸為 User_Score。
在散佈圖上加入一條代表擬合值的線性平滑線。

動手互動練習

試著完成這個範例程式碼，體驗一下這個練習。

# Fit the regression model of User_Score on Critic_Score
m <- lm(___ ~ ___, data = ___)

# Create the scatterplot with smoother
vgsales2016 %>%
   select(User_Score, Critic_Score) %>%
   na.omit() %>%
   ___(x = ___, y = ___) %>%
   ___(showlegend = FALSE) %>%
   ___(y = ___)

編輯並執行程式碼