สำรวจการรวมกันของค่าที่ขาดหายไปเพิ่มเติม

# Summarize wind_ew by the missingness of `air_temp_c_NA`
oceanbuoys %>% 
  bind_shadow() %>%
  group_by(___) %>%
  summarize(wind_ew_mean = mean(___),
            wind_ew_sd = sd(___),
            n_obs = ___)

# Summarize wind_ew by missingness of `air_temp_c_NA` and `humidity_NA`
oceanbuoys %>% 
  bind_shadow() %>%
  group_by(___, ___) %>%
  summarize(wind_ew_mean = mean(___),
            wind_ew_sd = sd(___),
            n_obs = ___)