Xử lý dữ liệu khuyết bằng Imputation trong R
Michal Oleszak
Machine Learning Engineer
Imputation = suy đoán hợp lý cho giá trị thiếu
Chương này tập trung vào phương pháp donor-based:

Thế trung bình phù hợp với chuỗi thời gian dao động ngẫu nhiên quanh một trung bình dài hạn.
Với dữ liệu chéo, thế trung bình thường rất kém:
Nhiệm vụ: thế trung bình Height và Weight trong dữ liệu NHANES.
nhanes <- nhanes %>%
mutate(Height_imp = ifelse(is.na(Height), TRUE, FALSE)) %>%
mutate(Weight_imp = ifelse(is.na(Weight), TRUE, FALSE))
Height và Weight bằng trung bình tương ứng.nhanes_imp <- nhanes %>%
mutate(Height = ifelse(is.na(Height), mean(Height, na.rm = TRUE), Height)) %>%
mutate(Weight = ifelse(is.na(Weight), mean(Weight, na.rm = TRUE), Weight))
nhanes_imp %>%
select(Weight, Height, Height_imp, Weight_imp) %>%
head()
Weight Height Height_imp Weight_imp
1 73.20000 166.2499 TRUE FALSE
2 72.30000 166.2499 TRUE FALSE
3 57.70000 158.9000 FALSE FALSE
4 88.90000 183.3000 FALSE FALSE
5 45.10000 157.6000 FALSE FALSE
6 66.77065 158.4000 FALSE TRUE
nhanes_imp %>% select(Weight, Height, Height_imp, Weight_imp) %>% marginplot(delimiter="imp")

Phá vỡ quan hệ giữa biến:
Height và Weight, tương quan dương yếu đi.Không có biến thiên ở dữ liệu được thế:

Xử lý dữ liệu khuyết bằng Imputation trong R