[Day-22] R语言 - 分群应用(三) 相异点侦测 ( detect dissimilar point by clustering in R.Studio )

您的订阅是我制作影片的动力
订阅点这里~

影片程序码

## 应用三: 相异点侦测 ####
library(clustMixType)
data(iris)
iris_n <- iris[,-5]
iris_n <- as.data.frame(scale(iris_n)) #前置2: standard norm 标准化
iris <- cbind(iris_n,iris$Species)
kp <- kproto(iris, 10)
kp_out <- as.data.frame(kp$cluster) #大好
final <- cbind(iris,kp_out)

out <- final %>% 
       group_by(`kp$cluster`) %>% 
       summarise(笔数=n())

done <- final %>% 
        subset(`kp$cluster`!=4)

若内容有误，还请留言指正，谢谢您的指教