我想將資料每筆按照規則分群，資料如下圖:
https://imgur.com/a/wXNRKJ6
圖中想把"平均成績"依照P50、P70這2個欄位分成3類
平均成績 < P50 為第3類
平均成績 >= P50 且 <P75 為第2類
平均成績 >=P75 為第1類
我打算將function放入迴圈 (因為是要每1筆都依照欄位分群)
程式碼如下，能否幫我看看是寫法上錯誤嗎? 還是那邊的觀念不對?
classp <- NULL
for (i in 1:dim(pdata)[1]) {
cf <- function(pdata$平均成績[i])
{
if (pdata$平均成績[i]<pdata$P50[i]) {
classp[i] = 3
} else if (pdata$平均成績[i]>=pdata$P50[i] & pdata$平均成績
[i]<pdata$P75[i]) {
classp[i] = 2
} else {
classp[i] = 1
}
return(classp[i])
}
classp[i] <- cf(pdata$平均成績[i])
}
classp
程式碼與錯誤圖:
程式碼 : https://imgur.com/a/Sw9Mrmb
錯誤 : https://imgur.com/a/3DeYkYJ