Menangani Missing Value

data(airquality)
head(airquality)

##   Ozone Solar.R Wind Temp Month Day
## 1    41     190  7.4   67     5   1
## 2    36     118  8.0   72     5   2
## 3    12     149 12.6   74     5   3
## 4    18     313 11.5   62     5   4
## 5    NA      NA 14.3   56     5   5
## 6    28      NA 14.9   66     5   6

Cek jumlah missing value

sum(is.na(airquality$Ozone))

## [1] 37

Hitung Median (tanpa NA)

median_ozone <- median(airquality$Ozone, na.rm = TRUE)
median_ozone

## [1] 31.5

Ganti Missing Value dengan Median

airquality$Ozone[is.na(airquality$Ozone)] <- median_ozone

Cek Kembali Missing Value

sum(is.na(airquality$Ozone))

## [1] 0

Kesimpulan Semua Missing Value sudah hilang dengan metode isi missing value dengan nilai median