Re: [問題] plyr

看板R_Language作者celestialgod (攸藍)時間9年前 (2015/07/03 12:56)推噓6(6推 0噓 0→)

留言6則, 2人參與討論串5/5 (看更多)

※ 引述《psinqoo (零度空間)》之銘言： : 延伸問題 : 原始資料 : id year cost : D 2012 120 : E 2013 300 : F 2014 200 : A 2015 155 : E 2011 200 : F 2014 160 : B 2013 165 : B 2015 185 : C 2012 350 : A 2014 310 : E 2014 225 : F 2015 175 : 想變成這樣子 : ID 12計數 13計數 14計數 15計數 2012金額 2013金額 2014金額 2015金額總計數總金額 : A : B : C : D : E : F : 雖然資料量少 EXCEL 可以計算 : 我想知道R 是否也能用少量語法做到 # functions for packages library(reshape2) # dcast library(data.table) # fread, dcast.data.table library(dplyr) # summarise, group_by, n, tbl_dt library(magrittr) # %>% data_dt = fread(" id year cost D 2012 120 E 2013 300 F 2014 200 A 2015 155 E 2011 200 F 2014 160 B 2013 165 B 2015 185 C 2012 350 A 2014 310 E 2014 225 F 2015 175") %>% tbl_dt(FALSE) data_dt %>% dcast.data.table(id ~ year, sum, value.var = "cost") %>% left_join( data_dt %>% group_by(id) %>% summarise(total = sum(cost), num = n()) ,"id") # id 2011 2012 2013 2014 2015 total num # 1 A 0 0 0 310 155 465 2 # 2 B 0 0 165 0 185 350 2 # 3 C 0 350 0 0 0 350 1 # 4 D 0 120 0 0 0 120 1 # 5 E 200 0 300 225 0 725 3 # 6 F 0 0 0 360 175 535 3 value.var可以不指定，他可以自動選擇，注意要用字串，別跟其他dplyr的function搞混如果fun.aggregate(第三個input)沒指定就會用length dcast.data.table 是data.table的method，data.frame直接用dcast就好，input是一樣 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 111.248.28.53 ※ 文章網址: https://www.ptt.cc/bbs/R_Language/M.1435899376.A.3B5.html

推

psinqoo

07/03 13:12, , 1^F

07/03 13:12, 1^F

推

psinqoo

07/03 13:49, , 2^F

07/03 13:49, 2^F

不太懂csv轉成data.table?? 用你能夠讀進R的方法都可以轉吧計數方法在left_join後面用group_by 去算n()那裏

推

psinqoo

07/03 15:15, , 3^F

07/03 15:15, 3^F

可以不用轉拉，dcast可以直接做data.frame，只是我用fread讀進去就是data.table..

推

psinqoo

07/03 18:01, , 4^F

07/03 18:01, 4^F

推

dreamreader

07/04 01:41, , 5^F

07/04 01:41, 5^F

我之前沒看清楚，我再補上 # functions for packages library(reshape2) # dcast library(data.table) # fread, dcast.data.table library(dplyr) # summarise, group_by, n, tbl_dt library(magrittr) # %>% data_dt = fread(" id year cost D 2012 120 E 2013 300 F 2014 200 A 2015 155 E 2011 200 F 2014 160 B 2013 165 B 2015 185 C 2012 350 A 2014 310 E 2014 225 F 2015 175") %>% tbl_dt(FALSE) years = sort(unique(data_dt$year)) %>% as.character data_dt %>% dcast.data.table(id ~ year, sum, value.var = "cost") %>% setnames(years, paste0("count_",years)) %>% left_join(data_dt %>% dcast.data.table(id ~ year, length, value.var = "cost") %>% setnames(years, paste0("cost_",years)), "id") %>% left_join( data_dt %>% group_by(id) %>% summarise(total = sum(cost), num = n()), "id") ※ 編輯: celestialgod (123.205.27.107), 07/04/2015 11:58:51 ※ 編輯: celestialgod (123.205.27.107), 07/04/2015 11:59:44

推

psinqoo

07/07 08:22, , 6^F

07/07 08:22, 6^F

‣ 返回看板[ R_Language ] 程式

‣ 更多 celestialgod 的文章

文章代碼(AID): #1LbXNmEr (R_Language)