Re: [問題] 資料堆疊

[celestialgod (攸藍)]

※ 引述《SFMAndroid (安卓發送)》之銘言：
: [問題類型]:
: 程式諮詢(我想用R 做某件事情，但是我不知道要怎麼用R 寫出來)
: [軟體熟悉度]:
: 入門(寫過其他程式，只是對語法不熟悉)
: [問題敘述]:
: 最近在處理一筆資料 大概長這樣：
: user       web         code
: Shelly     yam         A1
: Bruce      finance     A2
: Shelly     yam         A1
: Kate       finance     A2
: Bruce      yam         A1
: Bruce      google      A3
: 希望能夠用堆疊(應該是堆疊吧)的方法讓資料變成這樣：
: user     web      code1     code2
: Shelly   yam      A1        A1
: Bruce    finance  A2
: Bruce    yam      A1
: Bruce    google   A3
: Kate     finance  A2

其實跟#1Lmlfyuv (R_Language)問題一模一樣

程式我就直接搬過來了...

library(data.table) # 只用到fread
library(dplyr)      # 用到group_by, mutate, %>%
library(tidyr)      # 用到spread (可以用reshape2的dcast代替)

DT = fread("user,web,code
Shelly,yam,A1
Bruce,finance,A2
Shelly,yam,A1
Kate,finance,A2
Bruce,yam,A1
Bruce,google,A3")

DT %>% group_by(user, web) %>%
  mutate(code_name = paste0("code_", 1:n())) %>%
  spread(code_name, code, fill = "")
#     user     web code_1 code_2
# 1  Bruce finance     A2
# 2  Bruce  google     A3
# 3  Bruce     yam     A1
# 4   Kate finance     A2
# 5 Shelly     yam     A1     A1


--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.163.8.105
※ 文章網址: https://www.ptt.cc/bbs/R_Language/M.1438870998.A.A5B.html
推 SFMAndroid: 剛試了一下 他出現Error in eval(expr, envir, enclos
→ SFMAndroid: ) : object 'web' not found的訊息@@
直接用我的程式跑的?還是有更換成你的資料
→ SFMAndroid: 恩恩
→ SFMAndroid: 直接用版大fread那個
晚點測試再給你回覆
→ SFMAndroid: 我用web另外給一個vector之後 mutate可以跑
→ SFMAndroid: 出來變成原資料多一欄code_name 裡面code_1 code_2
可能是colname問題，多一欄是正常結果
→ SFMAndroid: 好的 謝謝~
→ SFMAndroid: 但spread那出現 Error in dim(ordered) <- c(attr(row
→ SFMAndroid: _id, "n"), attr(col_id, "n")) : dims[ product 10]
→ SFMAndroid: do not match the length of object [0]
這個可能是code_name的內容
→ SFMAndroid: 版大你太神啦!!! 加上colname後就ok了!!!
→ SFMAndroid: 五體投地
我只是紙上談兵，剛好猜對XD

我測試之後都沒有問題，可能是dplyr版本問題

我的是0.4.1版本，可能再麻煩用seesionInfo()確認一下版本
推 SFMAndroid: 我的是0.4.2
→ SFMAndroid: 再請問版大 若今天結果變成Bruce  finance  A2
→ SFMAndroid:              Bruce    finance             A1
→ SFMAndroid: 要如何把相同的web合起來 變成Bruce finance A2 A1呢
→ SFMAndroid: 抱歉沒對好@@ A2跟A1分別在path_1和path_2
→ SFMAndroid: 打錯...code_1和code_2
→ SFMAndroid: 試過dcast.data.table和summarise 但是用不出來ˊ ˋ
→ SFMAndroid: 啊試出來了 抱歉抱歉
試出來就好XD
※ 編輯: celestialgod (1.163.8.105), 08/07/2015 16:41:58