R 异常检测入门
Alastair Rushworth
Data Scientist
plot(Width ~ Height, data = furniture)

异常通常远离其邻居

library(FNN)
furniture_knn <- get.knn(data = furniture, k = 5)
参数
data: 数据矩阵k: 邻居数量get.knn() 返回两个矩阵
names(furniture_knn)
"nn.index" "nn.dist"
距离矩阵
head(furniture_knn$nn.dist, 3)
[,1] [,2] [,3] [,4] [,5]
[1,] 5.128300 5.367791 5.390801 5.740713 8.477025
[2,] 4.300093 5.367791 6.159139 7.091966 7.428176
[3,] 3.047502 3.545978 4.426266 5.006570 5.654202
到最近邻的平均距离
furniture_score <- rowMeans(furniture_knn$nn.dist)
最大得分?
which.max(furniture_score)
29
R 异常检测入门