您的訂閱是我製作影片的動力
訂閱點這裡~

影片程式碼(延續昨天)

#步驟二: 資料分群，哪個演算法?
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)

若內容有誤，還請留言指正，謝謝您的指教