Bất thường có nhãn

Giới thiệu về Anomaly Detection bằng R

Alastair Rushworth

Data Scientist

Dữ liệu ảnh vệ tinh

head(sat, 5)

  label V1  V2  V3 V4 V5
1     0 92 115 120 94 84
2     0 84 102 106 79 84
3     0 84 102 102 83 80
4     0 80 102 102 79 84
5     0 84  94 102 79 80

table(sat$label)

   0    1 
5732   71

Tỷ lệ ảnh bông:

71 / 5803

0.01223505

plot(V2 ~ V3, data = sat, col = as.factor(label), pch = 20)

sat_for <- iForest(sat[, -1], nt = 100)
sat$score <- predict(sat_for, features)

boxplot(score ~ label, data = sat, col = "olivedrab4")

Ví dụ 1: Phát hiện bệnh hiếm

Ví dụ 2: Gian lận thẻ tín dụng

Giới thiệu về Anomaly Detection bằng R