作者HumuHumu (呼姆呼姆)
看板R_Language
標題Re: [問題] 如何將function放入迴圈? (求救)
時間Sat Oct 6 12:37:19 2018
※ 引述《ronald736 (明天會更好)》之銘言：
: 我想將資料每筆按照規則分群，資料如下圖:
: 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
function放在迴圈裡其實會很吃效能，因為每一圈都要重新建一次function
而且你function的用法盡量不要用到Global的變數，只要讓他回傳你要的類別就好
你的function的目的應該是，丟進去平均分數、P50和P70，它就會告訴我這個學生
是第幾類，然後你再用迴圈把這個function告訴你的類別丟到你的classp裡面
cf <- function(score,P50,P75){
if (score<P50) {
return(3)
} else if (score>=P50 & score<P75) {
return(2)
} else {
return(1)
}
}
classp <- NULL
for (i in 1:dim(pdata)[1]) {
classp[i] <- cf(score=pdata$平均成績[i],P50 = pdata$P50[i],P75 =
pdata$P75[i])
}
classp
https://pastebin.com/J1wkCviS
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.32.200.137
※ 文章網址: https://webptt.com/m.aspx?n=bbs/R_Language/M.1538800642.A.C27.html
※ 編輯: HumuHumu (114.32.200.137), 10/06/2018 12:47:42
1F：推 ronald736: 太感謝H大大，我又學到正確的觀念，function的寫法 10/06 17:10
2F：→ ronald736: 原來要分開，function中不可帶有迴圈變數 10/06 17:11