带标签的异常

R 异常检测入门

Alastair Rushworth

Data Scientist

卫星影像数据

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

棉花作物图像占比：

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")

示例 1：检测罕见疾病病例

示例 2：信用卡欺诈

R 异常检测入门