Re: [討論] for loop與*apply function請益

作者: gsuper (Logit(odds))   2015-05-22 14:33:19
assign.group <- function(value){
if(value < 0.25){return_value <- "group1"}
else if(value < 0.5){return_value <- "group2" }
else if(value < 0.75){return_value <- "group3" }
else return_value <- "group4"
return_value
}
## 新增欄位並填入值
add.col.group <- function(data){
data$group <- 0
data$group <- sapply(data$avg, assign_group) ##avg即為第八個欄位的名稱
data
}
作者: celestialgod (天)   2015-05-22 19:35:00
如果用factor,還能產生出正常結果嗎?
作者: gsuper (Logit(odds))   2015-05-22 23:51:00
有時候可以 但容易出bug 所以我一像都會避開這種格式
作者: celestialgod (天)   2015-05-22 23:53:00
恩恩,我只是想說factor通常被當成1,2,3,...不確定double變成factor是否可以一樣的數值運算我自己run是會出現錯誤In Ops.factor(a, 0.25) :‘>’ not meaningful for factors
作者: gsuper (Logit(odds))   2015-05-22 23:55:00
as.numeric(as.matrix(factor)) 我都是這樣宣告的不用去管float, double, numeric, integer 等細節
作者: celestialgod (天)   2015-05-22 23:56:00
R應該不會自動把double轉成factor才是。
作者: gsuper (Logit(odds))   2015-05-22 23:56:00
因為 read.table 會預設是dataframe然後dataframe$vector 好像大部分是預設 factor但是細節我也不清楚 所以讀取檔案以後 一定會這樣寫
作者: celestialgod (天)   2015-05-22 23:58:00
這個你應該誤會了吧
作者: gsuper (Logit(odds))   2015-05-22 23:58:00
gsub("^ *| *$","",as.matrix(read.table("檔案")))
作者: gsuper (Logit(odds))   2015-05-22 23:59:00
那我之後測試看看... factor的屬性我不是很熟
作者: celestialgod (天)   2015-05-23 00:00:00
我自己測試是只有character會自動轉換read.table有一個option是as.is 可以設定是否要轉
作者: gsuper (Logit(odds))   2015-05-23 00:03:00
不過我覺得原po 的問題主因可能還是餵 factor 給 sapply()因為這狀況我碰過很多次
作者: celestialgod (天)   2015-05-23 00:04:00
data$avg預設是factor,我覺得怪怪,可以再討論
作者: gsuper (Logit(odds))   2015-05-23 00:04:00
給他測試看看囉...原po試試 class(data$avg)告訴我們結果是什麼
作者: celestialgod (天)   2015-05-23 00:05:00
不過至少,沒有轉換過的factor,'>'是不能用
作者: locka (locka)   2015-05-23 00:16:00
抱歉這麼晚回,因為今天我比較晚回來,明天又要早起,所以暫時無法測試…各位大大的回饋我都會一一測試消化,不過我這裡可以先跟g大補充一下,如果我沒記錯的話,我data$avg的資料是有前處理轉成numeric的 所以應該不是餵factor的問題?

Links booklink

Contact Us: admin [ a t ] ucptt.com