アイソレーションスコアの可視化

Rで学ぶ異常検知入門

Alastair Rushworth

Data Scientist

値のシーケンス

h_seq <- seq(min(furniture$Height), max(furniture$Height), length.out = 20)

w_seq <- seq(min(furniture$Width),  max(furniture$Width),  length.out = 20)

seq() の引数

from - 下限
to - 上限
length.out - 生成する値の数

グリッドを作る

furniture_grid <- expand.grid(Width = w_seq, Height = h_seq)

head(furniture_grid)

     Width Height  
1 46.85100 44.359 
2 51.48663 44.359 
3 56.12225 44.359 
4 60.75788 44.359 
5 65.39351 44.359 
6 70.02913 44.359

グリッドにスコア付け

furniture_grid$score <- predict(furniture_forest, furniture_grid)

等高線プロットを作成

library(lattice)
contourplot(score ~ Height + Width, data = furniture_grid, 
            region = TRUE)

演習に進みましょう！

Rで学ぶ異常検知入門