資料來自該母體嗎？
回顧一下，觀察到的差異（也就是 homes 資料集裡比例的差異，用紅色垂直線表示）大約是 -0.0078，這看起來落在隨機重排差異密度的大部分左側。不過，更重要的是要知道，有沒有任何隨機置換出的差異跟觀察到的差異一樣極端。
在這個練習中，你會把先前的點圖改用密度圖重現，並計算有多少置換差異落在觀察差異的左邊。
本練習屬於課程
R 統計推論基礎
練習說明
homeown_perm 資料集已在你的工作環境中可用。
- 使用
geom_density()繪製置換後的差異。 - 使用
geom_vline()在觀察到的差異位置加上一條紅色垂直線。diff_orig已提供於你的工作環境，代表原始的差異統計量值。 - 計算小於或等於觀察差異的置換差異個數。
動手互動練習
試著完成這個範例程式碼，體驗一下這個練習。
# Plot permuted differences, diff_perm
ggplot(homeown_perm, aes(x = ___)) +
# Add a density layer
___() +
# Add a vline layer with intercept diff_orig
___(aes(xintercept = ___), color = "red")
# Compare permuted differences to observed difference
homeown_perm %>%
summarize(n_perm_le_obs = sum(___ <= ___))