[Day-26] R语言 - 分群应用(五) 分群预测 - 资料分群 ( data clustering in R.Studio )

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

影片程序码(延续昨天)

#步骤二: 资料分群，哪个演算法?
data_num <- done[,c(6,13:24)]
data_num <- as.data.frame(scale(data_num)) #前置2: standard norm 标准化
data_cla <- done[,c(2:5,7:12)]
data_cla <- lapply(data_cla, factor)
data_use <- cbind(data_num,data_cla)
kp <- kproto(data_use, 3)
kp_out <- as.data.frame(kp$cluster) #大好
final <- cbind(done[,c(-26)],kp_out)

#三组资料chk样本数
group_1 <- subset(final[,c(-1,-26)],final$`kp$cluster`==1)
group_2 <- subset(final[,c(-1,-26)],final$`kp$cluster`==2)
group_3 <- subset(final[,c(-1,-26)],final$`kp$cluster`==3)

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