討論串[討論] for loop與*apply function請益
共 4 篇文章
首頁
上一頁
1
下一頁
尾頁

推噓2(2推 0噓 17→)留言19則,0人參與, 最新作者locka (locka)時間9年前 (2015/05/22 03:29), 編輯資訊
1
0
2
內容預覽:
各位大大晚安,. 我有一份總共九個欄位約30萬筆的原始資料,. 因為想要分成4組畫圖. 所以第一個想到的事就是新增第十個欄位(稱作group),. 然後根據某個欄位(假設為第八個欄位好了)的值分組,. 並填入第十個欄位(group1~group4). 很笨的用for loop搭配if else寫,可
(還有1320個字)

推噓2(2推 0噓 0→)留言2則,0人參與, 最新作者celestialgod (攸藍)時間9年前 (2015/05/22 12:52), 9年前編輯資訊
0
0
1
內容預覽:
我不知道你的sapply跟for為什麼會差那麼多. 照理來說sapply跟for應該一樣快. 我的模擬: (共有20萬列,elapsed是總時間). group_f2, group_f3分別是for, sapply. group_f1用cut, cbind. group_f4用dplyr, plyr
(還有639個字)

推噓0(0推 0噓 29→)留言29則,0人參與, 最新作者gsuper (Logit(odds))時間9年前 (2015/05/22 14:33), 9年前編輯資訊
0
0
0
內容預覽:
assign.group <- function(value){. if(value < 0.25){return_value <- "group1"}. else if(value < 0.5){return_value <- "group2" }. else if(value < 0.75){r
(還有727個字)

推噓0(0推 0噓 0→)留言0則,0人參與, 最新作者JX660 (JX)時間9年前 (2015/05/22 21:13), 編輯資訊
0
0
0
內容預覽:
我自己會用下面的寫法. data$group<-. ifelse( data[,8] < 0.25 , 1 ,. ifelse( data[,8] < 0.50 & data[,8] > 0.25 , 2 ,. ifelse( data[,8] < 0.75 & data[,8] > 0.50 ,
(還有86個字)
首頁
上一頁
1
下一頁
尾頁