R_Language 板


LINE

[問題類型]: 效能諮詢(我想讓R 跑更快) [軟體熟悉度]: 請把以下不需要的部份刪除 使用者(已經有用R 做過不少作品) [問題敘述]: 將data frame當中重複出現二次以上的資料抓出,並求取某個欄位的平均值 我有一個含有接近四百萬比資料的data frame, 格式大概長這個樣子 ID1 ID2 Name1 Name2 Value ------------------------------------- m001 g001 mm1 gg1 0.5 m001 g001 mm1 gg1 0.6 m002 g001 mm2 gg1 0.3 m002 g002 mm2 gg2 0.5 m002 g002 mm2 gg2 0.7 m002 g002 mm2 gg2 0.2 m003 g002 mm3 gg2 0.1 .... .... .... ... ... ------------------------------------ 我想把當中重複出現二次以上的資料抓出來,並計算value欄位的平均 使得資料變成下面這個樣子 ID1 ID2 Name1 Name2 Value ------------------------------------- m001 g001 mm1 gg1 0.55 m002 g002 mm2 gg2 0.47 .... .... .... .... .... ------------------------------------- 用過for loop + aggregate, foreach + doParallel以及用Rcpp寫for loop 的方式去處理過,但是實在是相當慢,foreach+doParallel跟Rcpp for的版本 幾乎都跑了接近快12小時, 不知道版上的各位大大有沒有什麼好的建議? [環境敘述]: 請提供 sessionInfo() 的輸出結果, 裡面含有所有你使用的作業系統、R 的版本和套件版本資訊, 讓版友更容易找出錯誤 [關鍵字]: data frame, subsetting --



※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 140.116.215.230
※ 文章網址: https://webptt.com/m.aspx?n=bbs/R_Language/M.1444295729.A.DD1.html ※ 編輯: Godkin (140.116.215.230), 10/08/2015 17:16:36
1F:→ celestialgod: 有試過直接dplyr嗎 10/08 17:21
2F:→ celestialgod: dat %>% group_by(ID1, ID2, Name1, Name2) %>% 10/08 17:22
3F:→ celestialgod: summarise(value = mean(Value)) 10/08 17:22
4F:→ Godkin: 有,但就是卡了個要撈出出現兩次以上的資料,還是跑挺久的 10/08 17:30
5F:→ Godkin: 現在用foreach+doParallel+aggregate+dplyr有比較快了 10/08 17:33
6F:推 celestialgod: summarise直接上length(value)做篩選就好啦 10/08 17:35
7F:→ celestialgod: 晚一點來測試速度 10/08 17:35
8F:推 celestialgod: 如果四百萬列就要12小時,真的有點誇張 10/08 17:36
9F:→ Godkin: 沒過用length XD, 等等來試試 10/08 17:36
10F:→ andrew43: 我直覺想到先把字串接起來變成新的欄再說... 10/08 18:10







like.gif 您可能會有興趣的文章
icon.png[問題/行為] 貓晚上進房間會不會有憋尿問題
icon.pngRe: [閒聊] 選了錯誤的女孩成為魔法少女 XDDDDDDDDDD
icon.png[正妹] 瑞典 一張
icon.png[心得] EMS高領長版毛衣.墨小樓MC1002
icon.png[分享] 丹龍隔熱紙GE55+33+22
icon.png[問題] 清洗洗衣機
icon.png[尋物] 窗台下的空間
icon.png[閒聊] 双極の女神1 木魔爵
icon.png[售車] 新竹 1997 march 1297cc 白色 四門
icon.png[討論] 能從照片感受到攝影者心情嗎
icon.png[狂賀] 賀賀賀賀 賀!島村卯月!總選舉NO.1
icon.png[難過] 羨慕白皮膚的女生
icon.png閱讀文章
icon.png[黑特]
icon.png[問題] SBK S1安裝於安全帽位置
icon.png[分享] 舊woo100絕版開箱!!
icon.pngRe: [無言] 關於小包衛生紙
icon.png[開箱] E5-2683V3 RX480Strix 快睿C1 簡單測試
icon.png[心得] 蒼の海賊龍 地獄 執行者16PT
icon.png[售車] 1999年Virage iO 1.8EXi
icon.png[心得] 挑戰33 LV10 獅子座pt solo
icon.png[閒聊] 手把手教你不被桶之新手主購教學
icon.png[分享] Civic Type R 量產版官方照無預警流出
icon.png[售車] Golf 4 2.0 銀色 自排
icon.png[出售] Graco提籃汽座(有底座)2000元誠可議
icon.png[問題] 請問補牙材質掉了還能再補嗎?(台中半年內
icon.png[問題] 44th 單曲 生寫竟然都給重複的啊啊!
icon.png[心得] 華南紅卡/icash 核卡
icon.png[問題] 拔牙矯正這樣正常嗎
icon.png[贈送] 老莫高業 初業 102年版
icon.png[情報] 三大行動支付 本季掀戰火
icon.png[寶寶] 博客來Amos水蠟筆5/1特價五折
icon.pngRe: [心得] 新鮮人一些面試分享
icon.png[心得] 蒼の海賊龍 地獄 麒麟25PT
icon.pngRe: [閒聊] (君の名は。雷慎入) 君名二創漫畫翻譯
icon.pngRe: [閒聊] OGN中場影片:失蹤人口局 (英文字幕)
icon.png[問題] 台灣大哥大4G訊號差
icon.png[出售] [全國]全新千尋侘草LED燈, 水草

請輸入看板名稱,例如:e-shopping站內搜尋

TOP