การรวมและเปรียบเทียบโมเดล Imputation หลายแบบ
เพื่อประเมินวิธี imputation ที่แตกต่างกัน เราต้องรวมผลลัพธ์ทั้งหมดไว้ใน dataframe เดียว ในแบบฝึกหัดนี้จะเปรียบเทียบสามวิธีในการจัดการกับข้อมูลที่ขาดหายไปโดยใช้ชุดข้อมูล oceanbuoys
- วิธีแรกคือใช้เฉพาะข้อมูลที่สมบูรณ์ ซึ่งโหลดไว้แล้วในชื่อ
ocean_cc - วิธีที่สองคือการ impute ค่าด้วยโมเดลเชิงเส้น โดยใช้ข้อมูลลม เก็บไว้ในชื่อ
ocean_imp_lm_wind
จากนั้นจะสร้างชุดข้อมูล imputed ชุดที่สาม ชื่อ ocean_imp_lm_all โดยใช้โมเดลเชิงเส้นเพื่อ impute ตัวแปร sea_temp_c, air_temp_c และ humidity ด้วยตัวแปร wind_ew, wind_ns, year, latitude, longitude
จากนั้นนำชุดข้อมูลทั้งหมด (ocean_cc, ocean_imp_lm_wind และ ocean_imp_lm_all) มารวมกัน แล้วเก็บไว้ในชื่อ bound_models
แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร
การจัดการข้อมูลที่หายไปใน R
คำแนะนำการฝึกหัด
- สร้างชุดข้อมูล imputed ชื่อ
ocean_imp_lm_allโดยใช้โมเดลเชิงเส้นเพื่อ impute ตัวแปรsea_temp_c,air_temp_cและhumidityด้วยตัวแปรwind_ew,wind_ns,year,latitude,longitude - รวมชุดข้อมูลทั้งหมดเข้าด้วยกันในออบเจกต์เดียว โดยตั้งชื่อว่า
bound_models
แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ
ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์
# Create an imputed dataset using a linear models
ocean_imp_lm_all <- bind_shadow(oceanbuoys) %>%
add_label_shadow() %>%
impute_lm(sea_temp_c ~ wind_ew + wind_ns + ___ + ___ + ___) %>%
impute_lm(air_temp_c ~ wind_ew + wind_ns + ___ + ___ + ___) %>%
impute_lm(humidity ~ wind_ew + wind_ns + ___ + ___ + ___)
# Bind the datasets
bound_models <- bind_rows(cc = ___,
imp_lm_wind = ___,
imp_lm_all = ___,
.id = "imp_model")
# Look at the models
bound_models