Re: [問題] 資料堆疊
※ 引述《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
推
08/07 09:05, , 1F
08/07 09:05, 1F
→
08/07 09:06, , 2F
08/07 09:06, 2F
直接用我的程式跑的?還是有更換成你的資料
→
08/07 09:08, , 3F
08/07 09:08, 3F
→
08/07 09:09, , 4F
08/07 09:09, 4F
晚點測試再給你回覆
→
08/07 09:11, , 5F
08/07 09:11, 5F
→
08/07 09:11, , 6F
08/07 09:11, 6F
可能是colname問題，多一欄是正常結果
→
08/07 09:11, , 7F
08/07 09:11, 7F
→
08/07 09:12, , 8F
08/07 09:12, 8F
→
08/07 09:12, , 9F
08/07 09:12, 9F
→
08/07 09:13, , 10F
08/07 09:13, 10F
這個可能是code_name的內容
→
08/07 09:14, , 11F
08/07 09:14, 11F
→
08/07 09:15, , 12F
08/07 09:15, 12F
我只是紙上談兵，剛好猜對XD
我測試之後都沒有問題，可能是dplyr版本問題
我的是0.4.1版本，可能再麻煩用seesionInfo()確認一下版本
推
08/07 15:43, , 13F
08/07 15:43, 13F
→
08/07 15:45, , 14F
08/07 15:45, 14F
→
08/07 15:45, , 15F
08/07 15:45, 15F
→
08/07 15:46, , 16F
08/07 15:46, 16F
→
08/07 15:46, , 17F
08/07 15:46, 17F
→
08/07 15:47, , 18F
08/07 15:47, 18F
→
08/07 15:50, , 19F
08/07 15:50, 19F
→
08/07 15:53, , 20F
08/07 15:53, 20F
試出來就好XD
※ 編輯: celestialgod (1.163.8.105), 08/07/2015 16:41:58
討論串 (同標題文章)
R_Language 近期熱門文章
PTT數位生活區 即時熱門文章
